File Coverage

blib/lib/Querylet/Input.pm
Criterion Covered Total %
statement 15 15 100.0
branch 2 2 100.0
condition n/a
subroutine 6 6 100.0
pod 2 2 100.0
total 25 25 100.0


line stmt bran cond sub pod time code
1 1     1   4545 use strict;
  1         2  
  1         37  
2 1     1   5 use warnings;
  1         2  
  1         44  
3             package Querylet::Input;
4             {
5             $Querylet::Input::VERSION = '0.401';
6             }
7             # ABSTRACT: generic input handler for Querlet::Query
8              
9 1     1   6 use Carp;
  1         1  
  1         234  
10              
11              
12             sub import {
13 2     2   2138 my ($class, $type) = @_;
14 2 100       10 $type = $class->default_type unless $type;
15              
16 2         9 my $handler = $class->handler;
17              
18 2         22 Querylet::Query->register_input_handler($type => $handler);
19             }
20              
21              
22 1     1 1 243 sub default_type { croak "default_type method unimplemented" }
23              
24              
25 1     1 1 1119 sub handler { croak "handler method unimplemented" }
26              
27              
28             "I do endeavor to give satisfaction, sir.";
29              
30             __END__