File Coverage

blib/lib/PONAPI/DAO/Request/Role/HasSort.pm
Criterion Covered Total %
statement 9 9 100.0
branch 2 2 100.0
condition n/a
subroutine 3 3 100.0
pod n/a
total 14 14 100.0


line stmt bran cond sub pod time code
1             # ABSTRACT: DAO request role - `sort`
2             package PONAPI::DAO::Request::Role::HasSort;
3              
4 8     8   5515 use Moose::Role;
  8         18  
  8         57  
5              
6             has sort => (
7             traits => [ 'Array' ],
8             is => 'ro',
9             isa => 'ArrayRef',
10             default => sub { +[] },
11             handles => {
12             "has_sort" => 'count',
13             },
14             );
15              
16             sub _validate_sort {
17 9     9   413 my $self = shift;
18              
19 9 100       470 $self->has_sort
20             or $self->_bad_request( "`sort` is missing values" );
21              
22 9         27 return;
23             }
24              
25 8     8   43165 no Moose::Role; 1;
  8         59  
  8         40  
26              
27             __END__
28              
29             =pod
30              
31             =encoding UTF-8
32              
33             =head1 NAME
34              
35             PONAPI::DAO::Request::Role::HasSort - DAO request role - `sort`
36              
37             =head1 VERSION
38              
39             version 0.002006
40              
41             =head1 AUTHORS
42              
43             =over 4
44              
45             =item *
46              
47             Mickey Nasriachi <mickey@cpan.org>
48              
49             =item *
50              
51             Stevan Little <stevan@cpan.org>
52              
53             =item *
54              
55             Brian Fraser <hugmeir@cpan.org>
56              
57             =back
58              
59             =head1 COPYRIGHT AND LICENSE
60              
61             This software is copyright (c) 2016 by Mickey Nasriachi, Stevan Little, Brian Fraser.
62              
63             This is free software; you can redistribute it and/or modify it under
64             the same terms as the Perl 5 programming language system itself.
65              
66             =cut