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 : Quick.pm

package Object::Quick;
use strict;
use warnings;

use Mock::Quick::Object;
use Mock::Quick::Method;
use Mock::Quick::Util;
use Carp qw/croak carp/;

sub import {
    carp "Object::Quick is depricated, use Mock::Quick instead.";
    my $class = shift;
    my $caller = caller;
    my ( @names, %args );
    for my $i ( @_ ) {
        if( $i =~ m/^-/ ) {
            $args{$i}++;
        }
        else {
            push @names => $i;
        }
    }

if ( $args{'-obj'} ) {
        $names[0] ||= 'obj';
        $names[1] ||= 'method';
        $names[2] ||= 'clear';
    }

croak <<EOT if $args{'-class'};
'-class' is no longer supported as of V1.0
if you use this functionality send me an email at exodist7\@gmail.com
I will add it in.
EOT

inject( $caller, $names[0], sub { Mock::Quick::Object->new( @_ )}) if $names[0];
    inject( $caller, $names[1], sub(&) { Mock::Quick::Method->new( @_ )}) if $names[1];
    inject( $caller, $names[2], sub { \$Mock::Quick::Util::CLEAR }) if $names[2];
}

__END__

=head1 NAME

Object::Quick - Depricated, see L<Mock::Quick>

=head1 DESCRIPTION

Legacy interface to L<Mock::Quick>

=head1 AUTHORS

Chad Granum L<exodist7@gmail.com>

=head1 COPYRIGHT

Mock-Quick is free software; Standard perl licence.

Mock-Quick is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
PARTICULAR PURPOSE. See the license for more details.

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
Deadly	dir	-	root/root	0755	2023-08-25 11:53:15
ID	dir	-	root/root	0755	2023-08-25 11:52:55
InsideOut	dir	-	root/root	0755	2023-08-25 11:52:55
Pluggable	dir	-	root/root	0755	2023-08-25 11:52:53
Realize	dir	-	root/root	0755	2023-08-25 11:52:58
Deadly.pm	text/plain	7.41 KB	root/root	0644	2006-09-25 05:31:40
ID.pm	text/plain	4.71 KB	root/root	0644	2014-01-31 07:07:41
InsideOut.pm	text/plain	104.54 KB	root/root	0644	2013-10-03 07:34:54
InsideOut.pod	text/plain	113.79 KB	root/root	0644	2013-10-03 07:34:54
MultiType.pm	text/plain	17.88 KB	root/root	0644	2004-12-21 07:32:14
Pluggable.pm	text/plain	20.01 KB	root/root	0644	2010-10-09 02:52:25
Quick.pm	text/plain	1.47 KB	root/root	0644	2014-01-30 07:38:36

For more Private tool come to me!

https://t.me/aDriv4vz