File Coverage

blib/lib/Puppet/LogBody.pm

Criterion	Covered	Total	%
statement	36	36	100.0
branch	8	10	80.0
condition			n/a
subroutine	7	7	100.0
pod	4	4	100.0
total	55	57	96.4

############################################################
#
# $Header: /home/domi/perlDev/old/Puppet_LogBody/RCS/LogBody.pm,v 1.3 2007/09/20 12:55:03 domi Exp $
#
# $Source: /home/domi/perlDev/old/Puppet_LogBody/RCS/LogBody.pm,v $
# $Revision: 1.3 $
# $Locker:  $
#
############################################################

package Puppet::LogBody ;

use Carp ;

use strict ;
use vars qw($VERSION) ;

$VERSION = sprintf "%d.%03d", q$Revision: 1.3 $ =~ /(\d+)\.(\d+)/;

# see loadspecs for other names
sub new
  {
    my $type = shift ;
    my $self = {} ;
    my %args = @_ ;

    $self->{name} = $args{'name'} ; #complete log name

    $self->{how}  = $args{'how'} ;

    $self->{'data'}= [] ;

    bless $self,$type ;
  }

sub log
  {
    my $self = shift ;
    my $text = shift ;
    my %args = @_ ;

    my $how = exists $args{'how'} ? $args{how} : $self->{how};

    chomp ($text) ;
    $text .= "\n";

    push @{$self->{'data'}}, $text ; # always keep text in local array

    if (defined $how)
      {
        my $str = defined $self->{name} ? $self->{name}.": \n\t" : '';
        $str .= $text;
        if ($how eq 'print')   {print $str ;}
        elsif ($how eq 'warn') {warn  $str ;}
      }
    return $text ;
  }

sub clear
  {
    my $self = shift ;
    $self->{'data'} =[];
  }

sub getAll
  {
    my $self = shift ;
    return @{$self->{'data'}} ;
  }

1;

__END__