File Coverage

blib/lib/String/String.pm
Criterion Covered Total %
statement 8 8 100.0
branch 4 4 100.0
condition n/a
subroutine 3 3 100.0
pod 1 1 100.0
total 16 16 100.0


line stmt bran cond sub pod time code
1             ## ----------------------------------------------------------------------------
2             # String::String
3             # -----------------------------------------------------------------------------
4             # Mastering programmed by YAMASHINA Hio
5             #
6             # Copyright 2006 YAMASHINA Hio
7             # -----------------------------------------------------------------------------
8             # $Id: perl.txt,v 1.9 2004/12/27 07:11:50 hio Exp $
9             # -----------------------------------------------------------------------------
10             package String::String;
11 2     2   82617 use strict;
  2         6  
  2         110  
12 2     2   13 use warnings;
  2         4  
  2         310  
13             require Exporter;
14             our @ISA = qw(Exporter);
15             our $VERSION = '0.01';
16             our @EXPORT_OK = qw(string);
17             1;
18              
19             sub string
20             {
21 21 100   21 1 620 wantarray ? map{ defined($_) ? "$_" : '' } @_ : join('', &string);
  15 100       131  
22             }
23              
24             __END__