NAME

TagLib::FLAC::File - An implementation of FLAC metadata

SYNOPSIS

use TagLib::FLAC::File;

my $i = TagLib::FLAC::File->new("sample file.flac");
$i->ID3v2Tag(1)->setTitle(TagLib::String->new("sample title"));
print $i->tag()->title()->toCString(), "\n"; # got "sample title"

DESCRIPTION

This is implementation of FLAC metadata for non-Ogg FLAC files. At some point when Ogg / FLAC is more common there will be a similar implementation under the Ogg hiearchy.

This supports ID3v1, ID3v2 and Xiph style comments as well as reading stream properties from the file.

This implements and provides an interface for FLAC files to the TagLib::Tag and TagLib::AudioProperties interfaces by way of implementing the abstract TagLib::File as well as providing some additional information specific to FLAC files.

new(PV $file, BOOL readProperties = TRUE, PV $propertiesStyle = "Average")

Contructs a FLAC file from $file. If $readProperties is true the file's audio properties will also be read using $propertiesStyle. If false, $propertiesStyle is ignored.

This constructor will be dropped in favor of the one below in a future version.

new(PV $file, ID3v2::FrameFactory $frameFactory, BOOL $readProperties = TRUE, PV $propertiesStyle = "Average"

Contructs a FLAC file from $file. If $readProperties is true the file's audio properties will also be read using $propertiesStyle. If false, $propertiesStyle is ignored.

If this file contains and ID3v2 tag the frames will be created using $frameFactory.

DESTROY()

Destroys this instance of the File.

TagLib::Tag tag()

Returns the Tag for this file. This will be a union of XiphComment, ID3v1 and ID3v2 tags.

see ID3v2Tag() see ID3v1Tag() see XiphComment()

Properties audioProperties()

Returns the FLAC::Properties for this file. If no audio properties were read then this will return undef.

BOOL save()

Save the file. This will primarily save the XiphComment, but will also keep any old ID3-tags up to date. If the file has no XiphComment, one will be constructed from the ID3-tags.

This returns true if the save was successful.

ID3v2::Tag ID3v2Tag(BOOL $create = FALSE)

Returns an ID3v2 tag of the file.

If $create is false (the default) this will return undef if there is no valid ID3v2 tag. If $create is true if will create an ID3v2 tag if one does not exist.

note The Tag is still owned by the FLAC::File and should not be delete by the user. It will be deleted when the file (object) is destroyed.

ID3v1::Tag ID3v1Tag(BOOL $create = FALSE)

Returns an ID3v1 tag of the file.

If $create is false (the default) this will return undef if there is no valid ID3v1 tag. If $create is true it will create an ID3v1 tag if one does not exist.

note The Tag is still owned by the FLAC::File and should not be deleted by the user. It will be deleted when the file (object) is destroyed.

Ogg::XiphComment xiphComment(BOOL $create = FALSE)

Returns a XiphComment for the file.

If $create is false (the default) this will return undef if there is no valid XiphComment. If $create is true it will create a XiphComment if one does not exist.

note The Tag is still owned by the FLAC::File and should not be deleted by the user. It will be deleted when the file (object) is destroyed.

void setID3v2FrameFactory(ID3v2::FrameFactory $factory)

Set the ID3v2::FrameFactory to something other than the default. This can be used to specify the way that ID3v2 frames will be interpreted when

see ID3v2FrameFactory

ByteVector streamInfoData()

Returns the block of data used by FLAC::Properties for parsing the stream properties.

This method will not be public in a future release.

IV streamLength()

Returns the length of the audio-stream, used by FLAC::Properties for calculating the bitrate.

This method will not be public in a future release.

EXPORT

None by default.

SEE ALSO

TagLib File

AUTHOR

Dongxu Ma, <dongxu.ma@gmail.com>

COPYRIGHT AND LICENSE

Copyright (C) 2005 by Dongxu Ma

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.7 or, at your option, any later version of Perl 5 you may have available.