view release on metacpan or  search on metacpan

Mplib.pm  view on Meta::CPAN

141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
=cut
 
sub new {
    my ($class, $file) = @_;
    $class = ref($class) || $class;
    my $self =  {   _mp_file        => $file,
                    _mp_id3v1       => undef,
                    _mp_id3v2       => undef, 
                    _mp_header      => undef, 
                    _mp_v2header    => undef,}; 
    bless $self => $class;
}
 
=pod
 
=over 4
 
=item B<header>
 
Returns a hash-ref to the mpeg-header.