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

package Music::Media;

sub new { # クラスメソッド
    my $class = shift;  # 第一引数はクラス
    my $self = { @_ };  # 無名ハッシュ
    bless $self, $class;
}

sub add_music {
    my $self = shift;   # インスタンス
    my ($title, $len, $rest) = @_; # 曲名、長さ(秒)、その他
    push(@{$self->{contents}}, [$title, $len, $rest]);
}