The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
 / 
DBIx-Class-MoreHelpers-1.0001
River stage zero No dependents
++
/ DBIx::Class::Helper::ResultSet::MoreShortcuts

NAME

DBIx::Class::Helper::ResultSet::MoreShortcuts - Additional shortcuts to common searches (->blank, ->is, etc)

VERSION

version 1.0001

SYNOPSIS

    # To apply to a specific ResultSet:
    package MyApp::Schema::ResultSet::Foo;
    
    __PACKAGE__->load_components(qw{Helper::ResultSet::MoreShortcuts});
    
    ...
    
    1;
    
    # Or, to apply to the entire schema:
    package MyApp::Schema;
    __PACKAGE__->load_namespaces( default_resultset_class => 'ResultSet' );
 
    1;

    package MyApp::Schema::ResultSet;
     
    __PACKAGE__->load_components(qw{Helper::ResultSet::MoreShortcuts});
     
    1;

    # And then elsewhere:
    my $foo_rs = $schema->resulset('Foo')->blank('column');

    # Both of these columns must be true:
    my $check_rs = $schema->resultset('Foo')->is(['active', 'ready_to_ship']);

DESCRIPTION

This helper set provides even more convenience methods for resultset selections. In all cases where you can send a list of fields, all of the fields must match the value, except in the case of is_any.

blank

 $foo_rs->blank('field');
 $foo_rs->blank(['field1','field2']);

not_blank

 $foo_rs->not_blank('field');
 $foo_rs->not_blank(['field1','field2']);

blank_or_null

 $foo_rs->blank_or_null('field');
 $foo_rs->blank_or_null(['field1','field2']);

not_blank_or_null

 $foo_rs->not_blank_or_null('field');
 $foo_rs->not_blank_or_null(['field1','field2']);

is

 $foo_rs->is('boolean_field');
 $foo_rs->is(['boolean_field1','boolean_field2']);

is_not

 $foo_rs->is_not('boolean_field');
 $foo_rs->is_not(['boolean_field1','boolean_field2']);

is_any

 $foo_rs->is_any(['boolean_field1','boolean_field2']);

zero

 $foo_rs->zero('numeric_field');
 $foo_rs->zero(['numeric_field1', 'numeric_field2']);

null_or_zero

 $foo_rs->null_or_zero('numeric_field');
 $foo_rs->null_or_zero(['numeric_field1', 'numeric_field2']);

nonzero

 $foo_rs->nonzero('numeric_field');
 $foo_rs->nonzero(['numeric_field1', 'numeric_field2']);

positive

 $foo_rs->positive('numeric_field');
 $foo_rs->positive(['numeric_field1', 'numeric_field2']);

negative

 $foo_rs->negative('numeric_field');
 $foo_rs->negative(['numeric_field1', 'numeric_field2']);

ROADMAP

  • None of these are really doing much checking on their inputs. Oughta fix that and throw exceptions.

SEE ALSO

This component is actually a number of other components put together in a tidy bundle. It is entirely probable that more will be added. You can use the individual ones, if you like:

AUTHOR

D Ruth Holloway <ruth@hiruthie.me>

COPYRIGHT AND LICENSE

This software is copyright (c) 2023 by D Ruth Holloway.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.