Net-DAAP-Client
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Net/DAAP/Client.pm view on Meta::CPAN
DATABASE_LIST => undef,
DATABASE => undef,
SONGS => undef,
PLAYLISTS => undef,
VALIDATOR => undef,
);
sub new {
my $class = shift;
my $self = bless { %Defaults } => $class;
if (@_ > 1) {
$self->_init(@_);
} elsif (@_) {
$self->{SERVER_HOST} = shift;
} else {
warn "Why are you calling new with no arguments?";
die "Need to implement get/set for hostname and port";
}
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.030 second using v1.00-cache-2.02-grep-82fe00e-cpan-503542c4f10 )