File Coverage

blib/lib/Filter/ExtractSource/CodeObj.pm

Criterion	Covered	Total	%
statement	9	12	75.0
branch			n/a
condition	1	3	33.3
subroutine	2	3	66.6
pod	0	2	0.0
total	12	20	60.0

package Filter::ExtractSource::CodeObj;

sub new {
  my $invocant = shift;
  my $class    = ref($invocant) || $invocant;
  my $self     = {};
  bless $self,$class;
  return $self;
}

sub merge {
  my $self  = shift;
  push @{$self->{lines}},shift;
  $self->{end} = shift;
}

sub DESTROY {
  my $self = shift;
  print join "",@{$self->{lines}},$self->{end};
}

1;