オブジェクトの例(2/4)

sub list {       # 曲名リスト
    my $self = shift;
    map { $_->[0] } @{$self->{contents}};
}

sub total_time { # 合計演奏時間
    my $self = shift;
    my $res = 0;
    for (@{$self->{contents}}) {
        $res += $_->[1];
    }
    $res;
}