File Coverage

blib/lib/DS/TypeSpec/Any.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 15 16 93.7


line stmt bran cond sub pod time code
1             #!perl
2            
3             # ########################################################################## #
4             # Title: Any type - wildcard typespec
5             # Creation date: 2007-03-05
6             # Author: Michael Zedeler
7             # Description: Class implementing a wildcard type spec that matches
8             # anything.
9             # File: $Source: /data/cvs/lib/DSlib/lib/DS/TypeSpec/Any.pm,v $
10             # Repository: kronhjorten
11             # State: $State: Exp $
12             # Documentation: inline
13             # Recepient: -
14             # ########################################################################## #
15            
16             package DS::TypeSpec::Any;
17            
18 6     6   124546 use base qw{ DS::TypeSpec };
  6         11  
  6         1408  
19            
20 6     6   36 use strict;
  6         11  
  6         198  
21 6     6   50 use Carp::Assert;
  6         10  
  6         33  
22            
23             our ($VERSION) = $DS::VERSION;
24             our ($REVISION) = '$Revision: 1.1 $' =~ /(\d+\.\d+)/;
25            
26             sub contains {
27 6     6 0 28 assert( $_[1]->isa('DS::TypeSpec') );
28 6         24 return 1;
29             }
30            
31             $DS::TypeSpec::Any = new DS::TypeSpec::Any;
32            
33             1;