File Coverage

blib/lib/Data/Transform/Identity.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	28	28	100.0

# vim: ts=2 sw=2 expandtab
package Data::Transform::Identity;
use strict;

use Data::Transform;

use vars qw($VERSION @ISA);
$VERSION = '0.01';
@ISA = qw(Data::Transform);


sub new {
  my $type = shift;

  my $self = bless [ [] ], $type;

  return $self;
}

sub clone {
  my $self = shift;

  my $clone = bless [ [] ], ref $self;

  return $clone;
}

sub _handle_get_data {
  my ($self, $data) = @_;

  return $data;
}

sub _handle_put_data {
  my ($self, $chunk) = @_;

  return $chunk;
}


1;

__END__