/usr/share/perl5/SHARYANTO/Array/Util.pm is in libsharyanto-utils-perl 0.53-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 | package SHARYANTO::Array::Util;
use 5.010;
use strict;
use warnings;
use experimental 'smartmatch';
use Data::Clone;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(match_array_or_regex match_regex_or_array);
our $VERSION = '0.53'; # VERSION
our %SPEC;
my $_str_or_re = ['any*'=>{of=>['re*','str*']}];
$SPEC{match_array_or_regex} = {
v => 1.1,
summary => 'Check whether an item matches (list of) values/regexes',
description => <<'_',
This routine can be used to match an item against a regex or a list of
strings/regexes, e.g. when matching against an ACL.
_
examples => [
{args=>{needle=>"abc", haystack=>["abc", "abd"]}, result=>1},
{args=>{needle=>"abc", haystack=>qr/ab./}, result=>1},
{args=>{needle=>"abc", haystack=>[qr/ab./, "abd"]}, result=>1},
],
args_as => 'array',
args => {
needle => {
schema => ["str*"],
pos => 0,
req => 1,
},
haystack => {
# XXX checking this schema might actually take longer than matching
# the needle! so when arg validation is implemented, provide a way
# to skip validating this schema
schema => ["any*" => {
# turned off temporarily 2012-12-25, Data::Sah is currently broken
#of => [$_str_or_re, ["array*"=>{of=>$_str_or_re}]],
}],
pos => 1,
req => 1,
},
},
result_naked => 1,
};
sub match_array_or_regex {
my ($needle, $haystack) = @_;
my $ref = ref($haystack);
if ($ref eq 'ARRAY') {
return $needle ~~ @$haystack;
} elsif (!$ref) {
return $needle =~ /$haystack/;
} elsif ($ref eq 'Regexp') {
return $needle =~ $haystack;
} else {
die "Invalid haystack, must be regex or array of strings/regexes";
}
}
*match_regex_or_array = \&match_array_or_regex;
$SPEC{match_regex_or_array} = clone $SPEC{match_array_or_regex};
$SPEC{match_regex_or_array}{summary} = 'Alias for match_array_or_regex';
1;
# ABSTRACT: Array-related utilities
__END__
=pod
=encoding utf-8
=head1 NAME
SHARYANTO::Array::Util - Array-related utilities
=head1 VERSION
version 0.53
=head1 SYNOPSIS
=head1 DESCRIPTION
=head1 FUNCTIONS
None are exported by default, but they are exportable.
None are exported by default, but they are exportable.
=head2 match_array_or_regex(@args) -> any
This routine can be used to match an item against a regex or a list of
strings/regexes, e.g. when matching against an ACL.
Arguments ('*' denotes required arguments):
=over 4
=item * B<haystack>* => I<any>
=item * B<needle>* => I<str>
=back
Return value:
=head2 match_regex_or_array(@args) -> any
This routine can be used to match an item against a regex or a list of
strings/regexes, e.g. when matching against an ACL.
Arguments ('*' denotes required arguments):
=over 4
=item * B<haystack>* => I<any>
=item * B<needle>* => I<str>
=back
Return value:
=head1 AUTHOR
Steven Haryanto <stevenharyanto@gmail.com>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2013 by Steven Haryanto.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|