AnyEvent-DAAP-Server

 view release on metacpan or  search on metacpan

README.pod  view on Meta::CPAN

                    my $method = $p->{method} || $path;
                    $method =~ s<[/-]><_>g;
                    $self->$method($connection, $request, $p);
                }
            );
        });
        push @{ $self->connections }, $connection;
    };
}

sub database_updated {
    my $self = shift;
    $self->{revision}++;
    foreach my $connection (@{ $self->connections }) {
        $connection->pause_cv->send if $connection->pause_cv;
    }
}

# XXX dmap_itemid is used as only its lower 3 bytes

sub add_track {

README.pod  view on Meta::CPAN

Afterwards you will want to call AnyEvent::CondVar's recv().

=item $daap->add_track($track);

Add a new track that is an instance of L<AnyEvent::DAAP::Server::Track>.

=item $daap->add_playlist($playlist);

Add a new playlist that is an instance of L<AnyEvent::DAAP::Server::Playlist>.

=item $daap->database_updated;

After add_track() or add_playlist(), call this method to notify clients that the database is updated.

=back

=head1 AUTHOR

motemen E<lt>motemen@gmail.comE<gt>

=head1 SEE ALSO

L<Net::DAAP::Server>

eg/simple_daap_server.pl  view on Meta::CPAN

            my $playlist = AnyEvent::DAAP::Server::Playlist->new(
                dmap_itemname => $dir,
            );
            $daap->add_playlist($playlist);
            $playlist;
        };
        my $track = AnyEvent::DAAP::Server::Track::File::MP3->new(file => $file);
        $daap->add_track($track);
        $playlist->add_track($track);
    }
    $daap->database_updated;
    undef $w;
};

$daap->setup;

AE::cv->wait;

lib/AnyEvent/DAAP/Server.pm  view on Meta::CPAN

                    my $method = $p->{method} || $path;
                    $method =~ s<[/-]><_>g;
                    $self->$method($connection, $request, $p);
                }
            );
        });
        push @{ $self->connections }, $connection;
    };
}

sub database_updated {
    my $self = shift;
    $self->{revision}++;
    foreach my $connection (@{ $self->connections }) {
        $connection->pause_cv->send if $connection->pause_cv;
    }
}

# XXX dmap_itemid is used as only its lower 3 bytes

sub add_track {

lib/AnyEvent/DAAP/Server.pm  view on Meta::CPAN

Afterwards you will want to call AnyEvent::CondVar's recv().

=item $daap->add_track($track);

Add a new track that is an instance of L<AnyEvent::DAAP::Server::Track>.

=item $daap->add_playlist($playlist);

Add a new playlist that is an instance of L<AnyEvent::DAAP::Server::Playlist>.

=item $daap->database_updated;

After add_track() or add_playlist(), call this method to notify clients that the database is updated.

=back

=head1 AUTHOR

motemen E<lt>motemen@gmail.comE<gt>

=head1 SEE ALSO

L<Net::DAAP::Server>