File Coverage

blib/lib/Audio/Daemon/MPG123.pm

Criterion	Covered	Total	%
statement	9	51	17.6
branch	0	16	0.0
condition	0	6	0.0
subroutine	3	11	27.2
pod	0	8	0.0
total	12	92	13.0

package Audio::Daemon::MPG123;

use IO::Socket::INET;
use IO::Select;
use vars qw($VERSION);
$VERSION='0.9Beta';

sub new {
  my ($proto, %arg)  = @_;
  my $class = ref($proto) || $proto;
  my $self = {};
  foreach my $k (qw/Allow Deny Server Port Log/) {
    $self->{$k} = $arg{$k} if (defined $arg{$k});
  }
  $self->{sep} = sprintf("%c", 255);
  $self->{subsep} = sprintf("%c", 254);
  bless($self, $class);
}

sub debug { my $self = shift; return $self->log('debug', @_); }
sub info { my $self = shift; return $self->log('info', @_); }
sub error { my $self = shift; return $self->log('error', @_); }
sub crit { my $self = shift; return $self->log('crit', @_); }
sub warn { my $self = shift; return $self->log('warn', @_); }

sub log {
  my $self = shift;
  my @caller = caller(2);
  # print "caller line is ".$caller[2]."\n";
  # ($package, $filename, $line, $subroutine, $hasargs,
  #  $wantarray, $evaltext, $is_require, $hints, $bitmask)
  if (defined $self->{Log}) {
    &{$self->{Log}}(@_, @caller);
    return 1;
  } else {
    return 0;
  }
}

sub socket {
  my $self = shift;
  if (ref $self->{socket} eq 'IO::Socket::INET') {
    $self->debug('caller requested existing socket');
    return $self->{socket}
  }
  if (ref $self eq 'Audio::Daemon::MPG123::Server') {
    if (! defined $self->{Port}) {
      $self->crit("No Port defined for socket creation");
      return;
    }
    $self->{socket} = IO::Socket::INET->new(LocalPort => $self->{Port}, Proto=>'udp');
  } elsif (ref $self eq 'Audio::Daemon::MPG123::Client') {
    if (! defined $self->{Port} || ! defined $self->{Server}) {
      $self->crit("Need both the Port and Server defined for socket creation");
      return;
    }
    $self->{socket} = IO::Socket::INET->new(PeerPort => $self->{Port}, PeerAddr => $self->{Server}, Proto=>'udp');
  }
  if (! defined $self->{socket}) {
    $self->crit("Failed to initialize Socket: $!");
    return;
  }
  return $self->{socket};
}

1;

__END__