File Coverage

lib/Pod/PseudoPod/DOM/App.pm
Criterion Covered Total %
statement 12 16 75.0
branch n/a
condition 0 2 0.0
subroutine 4 5 80.0
pod 0 1 0.0
total 16 24 66.6


line stmt bran cond sub pod time code
1             package Pod::PseudoPod::DOM::App;
2             # ABSTRACT: helper functions shared between bin/ppdom2* modules
3              
4 25     25   29691 use strict;
  25         62  
  25         898  
5 25     25   150 use warnings;
  25         56  
  25         882  
6 25     25   15004 use autodie;
  25         399586  
  25         128  
7 25     25   178602 use Exporter 'import';
  25         80  
  25         3868  
8             our @EXPORT_OK = qw( open_fh );
9              
10             sub open_fh
11             {
12 0     0 0   my ($file, $mode) = @_;
13              
14             # default to reading
15 0   0       $mode ||= '<';
16              
17 0           open my $fh, $mode . ':encoding(UTF-8)', $file;
18 0           return $fh;
19             }
20              
21             1;
22              
23             __END__
24              
25             =pod
26              
27             =encoding UTF-8
28              
29             =head1 NAME
30              
31             Pod::PseudoPod::DOM::App - helper functions shared between bin/ppdom2* modules
32              
33             =head1 VERSION
34              
35             version 1.20210620.2004
36              
37             =head1 AUTHOR
38              
39             chromatic <chromatic@wgz.org>
40              
41             =head1 COPYRIGHT AND LICENSE
42              
43             This software is copyright (c) 2021 by chromatic.
44              
45             This is free software; you can redistribute it and/or modify it under
46             the same terms as the Perl 5 programming language system itself.
47              
48             =cut