view release on metacpan or  search on metacpan

pm/XMMSClient/Glib.pm  view on Meta::CPAN

package Audio::XMMSClient::Glib;

use strict;
use warnings;
use Glib qw( TRUE FALSE );
use base qw(Audio::XMMSClient);

sub new {
    my $class = shift;

    my $self = $class->SUPER::new(@_);
    bless $self, $class;

    return $self;
}

sub connect {
    my $self = shift;
    my $res = $self->SUPER::connect(@_);

    $self->io_need_out_callback_set(\&need_out);
    Glib::IO->add_watch( $self->io_fd_get, 'in', sub { $self->handle_in(@_) } );
    $self->{has_out_watch} = 0;

    return $res;
}

sub need_out {
    my ($self, $flag) = @_;