File Coverage

blib/lib/Pinto/Globals.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             # ABSTRACT: Global variables used across the Pinto utilities
2              
3             package Pinto::Globals;
4              
5 66     66   109417 use strict;
  66         145  
  66         1808  
6 66     66   345 use warnings;
  66         127  
  66         1747  
7              
8 66     66   24169 use LWP::UserAgent;
  66         1456815  
  66         6739  
9              
10             #------------------------------------------------------------------------------
11              
12             our $VERSION = '0.13'; # VERSION
13              
14             #------------------------------------------------------------------------------
15              
16             ## no critic qw(PackageVars);
17             our $current_utc_time = undef;
18             our $current_time_offset = undef;
19             our $current_username = undef;
20             our $current_author_id = undef;
21             our $is_interactive = undef;
22              
23             #------------------------------------------------------------------------------
24             # TODO: Decide how to expose this
25              
26             our $UA = LWP::UserAgent->new(
27             agent => 'Pinto/' . (__PACKAGE__->VERSION || '???'),
28             env_proxy => 1,
29             keep_alive => 5,
30             );
31              
32             #------------------------------------------------------------------------------
33             1;
34              
35             __END__
36              
37             =pod
38              
39             =encoding UTF-8
40              
41             =for :stopwords Jeffrey Ryan Thalhammer
42              
43             =head1 NAME
44              
45             Pinto::Globals - Global variables used across the Pinto utilities
46              
47             =head1 VERSION
48              
49             version 0.13
50              
51             =head1 AUTHOR
52              
53             Jeffrey Ryan Thalhammer <jeff@stratopan.com>
54              
55             =head1 COPYRIGHT AND LICENSE
56              
57             This software is copyright (c) 2015 by Jeffrey Ryan Thalhammer.
58              
59             This is free software; you can redistribute it and/or modify it under
60             the same terms as the Perl 5 programming language system itself.
61              
62             =cut