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 = '1017';
5 6     6   36078 use strict;
  6         15  
  6         155  
6 6     6   30 use warnings;
  6         12  
  6         138  
7 6     6   28 use Carp;
  6         12  
  6         349  
8 6     6   1988 use DDG::Meta;
  6         25  
  6         430  
9              
10              
11             sub import {
12 24     24   10102 my ( $class ) = @_;
13 24         64 my $target = caller;
14              
15             #
16             # Make base
17             #
18              
19 24         177 DDG::Meta->apply_base_to_package($target);
20            
21             #
22             # Apply keywords
23             #
24              
25 24         23468 DDG::Meta->apply_goodie_keywords($target);
26            
27             }
28              
29             1;
30              
31             __END__