File Coverage

blib/lib/Test/C2FIT/GenericAdapter.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 1 1 100.0
total 13 13 100.0


line stmt bran cond sub pod time code
1             # $Id: GenericAdapter.pm,v 1.6 2006/06/16 15:20:56 tonyb Exp $
2             #
3             # Copyright (c) 2002-2005 Cunningham & Cunningham, Inc.
4             # Released under the terms of the GNU General Public License version 2 or later.
5             #
6             # Perl translation by Dave W. Smith
7             # Modified by Tony Byrne
8              
9             package Test::C2FIT::GenericAdapter;
10              
11 3     3   1211 use strict;
  3         6  
  3         113  
12 3     3   14 use vars qw(@ISA);
  3         6  
  3         284  
13             @ISA = qw(Test::C2FIT::TypeAdapter);
14              
15             sub parse {
16 14     14 1 18 my $self = shift;
17 14         17 my ($s) = @_;
18              
19 14         60 return $s;
20             }
21              
22             1;