Net-DAAP-Client

 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 distribution
 view release on metacpan -  search on metacpan

( run in 1.030 second using v1.00-cache-2.02-grep-82fe00e-cpan-503542c4f10 )