Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more
12345—67891011121314151617 package MojoMojo::Schema::ResultSet::Role;use strict;use warnings;use base qw/MojoMojo::Schema::Base::ResultSet/;HideShow 6 lines of Pod=head2 active_rolesFilter inactive roles.=cutsub active_roles { shift->search( { active => 1 } );}1;
package
MojoMojo::Schema::ResultSet::Role;
use
strict;
warnings;
base
qw/MojoMojo::Schema::Base::ResultSet/
;
=head2 active_roles
Filter inactive roles.
=cut
sub
active_roles {
shift
->search( {
active
=> 1 } );
}
1;