File Coverage

blib/lib/Connector/Builtin/Static.pm
Criterion Covered Total %
statement 22 22 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 3 3 100.0
total 33 33 100.0


line stmt bran cond sub pod time code
1             # Connector::Builtin::Static
2             #
3             # Simple connector returning a static value for all requests
4             #
5              
6             use strict;
7 5     5   96296 use warnings;
  5         72  
  5         156  
8 5     5   23 use English;
  5         10  
  5         123  
9 5     5   29  
  5         13  
  5         47  
10             use Moose;
11 5     5   2770 extends 'Connector::Builtin';
  5         381871  
  5         56  
12              
13             my $self = shift;
14             my $arg = shift;
15 15     15 1 39  
16 15         29 return $self->{LOCATION};
17             }
18 15         154  
19              
20             my $self = shift;
21             return { TYPE => "scalar", VALUE => $self->{LOCATION} };
22             }
23 4     4 1 12  
24 4         39  
25             my $self = shift;
26             return 1;
27              
28             }
29 3     3 1 7  
30 3         20 no Moose;
31             __PACKAGE__->meta->make_immutable;
32              
33             1;
34 5     5   35378  
  5         10  
  5         27  
35             =head1 Name
36              
37             Connector::Builtin::Simple
38              
39             =head1 Description
40              
41             Return a static value regardless of the requested key.
42             Set the value using the "LOCATION" parameter. Supports only
43             scalar values using the get/get_meta call.