File Coverage

blib/lib/POE/Declare/Meta/Internal.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 22 22 100.0


line stmt bran cond sub pod time code
1             package POE::Declare::Meta::Internal;
2              
3             =pod
4              
5             =head1 NAME
6              
7             POE::Declare::Meta::Internal - Reserve a named slot for internal use
8              
9             =head1 SYNOPSIS
10              
11             declare privatevar => 'Internal';
12              
13             =head1 DESCRIPTION
14              
15             B is a L sub-class
16             that is used to reserve a slot name purely for internal use.
17              
18             =cut
19              
20 7     7   84 use 5.008007;
  7         22  
21 7     7   20 use strict;
  7         6  
  7         97  
22 7     7   18 use warnings;
  7         7  
  7         112  
23 7     7   20 use POE::Declare::Meta::Slot ();
  7         5  
  7         119  
24              
25 7     7   18 use vars qw{$VERSION @ISA};
  7         9  
  7         320  
26             BEGIN {
27 7     7   10 $VERSION = '0.23_01';
28 7         173 @ISA = 'POE::Declare::Meta::Slot';
29             }
30              
31             1;
32              
33             =pod
34              
35             =head1 SUPPORT
36              
37             Bugs should be always be reported via the CPAN bug tracker at
38              
39             L
40              
41             For other issues, or commercial enhancement or support, contact the author.
42              
43             =head1 AUTHORS
44              
45             Adam Kennedy Eadamk@cpan.orgE
46              
47             =head1 SEE ALSO
48              
49             L, L
50              
51             =head1 COPYRIGHT
52              
53             Copyright 2006 - 2009 Adam Kennedy.
54              
55             This program is free software; you can redistribute
56             it and/or modify it under the same terms as Perl itself.
57              
58             The full text of the license can be found in the
59             LICENSE file included with this module.
60              
61             =cut