File Coverage

blib/lib/Devel/TypeCheck/Sym2type.pm
Criterion Covered Total %
statement 9 12 75.0
branch n/a
condition n/a
subroutine 3 5 60.0
pod 2 2 100.0
total 14 19 73.6


line stmt bran cond sub pod time code
1             package Devel::TypeCheck::Sym2type;
2              
3 1     1   8 use strict;
  1         1  
  1         40  
4 1     1   7 use Devel::TypeCheck::Type;
  1         2  
  1         39  
5 1     1   6 use Devel::TypeCheck::Util;
  1         2  
  1         195  
6              
7             =head1 NAME
8              
9             Devel::TypeCheck::Sym2type - abstract parent to symbol table types.
10              
11             =head1 SYNOPSIS
12              
13             Devel::TypeCheck::Type is an abstract class and should not be
14             instantiated directly. This defines the interface for symbol table
15             types, for keeping track of types in a symbol table.
16              
17             =head1 DESCRIPTION
18              
19             =over 4
20              
21             =cut
22              
23             =item B
24              
25             Create a new symbol to type table.
26              
27             =cut
28             sub new {
29 0     0 1   my ($name) = @_;
30 0           return bless({}, $name);
31             }
32              
33             =item B
34              
35             Get a particular item from the table.
36              
37             =cut
38             sub get {
39 0     0 1   die("Method &get is abstract in class Devel::TypeCheck::Sym2type");
40             }
41              
42             TRUE;
43              
44             =back
45              
46             =head1 AUTHOR
47              
48             Gary Jackson, C<< >>
49              
50             =head1 BUGS
51              
52             This version is specific to Perl 5.8.1. It may work with other
53             versions that have the same opcode list and structure, but this is
54             entirely untested. It definitely will not work if those parameters
55             change.
56              
57             Please report any bugs or feature requests to
58             C, or through the web interface at
59             L.
60             I will be notified, and then you'll automatically be notified of progress on
61             your bug as I make changes.
62              
63             =head1 COPYRIGHT & LICENSE
64              
65             Copyright 2005 Gary Jackson, all rights reserved.
66              
67             This program is free software; you can redistribute it and/or modify it
68             under the same terms as Perl itself.
69              
70             =cut