|
- added EXPERIMENTAL pass at...
|
1 |
package DBIx::Custom::NotExists; |
| 2 | ||
| 3 |
use strict; |
|
| 4 |
use warnings; |
|
| 5 | ||
| 6 |
my $not_exists = bless {}, 'DBIx::Custom::NotExists';
|
|
| 7 | ||
| 8 |
sub singleton { $not_exists }
|
|
| 9 | ||
| 10 |
=head1 NAME |
|
| 11 | ||
| 12 |
DBIx::Custom::NotExists |
|
| 13 | ||
| 14 |
=head1 SYNOPSYS |
|
| 15 | ||
| 16 |
$not_exists = DBIx::Custom::NotExists->singleton; |
|
| 17 | ||
| 18 |
=head1 METHODS |
|
| 19 | ||
| 20 |
=head2 C<singleton> |
|
| 21 | ||
| 22 |
$not_exists = DBIx::Custom::NotExists->singleton; |
|
| 23 | ||
| 24 |
L<DBIx::Custom::NotExists> singleton object. |
|
| 25 | ||
| 26 |
=cut |