File Coverage

blib/lib/Apache/Singleton/Process.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 Apache::Singleton::Process;
2             BEGIN {
3 7     7   37608 $Apache::Singleton::Process::VERSION = '0.15';
4             }
5              
6             # ABSTRACT: One instance per One Process
7              
8 7     7   51 use strict;
  7         12  
  7         276  
9 7     7   38 use base 'Apache::Singleton';
  7         13  
  7         5930  
10              
11 7     7   56 no strict 'refs';
  7         16  
  7         1219  
12              
13             sub _get_instance {
14 14     14   24 my $class = shift;
15 14         30 my $global = "$class\::_instance";
16 14         63 return $$global;
17             }
18              
19             sub _set_instance {
20 6     6   13 my($class, $instance) = @_;
21 6         18 my $global = "$class\::_instance";
22 6         27 $$global = $instance;
23             }
24              
25             1;
26              
27              
28              
29             =pod
30              
31             =head1 NAME
32              
33             Apache::Singleton::Process - One instance per One Process
34              
35             =head1 VERSION
36              
37             version 0.15
38              
39             =head1 SYNOPSIS
40              
41             package Printer;
42             use base qw(Apache::Singleton::Process);
43              
44             =head1 DESCRIPTION
45              
46             See L.
47              
48             =head1 SEE ALSO
49              
50             L
51              
52             =head1 SOURCE
53              
54             The development version is on github at L
55             and may be cloned from L
56              
57             =head1 BUGS
58              
59             Please report any bugs or feature requests to bug-apache-singleton@rt.cpan.org or through the web interface at:
60             http://rt.cpan.org/Public/Dist/Display.html?Name=Apache-Singleton
61              
62             =head1 AUTHOR
63              
64             Michael Schout
65              
66             =head1 COPYRIGHT AND LICENSE
67              
68             This software is copyright (c) 2009 by Michael Schout.
69              
70             This is free software; you can redistribute it and/or modify it under
71             the same terms as the Perl 5 programming language system itself.
72              
73             =cut
74              
75              
76             __END__