use 5.014000;
use strict;
use warnings;
+use re '/s';
our $VERSION = '5999.000_004';
my ($self) = @_;
my ($file) = (ref $self) =~ s,::,/,gr;
my $usage;
- open my $fh, '>', \$usage;
+ open my $fh, '>', \$usage; ## no critic (RequireCheckedOpen)
pod2usage(-input => $INC{"$file.pm"}, -output => $fh, -exitval => 'NOEXIT', -verbose => 99, -sections => [qw/SYNOPSIS DESCRIPTION/]);
- close $fh;
+ close $fh; ## no critic (RequireCheckedClose)
$usage =~ s/Usage:/Usage examples:/;
1 while chomp $usage;
$usage
=head1 COPYRIGHT AND LICENSE
-Copyright (C) 2015 by Marius Gavrilescu
+Copyright (C) 2014-2015 by Marius Gavrilescu
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.20.1 or,