File Coverage

blib/lib/WordLists/Tag.pm
Criterion Covered Total %
statement 15 17 88.2
branch n/a
condition n/a
subroutine 5 6 83.3
pod 0 1 0.0
total 20 24 83.3


line stmt bran cond sub pod time code
1             package WordLists::Tag;
2 1     1   920 use strict;
  1         2  
  1         32  
3 1     1   5 use warnings;
  1         2  
  1         23  
4 1     1   5 use utf8;
  1         2  
  1         5  
5 1     1   23 use WordLists::Common qw(/generic/);
  1         2  
  1         144  
6 1     1   6 use WordLists::Base;
  1         2  
  1         99  
7             our $VERSION = $WordLists::Base::VERSION;
8            
9             our $AUTOLOAD;
10            
11             sub new
12             {
13 0     0 0   my ($class, $args) = @_;
14            
15 0           bless ($args, $class);
16             }
17             warn 'WordLists::Tag is a placeholder, use a specific tagger';
18             1;
19            
20             =pod
21            
22             =head1 NAME
23            
24             WordLists::Tag
25            
26             =head1 SYNOPSIS
27            
28             my $tagger = WordLists::Tag->new();
29            
30             =head1 DESCRIPTION
31            
32             Doesn't do anything... yet. This is a placeholder.
33            
34             =head1 BUGS
35            
36             Please use the Github issues tracker.
37            
38             =head1 LICENSE
39            
40             Copyright 2011-2012 © Cambridge University Press. This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
41            
42             =cut