File Coverage

blib/lib/Devel/TypeCheck/Type/TSub.pm
Criterion Covered Total %
statement 9 10 90.0
branch n/a
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 15 86.6


line stmt bran cond sub pod time code
1             package Devel::TypeCheck::Type::TSub;
2              
3 1     1   7 use strict;
  1         2  
  1         40  
4 1     1   7 use Carp;
  1         2  
  1         68  
5              
6 1     1   7 use Devel::TypeCheck::Util;
  1         2  
  1         216  
7              
8             =head1 NAME
9              
10             Devel::TypeCheck::Type::TSub - Interface for types with subtypes.
11              
12             =head1 SYNOPSIS
13              
14             use Devel::TypeCheck::Type::TSub;
15              
16             @ISA(... Devel::TypeCheck::Type::TSub ...);
17              
18             =head1 DESCRIPTION
19              
20             =over 4
21              
22             =cut
23             # **** INSTANCE ****
24              
25             =item B
26              
27             Abstract method forcing inheritors to override hasSubtype.
28              
29             =cut
30             sub hasSubtype {
31 0     0 1   croak("Method &hasSubtype is abstract in Devel::TypeCheck::Type::TSub");
32             }
33              
34             TRUE;
35              
36             =back
37              
38             =head1 AUTHOR
39              
40             Gary Jackson, C<< >>
41              
42             =head1 BUGS
43              
44             This version is specific to Perl 5.8.1. It may work with other
45             versions that have the same opcode list and structure, but this is
46             entirely untested. It definitely will not work if those parameters
47             change.
48              
49             Please report any bugs or feature requests to
50             C, or through the web interface at
51             L.
52             I will be notified, and then you'll automatically be notified of progress on
53             your bug as I make changes.
54              
55             =head1 COPYRIGHT & LICENSE
56              
57             Copyright 2005 Gary Jackson, all rights reserved.
58              
59             This program is free software; you can redistribute it and/or modify it
60             under the same terms as Perl itself.
61              
62             =cut