File Coverage

blib/lib/Global/Context/Terminal.pm
Criterion Covered Total %
statement 7 7 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 10 11 90.9


line stmt bran cond sub pod time code
1             package Global::Context::Terminal;
2             {
3             $Global::Context::Terminal::VERSION = '0.003';
4             }
5 2     2   1575 use Moose::Role;
  2         4  
  2         18  
6             # ABSTRACT: the origin of a request
7              
8              
9 2     2   13943 use namespace::autoclean;
  2         5  
  2         18  
10              
11             has uri => (
12             is => 'ro',
13             isa => 'Str',
14             required => 1,
15             );
16              
17 1     1 0 37 sub as_string { $_[0]->uri }
18              
19             1;
20              
21             __END__
22              
23             =pod
24              
25             =head1 NAME
26              
27             Global::Context::Terminal - the origin of a request
28              
29             =head1 VERSION
30              
31             version 0.003
32              
33             =head1 OVERVIEW
34              
35             Global::Context::Terminal is a role.
36              
37             Terminal objects represent the source machine (or other locator) of a request,
38             like an IP address, hostname, or other identifier. They have only one required
39             attribute, C<uri>, which must be a string.
40              
41             =head1 AUTHOR
42              
43             Ricardo Signes <rjbs@cpan.org>
44              
45             =head1 COPYRIGHT AND LICENSE
46              
47             This software is copyright (c) 2010 by Ricardo Signes.
48              
49             This is free software; you can redistribute it and/or modify it under
50             the same terms as the Perl 5 programming language system itself.
51              
52             =cut