File Coverage

blib/lib/CTKx.pm
Criterion Covered Total %
statement 13 14 92.8
branch n/a
condition n/a
subroutine 5 6 83.3
pod 2 2 100.0
total 20 22 90.9


line stmt bran cond sub pod time code
1             package CTKx;
2 1     1   1252 use strict;
  1         1  
  1         24  
3 1     1   4 use utf8;
  1         2  
  1         5  
4              
5             =encoding utf-8
6              
7             =head1 NAME
8              
9             CTKx - Singleton CTK extension
10              
11             =head1 VERSION
12              
13             Version 2.01
14              
15             =head1 SYNOPSIS
16              
17             package main;
18              
19             use CTK;
20             use CTKx;
21              
22             my $ctkx = CTKx->instance( ctk => new CTK );
23              
24             package MyApp;
25              
26             my $c = CTKx->instance->c;
27             my $ctk = CTKx->instance->ctk;
28              
29             =head1 DESCRIPTION
30              
31             Extension for working with CTK as "Singleton Pattern"
32              
33             =head2 c, ctk
34              
35             my $c = CTKx->instance->c;
36             my $ctk = CTKx->instance->ctk;
37              
38             Returns ctk-object
39              
40             =head1 HISTORY
41              
42             =over 8
43              
44             =item B<1.00 / 15.10.2013>
45              
46             Init version
47              
48             =item B<1.00 Mon 29 Apr 22:26:18 MSK 2019>
49              
50             New edition
51              
52             =back
53              
54             See C file for details
55              
56             =head1 DEPENDENCIES
57              
58             L
59              
60             =head1 TO DO
61              
62             See C file
63              
64             =head1 BUGS
65              
66             * none noted
67              
68             =head1 SEE ALSO
69              
70             C, L
71              
72             =head1 AUTHOR
73              
74             Serż Minus (Sergey Lepenkov) L Eabalama@cpan.orgE
75              
76             =head1 COPYRIGHT
77              
78             Copyright (C) 1998-2022 D&D Corporation. All Rights Reserved
79              
80             =head1 LICENSE
81              
82             This program is free software; you can redistribute it and/or
83             modify it under the same terms as Perl itself.
84              
85             See C file and L
86              
87             =cut
88              
89 1     1   31 use base qw/Class::Singleton/;
  1         2  
  1         464  
90 1     1   336 use vars qw/$VERSION/;
  1         2  
  1         69  
91             $VERSION = '2.01';
92              
93 0     0 1 0 sub c { shift->{ctk} }
94 1     1 1 52 sub ctk { shift->{ctk} }
95              
96             1;
97              
98             __END__