/usr/share/perl5/WebService/MusicBrainz.pm is in libwebservice-musicbrainz-perl 0.93-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 | package WebService::MusicBrainz;
use strict;
our $VERSION = '0.93';
=head1 NAME
WebService::MusicBrainz
=head1 SYNOPSIS
use WebService::MusicBrainz;
my $artist_ws = WebService::MusicBrainz->new_artist();
my $track_ws = WebService::MusicBrainz->new_track();
my $release_ws = WebService::MusicBrainz->new_release();
my $label_ws = WebService::MusicBrainz->new_label();
=head1 DESCRIPTION
This module will act as a factory using static methods to return specific web service objects;
=head1 METHODS
=head2 new_artist()
Return new instance of WebService::MusicBrainz::Artist object.
=cut
sub new_artist {
my $class = shift;
require WebService::MusicBrainz::Artist;
return WebService::MusicBrainz::Artist->new();
}
=head2 new_track
Return new instance of WebService::MusicBrainz::Track object.
=cut
sub new_track {
my $class = shift;
require WebService::MusicBrainz::Track;
return WebService::MusicBrainz::Track->new();
}
=head2 new_release
Return new instance of WebService::MusicBrainz::Release object.
=cut
sub new_release {
my $class = shift;
require WebService::MusicBrainz::Release;
return WebService::MusicBrainz::Release->new();
}
=head2 new_release
Return new instance of WebService::MusicBrainz::Label object.
=cut
sub new_label {
my $class = shift;
require WebService::MusicBrainz::Label;
return WebService::MusicBrainz::Label->new();
}
=head1 AUTHOR
=over 4
=item Bob Faist <bob.faist@gmail.com>
=back
=head1 COPYRIGHT AND LICENSE
Copyright 2006-2007 by Bob Faist
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=head1 SEE ALSO
http://wiki.musicbrainz.org/XMLWebService
=cut
1;
|