fc03f45 13 years ago
1 contributor
26 lines | 0.4kb
package DBIx::Custom::NotExists;

use strict;
use warnings;

my $not_exists = bless {}, 'DBIx::Custom::NotExists';

sub singleton { $not_exists }

=head1 NAME

DBIx::Custom::NotExists

=head1 SYNOPSYS

    $not_exists = DBIx::Custom::NotExists->singleton;

=head1 METHODS

=head2 C<singleton>

    $not_exists = DBIx::Custom::NotExists->singleton;

L<DBIx::Custom::NotExists> singleton object.

=cut