File Coverage

blib/lib/UNIVERSAL/to_s.pm
Criterion Covered Total %
statement 8 8 100.0
branch 4 4 100.0
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 15 16 93.7


line stmt bran cond sub pod time code
1             ## ----------------------------------------------------------------------------
2             # UNIVERSAL::to_s
3             # -----------------------------------------------------------------------------
4             # Mastering programmed by YAMASHINA Hio
5             #
6             # Copyright 2006 YAMASHINA Hio
7             # -----------------------------------------------------------------------------
8             # $Id$
9             # -----------------------------------------------------------------------------
10             package UNIVERSAL::to_s;
11 1     1   23347 use strict;
  1         2  
  1         91  
12 1     1   5 use warnings;
  1         2  
  1         89  
13              
14             our $VERSION = '0.01';
15              
16             sub UNIVERSAL::to_s
17             {
18             # same as String::String 0.01.
19 11 100   11 0 487 wantarray ? map{ defined($_) ? "$_" : '' } @_ : join('', &UNIVERSAL::to_s);
  10 100       85  
20             }
21              
22             __END__