|
experimental extended select...
|
1 |
package DBIx::Custom::Or; |
| 2 | ||
| 3 |
use strict; |
|
| 4 |
use warnings; |
|
| 5 | ||
| 6 |
use base 'Object::Simple'; |
|
| 7 | ||
| 8 |
__PACKAGE__->attr(values => sub { [] });
|
|
| 9 | ||
| 10 |
1; |
|
| 11 | ||
| 12 |
=head1 NAME |
|
| 13 | ||
| 14 |
DBIx::Custom::Or - or condition |
|
| 15 | ||
| 16 |
=head1 SYNOPSYS |
|
| 17 | ||
| 18 |
my $or = DBIx::Custom::Or->new; |
|
| 19 | ||
| 20 |
=head1 ATTRIBUTES |
|
| 21 | ||
| 22 |
=head2 C<values> |
|
| 23 | ||
| 24 |
my $values = $or->values; |
|
| 25 |
$or = $or->values([1, 2]); |
|
| 26 |