aDriv4 website!

Linux web1060.sh.fuk1 4.18.0-425.19.2.lve.el7h.x86_64 #1 SMP Thu Apr 6 13:40:55 UTC 2023 x86_64
Apache
127.0.0.1

File Name : Utils.pm

package Tangerine::Utils;
$Tangerine::Utils::VERSION = '0.23';
use 5.010;
use strict;
use warnings;
use version 0.77;
use Exporter 'import';
our @EXPORT_OK = qw(accessor addoccurence any none stripquotelike $vre);

our $vre = defined($version::LAX) ?
    qr/^($version::LAX)$/o :
    (defined($version::regex::LAX) ?
        qr/^($version::regex::LAX)$/o :
        qr/^(v?[0-9]+(?:\.[0-9]+)*(?:_[0-9]+)?)$/o );

my $HAVE_LIST_UTIL_133 = eval { require List::Util; List::Util->VERSION(1.33) };
unless ($HAVE_LIST_UTIL_133) { require List::MoreUtils }
*any = $HAVE_LIST_UTIL_133 ? \&List::Util::any : \&List::MoreUtils::any;
*none = $HAVE_LIST_UTIL_133 ? \&List::Util::none : \&List::MoreUtils::none;

sub accessor {
    # TODO: This needs checks
    $_[1]->{$_[0]} = $_[2] ? $_[2] : $_[1]->{$_[0]}
}

sub stripquotelike {
    my @filtered = map {
            if (/^(?:'|").*$/o) {
                substr $_, 1, -1
            } elsif (/^(?:\(|\[|\{).*$/so) {
                stripquotelike(split /,|=>/so, substr $_, 1, -1)
            } elsif (/^qq?\s*[^\w](.*)[^\w]$/so) {
                $1
            } elsif (/^qw\s*[^\w](.*)[^\w]$/so) {
                grep { $_ } split /\s+/so, $1
            } else {
                $_
            }
        } grep {
            1 if !/^(?:,|=>|;|)$/so
        } map {
            (my $trim = $_) =~ s/^\s+|\s+$//sgo; $trim
        } @_;
    return wantarray ? @filtered : $filtered[0];
}

sub addoccurence {
    my ($a, $b) = @_;
    for my $k (keys %$b) {
        if (exists $$a{$k}) {
            $a->{$k} = [ @{$a->{$k}}, $b->{$k} ];
        } else {
            $a->{$k} = [ $b->{$k} ];
        }
    }
    return $a;
}

__END__

=pod

=encoding utf8

=head1 NAME

Tangerine::Utils - A set of routines used by various L<Tangerine> modules

=head1 DESCRIPTION

This module exports the various routines used by L<Tangerine> internals.

=head1 ROUTINES

=over

=item C<accessor>

A helper routine to generate common attribute accessors.

=item C<stripquotelike>

Attempt to sanitise and strip quote-like operators from a list.

=item C<addoccurence>

A helper routine for module hash references merging.

=back

=head1 SEE ALSO

L<Tangerine>

=head1 AUTHOR

Petr Šabata <contyk@redhat.com>

=head1 COPYRIGHT AND LICENSE

See LICENSE for licensing details.

=cut

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2023-08-25 11:53:15
..	dir	-	root/root	0755	2023-08-25 12:05:20
hook	dir	-	root/root	0755	2023-08-25 11:53:15
Hook.pm	text/plain	2.11 KB	root/root	0644	2016-10-23 08:37:23
HookData.pm	text/plain	2.33 KB	root/root	0644	2016-10-23 08:37:23
Occurence.pm	text/plain	1.17 KB	root/root	0644	2016-10-23 08:37:23
Utils.pm	text/plain	2.29 KB	root/root	0644	2016-10-23 08:37:23

For more Private tool come to me!

https://t.me/aDriv4vz