File Coverage

blib/lib/Sort/Sub/by_first_num_in_text.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 11 11 100.0


line stmt bran cond sub pod time code
1             package Sort::Sub::by_first_num_in_text;
2              
3             our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
4             our $DATE = '2020-02-28'; # DATE
5             our $DIST = 'Sort-Sub'; # DIST
6             our $VERSION = '0.118'; # VERSION
7              
8 1     1   20 use 5.010001;
  1         4  
9 1     1   5 use strict;
  1         2  
  1         21  
10 1     1   5 use warnings;
  1         1  
  1         74  
11             require Sort::Sub::by_num_in_text;
12             *gen_sorter = \&Sort::Sub::by_num_in_text::gen_sorter;
13             *meta = \&Sort::Sub::by_num_in_text::meta;
14              
15             1;
16             # ABSTRACT: Sort by first number found in text or (if no number is found) ascibetically
17              
18             __END__