File Coverage

blib/lib/DBIx/Custom/NotExists.pm
Criterion Covered Total %
statement 7 7 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 1 1 100.0
total 11 11 100.0


line stmt bran cond sub pod time code
1             package DBIx::Custom::NotExists;
2              
3 16     16   117 use strict;
  16         36  
  16         469  
4 16     16   81 use warnings;
  16         37  
  16         1019  
5              
6             my $not_exists = bless {}, 'DBIx::Custom::NotExists';
7              
8 72     72 1 577 sub singleton { $not_exists }
9              
10             =head1 NAME
11              
12             DBIx::Custom::NotExists - Not exists object
13              
14             =head1 SYNOPSYS
15              
16             $not_exists = DBIx::Custom::NotExists->singleton;
17              
18             =head1 METHODS
19              
20             =head2 singleton
21              
22             $not_exists = DBIx::Custom::NotExists->singleton;
23              
24             L singleton object.
25              
26             =cut