view release on metacpan or  search on metacpan

lib/Audio/M4P/QuickTime.pm  view on Meta::CPAN

		$self->FixStco( $siz, $pos );
		$removed += scalar @atoms;	
	}
	return $removed;	
}

# add a single album cover by EITHER adding one covr atom 
# OR adding one cover's data to an existing covr atom
# takes a argument which should be a compatible graphic format binary
# but does NO checks for compatibility with iTunes' cover art display
# type OUGHT TO BE 13 for jpeg, 14 for png graphics format,
# but method DOES NOT CHECK for type except will default to 13 
# if no type argument provided
sub AddCoverArt {
    my ($self, $art, $type) = @_;
    $type = 13 unless $type;
    my $covr = $self->FindAtom('covr');
    if( !$covr )
    {
		my $ilst = $self->FindAtom('ilst') || $self->MakeIlstAtom || return;
        $ilst->insertNew( 'covr', '' );

lib/Audio/M4P/QuickTime.pm  view on Meta::CPAN

Delete all cover art from the file. This removes all data from the covr atom, 
if any.  Returns the number of cover data atoms deleted.


=item B<AddCoverArt>


  $qt->AddCoverArt( $jpeg_art, 13 );  # $jpeg_art is an iTunes compatible jpeg 
  $qt->AddCoverArt( $jpeg_art );      # the same as above, defaults to type 13
  $qt->AddCoverArt( $png_art, 14 );   # PNG graphics are data type 14

Add cover artwork to the file. Creates a new covr atom if needed. Returns 1 if 
successful, otherwise null.

The method adds a single album cover by either adding one covr atom or 
by adding one cover's data to an existing covr atom. Takes a argument which 
should be a compatible graphic format binary, but does NO checks for 
compatibility with iTunes' cover art display. The type should be 13 
for jpeg, 14 for png graphics format, but defaults to 13.


=back

=head2 MP3::Tag and Audio::TagLib Compatible Functions

=over 4

=item B<autoinfo>