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         30  
  16         498  
4 16     16   85 use warnings;
  16         34  
  16         1067  
5              
6             my $not_exists = bless {}, 'DBIx::Custom::NotExists';
7              
8 72     72 1 602 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