File Coverage

lib/News/Pan/Server/Group.pm

Criterion	Covered	Total	%
statement	55	61	90.1
branch	10	22	45.4
condition	2	8	25.0
subroutine	12	13	92.3
pod	3	6	50.0
total	82	110	74.5

package News::Pan::Server::Group;
use strict;
use warnings;
use Carp;
use base 'News::Pan::Server::Group::_Search';
use LEOCHARRE::DEBUG;

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

sub name {
   my $self = shift;
   my $abs = $self->abs_path;
   $abs=~/([^\/]+)$/ or confess('cant get group name');
   return $1;
}

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;
   -f $resolved or warn($resolved." is not a file") 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 groups
   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 subjects {
   my $self = shift;
   return $self->_subjects;
}






sub _subjects {
   my $self = shift;

   unless( defined $self->{_data_}->{subjects} ){
      my $abs = $self->abs_path;
      my $subjects=[];

      open(INF,"< $abs") or confess($!);

      my $lastline;

      while(){
         my $line = $_;
         if ($line=~/^\s+$/){ #article ended

         # then last line was subject
         push @$subjects, $lastline;
         }
         $line=~s/^\s|\s$//g;
         $lastline = $line;
      }
      close INF or confess($!);

      $self->{_data_}->{subjects} = $subjects;
   }

   return $self->{_data_}->{subjects};
}

sub subjects_count {
   my $self = shift;
   my $count = scalar @{$self->subjects};
   return $count;
}

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


1;

__END__