File Coverage

blib/lib/Boxer/CLI/Command/Commands.pm
Criterion Covered Total %
statement 36 36 100.0
branch n/a
condition n/a
subroutine 10 10 100.0
pod 1 1 100.0
total 47 47 100.0


line stmt bran cond sub pod time code
1             package Boxer::CLI::Command::Commands;
2              
3             =encoding UTF-8
4              
5             =cut
6              
7 3     3   2120 use v5.20;
  3         10  
8 3     3   16 use utf8;
  3         4  
  3         14  
9 3     3   116 use Role::Commons -all;
  3         8  
  3         17  
10 3     3   4126 use feature 'signatures';
  3         8  
  3         246  
11 3     3   20 use namespace::autoclean 0.16;
  3         43  
  3         16  
12              
13 3     3   199 use Boxer::CLI -command;
  3         12  
  3         17  
14              
15 3     3   882 use strictures 2;
  3         18  
  3         92  
16 3     3   459 no warnings "experimental::signatures";
  3         6  
  3         276  
17              
18             =head1 VERSION
19              
20             Version v1.4.2
21              
22             =cut
23              
24             our $VERSION = "v1.4.2";
25              
26             require App::Cmd::Command::commands;
27             our @ISA;
28             unshift @ISA, 'App::Cmd::Command::commands';
29              
30             use constant {
31 3         701 abstract => q[list installed boxer commands],
32 3     3   19 };
  3         5  
33              
34 1         2 sub sort_commands ( $self, @commands )
35 1     1 1 21 {
  1         2  
  1         2  
36 1         3 my $float = qr/^(?:help|commands|aliases|about)$/;
37 1         2 my @head = sort grep { $_ =~ $float } @commands;
  6         33  
38 1         2 my @tail = sort grep { $_ !~ $float } @commands;
  6         18  
39 1         5 return ( \@head, \@tail );
40             }
41              
42             =head1 AUTHOR
43              
44             Jonas Smedegaard C<< <dr@jones.dk> >>.
45              
46             =cut
47              
48             our $AUTHORITY = 'cpan:JONASS';
49              
50             =head1 COPYRIGHT AND LICENCE
51              
52             Copyright © 2013-2016 Jonas Smedegaard
53              
54             This is free software; you can redistribute it and/or modify it under
55             the same terms as the Perl 5 programming language system itself.
56              
57             =head1 DISCLAIMER OF WARRANTIES
58              
59             THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
60             WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
61             MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
62              
63             =cut
64              
65             1;