File Coverage

lib/News/Pan/Server.pm

Criterion	Covered	Total	%
statement	61	61	100.0
branch	14	24	58.3
condition	4	10	40.0
subroutine	14	14	100.0
pod	6	6	100.0
total	99	115	86.0

package News::Pan::Server;
use strict;
use Carp;
use warnings;
use Cwd;
use LEOCHARRE::DEBUG;
use News::Pan::Server::Group;
our $VERSION = sprintf "%d.%02d", q$Revision: 1.2 $ =~ /(\d+)/g;

sub new {
   my ($class,$self) = @_;
   $self||={};
   bless $self, $class;
   return $self;
}

sub set_abs_path {
   my ($self,$arg) = @_;
   defined $arg or confess('missing arg');

   $self->_reset; # reset everything
   my $resolved =  Cwd::abs_path($arg) or warn("cannot resolve $arg") and return 0;
   -d $resolved or warn($resolved." is not a dir") and return 0;

   $self->{_data_} ||={};
   $self->{_data_}->{abs_path} = $resolved;
   $self->{abs_path} = undef; # so it wont stay with original value if the object is used multiple times for diff servers
   return 1;
}

sub abs_path {
   my $self = shift;
   unless( defined $self->{_data_}->{abs_path} ){

      defined $self->{abs_path} or confess('missing abs_path argument to constructor');
      $self->set_abs_path( $self->{abs_path} ) or confess("can't set abs path to $$self{abs_path}");
   }
   return $self->{_data_}->{abs_path};
}

sub groups_subscribed {
   my $self = shift;
   return $self->_groups;
}


sub groups_subscribed_binaries {
   my $self = shift;
   my @g = grep { /\.binaries\./i } @{$self->groups_subscribed};
   return \@g;
}


# reset all data
sub _reset {
   my $self = shift;
   $self->{_data_} = undef;
   return 1;
}


sub _groups {
   my $self = shift;

   unless( $self->{_data_}->{subscribed_groups} ){

      opendir(DIR,$self->abs_path) or confess($!);
      my @files = grep { -f $self->abs_path.'/'.$_ } readdir DIR;
      closedir DIR or confess($!);

      $self->{_data_}->{subscribed_groups} = \@files;
   }
   return $self->{_data_}->{subscribed_groups};
}


sub group {
   my ($self,$name) = @_;
   defined $name or confess('misssing arg');
   $self->{_data}->{group_objects} ||={};
   unless($self->{_data}->{group_objects}->{$name}){

      $self->{_data}->{group_objects}->{$name} = new News::Pan::Server::Group;
      $self->{_data}->{group_objects}->{$name}->set_abs_path( $self->abs_path.'/'.$name ) or warn("cant set $name group");

   }

   return $self->{_data}->{group_objects}->{$name};
}




1;

__END__