File Coverage

blib/lib/MojoMojo/Schema/ResultSet/Role.pm
Criterion Covered Total %
statement 9 10 90.0
branch n/a
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 15 86.6


line stmt bran cond sub pod time code
1             package MojoMojo::Schema::ResultSet::Role;
2              
3 40     40   67137 use strict;
  40         102  
  40         1035  
4 40     40   190 use warnings;
  40         94  
  40         1019  
5 40     40   195 use parent qw/MojoMojo::Schema::Base::ResultSet/;
  40         90  
  40         223  
6              
7             =head1 NAME
8              
9             MojoMojo::Schema::ResultSet::Role - resultset methods on roles
10              
11             =head1 METHODS
12              
13             =head2 active_roles
14              
15             Filter inactive roles.
16              
17             =cut
18              
19             sub active_roles {
20 0     0 1   shift->search( { active => 1 } );
21             }
22              
23             =head1 AUTHOR
24              
25             Marcus Ramberg <mramberg@cpan.org>
26              
27             =head1 LICENSE
28              
29             This library is free software. You can redistribute it and/or modify
30             it under the same terms as Perl itself.
31              
32             =cut
33              
34             1;