File Coverage

blib/lib/Map/Metro/Standard/Moops.pm
Criterion Covered Total %
statement 40 40 100.0
branch n/a
condition 1 2 50.0
subroutine 13 13 100.0
pod n/a
total 54 55 98.1


line stmt bran cond sub pod time code
1 1     1   61 use 5.16.0;
  1         3  
2 1     1   5 use strict;
  1         2  
  1         22  
3 1     1   6 use warnings;
  1         1  
  1         52  
4              
5             our $VERSION = '0.2300'; # VERSION
6             # ABSTRACT: Extends Moops
7              
8             package #
9             Map::Metro::Standard::Moops {
10              
11 1     1   5 use base 'MoopsX::UsingMoose';
  1         2  
  1         759  
12 1     1   37489 use List::Util 1.33 ();
  1         21  
  1         24  
13 1     1   532 use Map::Metro::Types();
  1         2  
  1         32  
14 1     1   7 use Types::Standard();
  1         2  
  1         20  
15 1     1   5 use Types::Path::Tiny();
  1         1  
  1         20  
16 1     1   808 use Eponymous::Hash();
  1         415  
  1         24  
17 1     1   1243 use List::Compare();
  1         30529  
  1         30  
18 1     1   712 use MooseX::SetOnce();
  1         12271  
  1         35  
19 1     1   794 use MooseX::AttributeDocumented();
  1         7259  
  1         179  
20              
21             sub import {
22 15     15   46 my $class = shift;
23 15         43 my %opts = @_;
24              
25 15   50     28 push @{ $opts{'imports'} ||= [] } => (
  15         429  
26             'List::Util' => [qw/any none sum/],
27             'Eponymous::Hash' => ['eh'],
28             'String::Trim' => ['trim'],
29             'feature' => [qw/:5.16/],
30             'Types::Standard' => [{ replace => 1 }, '-types'],
31             'Types::Path::Tiny' => [{ replace => 1 }, '-types'],
32             'Map::Metro::Types' => [{ replace => 1 }, '-types'],
33             'List::Compare' => [],
34             'MooseX::SetOnce' => [],
35             'MooseX::AttributeDocumented' => [],
36             );
37              
38 15         120 $class->SUPER::import(%opts);
39             }
40             }
41              
42             1;
43              
44             __END__
45              
46             =pod
47              
48             =encoding UTF-8
49              
50             =head1 NAME
51              
52             Map::Metro::Standard::Moops - Extends Moops
53              
54             =head1 VERSION
55              
56             Version 0.2300, released 2016-01-14.
57              
58             =head1 SOURCE
59              
60             L<https://github.com/Csson/p5-Map-Metro>
61              
62             =head1 HOMEPAGE
63              
64             L<https://metacpan.org/release/Map-Metro>
65              
66             =head1 AUTHOR
67              
68             Erik Carlsson <info@code301.com>
69              
70             =head1 COPYRIGHT AND LICENSE
71              
72             This software is copyright (c) 2016 by Erik Carlsson.
73              
74             This is free software; you can redistribute it and/or modify it under
75             the same terms as the Perl 5 programming language system itself.
76              
77             =cut