File Coverage

blib/lib/DDG/Goodie.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 21 21 100.0


line stmt bran cond sub pod time code
1             package DDG::Goodie;
2             our $AUTHORITY = 'cpan:DDG';
3             # ABSTRACT: Goodie package for easy keywords
4             $DDG::Goodie::VERSION = '1016';
5 6     6   35810 use strict;
  6         7  
  6         144  
6 6     6   18 use warnings;
  6         6  
  6         117  
7 6     6   18 use Carp;
  6         7  
  6         264  
8 6     6   1918 use DDG::Meta;
  6         12  
  6         434  
9              
10              
11             sub import {
12 24     24   8569 my ( $class ) = @_;
13 24         48 my $target = caller;
14              
15             #
16             # Make base
17             #
18              
19 24         108 DDG::Meta->apply_base_to_package($target);
20            
21             #
22             # Apply keywords
23             #
24              
25 24         17892 DDG::Meta->apply_goodie_keywords($target);
26            
27             }
28              
29             1;
30              
31             __END__