File Coverage

blib/lib/POE/Declare/Meta/Internal.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 23 23 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             In practice, all this declaration really does is to guarentee that the
19             HASH key for that name will never be used by any other part of the object
20             or by any child classes.
21              
22             =cut
23              
24 4     4   71 use 5.008007;
  4         41  
  4         161  
25 4     4   21 use strict;
  4         7  
  4         120  
26 4     4   20 use warnings;
  4         5  
  4         84  
27 4     4   21 use POE::Declare::Meta::Slot ();
  4         6  
  4         154  
28              
29 4     4   31 use vars qw{$VERSION @ISA};
  4         49  
  4         338  
30             BEGIN {
31 4     4   13 $VERSION = '0.59';
32 4         180 @ISA = 'POE::Declare::Meta::Slot';
33             }
34              
35             1;
36              
37             =pod
38              
39             =head1 SUPPORT
40              
41             Bugs should be always be reported via the CPAN bug tracker at
42              
43             L
44              
45             For other issues, or commercial enhancement or support, contact the author.
46              
47             =head1 AUTHORS
48              
49             Adam Kennedy Eadamk@cpan.orgE
50              
51             =head1 SEE ALSO
52              
53             L, L
54              
55             =head1 COPYRIGHT
56              
57             Copyright 2006 - 2012 Adam Kennedy.
58              
59             This program is free software; you can redistribute
60             it and/or modify it under the same terms as Perl itself.
61              
62             The full text of the license can be found in the
63             LICENSE file included with this module.
64              
65             =cut