File Coverage

blib/lib/Data/Transform/Meta.pm

Criterion	Covered	Total	%
statement	16	18	88.8
branch	1	2	50.0
condition			n/a
subroutine	5	6	83.3
pod	0	2	0.0
total	22	28	78.5

package Data::Transform::Meta;
use strict;

sub new {
   my ($type, $data) = @_;

   my $self = { };
   $self->{data} = $data if (defined $data);

   return bless $self, $type
}

sub data {
   my $self = shift;

   return $self->{data};
}

package # hide from PAUSE
        Data::Transform::Meta::SENDBACK;
use base qw(Data::Transform::Meta);

package # hide from PAUSE
        Data::Transform::Meta::EOF;
use base qw(Data::Transform::Meta);

package # hide from PAUSE
        Data::Transform::Meta::Error;
use base qw(Data::Transform::Meta);

1;