view release on metacpan or  search on metacpan

lib/MusicBrainz/Collection.pm  view on Meta::CPAN

}

sub _load_auth {
    my $self = shift;
    
    require File::Spec;
    my $file = File::Spec->catfile( $ENV{HOME}, '.musicbrainz' );
    
    if ( -e $file ) {
        open my $fh, '<', $file or die "Unable to read .musicbrainz file: $!\n";
        my $prefs = do { local $/; <$fh> };
        close $fh;
        
        ($self->{user}) = $prefs =~ m/user\s+(.+)/;
        ($self->{pass}) = $prefs =~ m/pass\s+(.+)/;
    }
}

sub _find_albums {
    my ( $self, $dir ) = @_;
    
    my $iter = File::Next::files( {
        file_filter => sub { Audio::Scan->is_supported( $File::Next::name ) },
    }, $dir );