SEC [ happydogsrescue.org ]

Linux premium99.web-hosting.com 4.18.0-553.44.1.lve.el8.x86_64 #1 SMP Thu Mar 13 14:29:12 UTC 2025 x86_64

LiteSpeed

198.54.125.67 | Your IP: 216.73.216.4

Cant read [ /etc/named.conf ]

[ drwxr-xr-x ]

/ usr / share / perl5 / vendor_perl / Pod / Perldoc /

Home Upload Mass Deface Mass Delete Back Connect Info Server

Server Info

Operating System	:	Linux premium99.web-hosting.com 4.18.0-553.44.1.lve.el8.x86_64 #1 SMP Thu Mar 13 14:29:12 UTC 2025 x86_64
User / Group	:	915[girlrufr] / 913[girlrufr]
PHP Version	:	8.1.33
IP Server	:	198.54.125.67
Your IP	:	216.73.216.4
Storage	:	Total = 97.87 GB, Free = 72.83 GB [74%]
Domains	:	Cant read [ /etc/named.conf ]
Software	:	LiteSpeed
Disable Functions	:	All function is accessible
Useful Functions	:	gcc, lcc, cc, ld, make, php, perl, python, ruby, tar, gzip, bzip, bzialfa2, nc, locate, suidperl, git, docker, ssh
Downloader	:	wget, fetch, lynx, links, curl, get, lwp-mirror
CURL : ON \| SSH2 : OFF \| Magic Quotes : OFF \| MySQL : ON \| MSSQL : OFF \| PostgreSQL : ON \| Oracle : OFF
Safe Mode : OFF \| Open Basedir : NONE \| Safe Mode Exec Dir : NONE \| Safe Mode Include Dir : NONE

GetOptsOO.pm

package Pod::Perldoc::GetOptsOO;
use strict;

use vars qw($VERSION);
$VERSION = '3.28';

BEGIN { # Make a DEBUG constant ASAP
  *DEBUG = defined( &Pod::Perldoc::DEBUG )
   ? \&Pod::Perldoc::DEBUG
   : sub(){10};
}

sub getopts {
  my($target, $args, $truth) = @_;

$args ||= \@ARGV;

$target->aside(
    "Starting switch processing.  Scanning arguments [@$args]\n"
  ) if $target->can('aside');

return unless @$args;

$truth = 1 unless @_ > 2;

DEBUG > 3 and print "   Truth is $truth\n";

my $error_count = 0;

while( @$args  and  ($_ = $args->[0]) =~ m/^-(.)(.*)/s ) {
    my($first,$rest) = ($1,$2);
    if ($_ eq '--') {	# early exit if "--"
      shift @$args;
      last;
    }
    if ($first eq '-' and $rest) {      # GNU style long param names
      ($first, $rest) = split '=', $rest, 2;
    }
    my $method = "opt_${first}_with";
    if( $target->can($method) ) {  # it's argumental
      if($rest eq '') {   # like -f bar
        shift @$args;
        $target->warn( "Option $first needs a following argument!\n" ) unless @$args;
        $rest = shift @$args;
      } else {            # like -fbar  (== -f bar)
        shift @$args;
      }

DEBUG > 3 and print " $method => $rest\n";
      $target->$method( $rest );

# Otherwise, it's not argumental...
    } else {

if( $target->can( $method = "opt_$first" ) ) {
        DEBUG > 3 and print " $method is true ($truth)\n";
        $target->$method( $truth );

# Otherwise it's an unknown option...

} elsif( $target->can('handle_unknown_option') ) {
        DEBUG > 3
         and print " calling handle_unknown_option('$first')\n";

$error_count += (
          $target->handle_unknown_option( $first ) || 0
        );

} else {
        ++$error_count;
        $target->warn( "Unknown option: $first\n" );
      }

if($rest eq '') {   # like -f
        shift @$args
      } else {            # like -fbar  (== -f -bar )
        DEBUG > 2 and print "   Setting args->[0] to \"-$rest\"\n";
        $args->[0] = "-$rest";
      }
    }
  }

$target->aside(
    "Ending switch processing.  Args are [@$args] with $error_count errors.\n"
  ) if $target->can('aside');

$error_count == 0;
}

__END__

=head1 NAME

Pod::Perldoc::GetOptsOO - Customized option parser for Pod::Perldoc

=head1 SYNOPSIS

use Pod::Perldoc::GetOptsOO ();

Pod::Perldoc::GetOptsOO::getopts( $obj, \@args, $truth )
       or die "wrong usage";

=head1 DESCRIPTION

Implements a customized option parser used for
L<Pod::Perldoc>.

Rather like Getopt::Std's getopts:

=over

=item Call Pod::Perldoc::GetOptsOO::getopts($object, \@ARGV, $truth)

=item Given -n, if there's a opt_n_with, it'll call $object->opt_n_with( ARGUMENT )
   (e.g., "-n foo" => $object->opt_n_with('foo').  Ditto "-nfoo")

=item Otherwise (given -n) if there's an opt_n, we'll call it $object->opt_n($truth)
   (Truth defaults to 1)

=item Otherwise we try calling $object->handle_unknown_option('n')
   (and we increment the error count by the return value of it)

=item If there's no handle_unknown_option, then we just warn, and then increment
   the error counter

=back

The return value of Pod::Perldoc::GetOptsOO::getopts is true if no errors,
otherwise it's false.

=head1 SEE ALSO

L<Pod::Perldoc>

=head1 COPYRIGHT AND DISCLAIMERS

This library is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program 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.

=head1 AUTHOR

Current maintainer: Mark Allen C<< <mallen@cpan.org> >>

Past contributions from:
brian d foy C<< <bdfoy@cpan.org> >>
Adriano R. Ferreira C<< <ferreira@cpan.org> >>,
Sean M. Burke C<< <sburke@cpan.org> >>

=cut

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	drwxr-xr-x	2024-03-03 07:11:18
..	dir	-	root/root	drwxr-xr-x	2024-03-03 07:11:22
BaseTo.pm	text/plain	3.55 KB	root/root	-rw-r--r--	2017-03-16 12:54:10
GetOptsOO.pm	text/plain	3.8 KB	root/root	-rw-r--r--	2017-03-16 12:54:14
ToANSI.pm	text/plain	2.25 KB	root/root	-rw-r--r--	2017-03-16 12:54:20
ToChecker.pm	text/plain	1.65 KB	root/root	-rw-r--r--	2017-03-16 12:55:19
ToMan.pm	text/plain	13.91 KB	root/root	-rw-r--r--	2017-03-16 12:55:25
ToNroff.pm	text/plain	2.72 KB	root/root	-rw-r--r--	2017-03-16 12:55:31
ToPod.pm	text/plain	1.91 KB	root/root	-rw-r--r--	2017-03-16 12:55:36
ToRtf.pm	text/plain	2.1 KB	root/root	-rw-r--r--	2017-03-16 12:55:40
ToTerm.pm	text/plain	3.73 KB	root/root	-rw-r--r--	2017-03-16 12:55:51
ToText.pm	text/plain	2.21 KB	root/root	-rw-r--r--	2017-03-16 12:55:55
ToTk.pm	text/plain	3.91 KB	root/root	-rw-r--r--	2017-03-16 12:56:00
ToXml.pm	text/plain	1.37 KB	root/root	-rw-r--r--	2017-03-16 12:57:00