NAME

Astroboy::AlbumFile

SYNOPSIS

   use Astroboy::AlbumFile;

   my $m =  Astroboy::AlbumFile->new('~/music/file.mp3');
   
   my $organized_path = $m->refile 
      or die($m->errstr);

   print "moved to $organized_path\n";

DESCRIPTION

Private.

METHODS

new()

Argument is path to file. Returns undef if not file.

is_mp3()

Boolean.

title() track() artist() album() comment() year() genre()

If this is an mp3, attempts to seek these id3tags.

rel_loc_suggested()

Setget. Returns path like artist/album.

filename()

filename_suggested()

Tries to determine what the filename should be.

rel_path_suggested()

abs_path_suggested()

abs_path_suggested_exists()

abs_music()

Abs path to music archive. Defaults to $ENV{HOME}/music. Please note this is a package variable, so it affects all Astroboy objects.

METHODS PRIVATE

f()

Returns File::PathInfo object.

t()

Returns MP3::Tag object.

CAVEATS

This package is in development. Do not use the api, use the cli. Use the command line interface scripts for stability.

AUTHOR

Leo Charre leocharre at cpan dot org

COPYRIGHT

LICENSE

This package is free software; you can redistribute it and/or modify it under the same terms as Perl itself, i.e., under the terms of the "Artistic License" or the "GNU General Public License".

DISCLAIMER

This package is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

See the "GNU General Public License" for more details.

CPAN RT