1234567891011121314151617181920 package Helpers;use strict;use warnings;use Carp;use Exporter;our @ISA = qw(Exporter);our @EXPORT_OK = qw( test_report);sub test_report { my $r = shift; return 1 if not defined $r; for my $k ( qw| commit commit_short file md5_hex | ) { return 0 unless exists $r->{$k}; } return 1;}1;
package
Helpers;
use
strict;
warnings;
Carp;
Exporter;
our
@ISA
=
qw(Exporter)
;
@EXPORT_OK
qw(
test_report
)
sub
test_report {
my
$r
shift
return
1
if
not
defined
for
$k
(
qw| commit commit_short file md5_hex |
) {
0
unless
exists
->{
};
}
1;