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 = '1018';
5 6     6   178187 use strict;
  6         43  
  6         238  
6 6     6   47 use warnings;
  6         15  
  6         256  
7 6     6   44 use Carp;
  6         17  
  6         521  
8 6     6   2249 use DDG::Meta;
  6         29  
  6         576  
9              
10              
11             sub import {
12 24     24   11191 my ( $class ) = @_;
13 24         92 my $target = caller;
14              
15             #
16             # Make base
17             #
18              
19 24         290 DDG::Meta->apply_base_to_package($target);
20            
21             #
22             # Apply keywords
23             #
24              
25 24         28069 DDG::Meta->apply_goodie_keywords($target);
26            
27             }
28              
29             1;
30              
31             __END__