[ SYSTEM ]: Linux srv.persadacompanies.com 4.18.0-553.56.1.el8_10.x86_64 #1 SMP Tue Jun 10 05:00:59 EDT 2025 x86_64
[ SERVER ]: Apache | PHP: 8.4.19
[ USER ]: persadamedika | IP: 45.64.1.108
GEFORCE FILE MANAGER
/
usr
/
share
/
perl5
/
vendor_perl
/
UPLOAD:
NAME
SIZE
QUICK PERMS
ACTIONS
π Algorithm
SET
[ DEL ]
π App
SET
[ DEL ]
π Archive
SET
[ DEL ]
π Authen
SET
[ DEL ]
π B
SET
[ DEL ]
π CPAN
SET
[ DEL ]
π Carp
SET
[ DEL ]
π Config
SET
[ DEL ]
π Data
SET
[ DEL ]
π Date
SET
[ DEL ]
π Digest
SET
[ DEL ]
π Encode
SET
[ DEL ]
π Exporter
SET
[ DEL ]
π ExtUtils
SET
[ DEL ]
π File
SET
[ DEL ]
π Filter
SET
[ DEL ]
π Getopt
SET
[ DEL ]
π HTML
SET
[ DEL ]
π HTTP
SET
[ DEL ]
π IO
SET
[ DEL ]
π IPC
SET
[ DEL ]
π JSON
SET
[ DEL ]
π LWP
SET
[ DEL ]
π Locale
SET
[ DEL ]
π MRO
SET
[ DEL ]
π Math
SET
[ DEL ]
π Module
SET
[ DEL ]
π Mozilla
SET
[ DEL ]
π Net
SET
[ DEL ]
π POD2
SET
[ DEL ]
π Package
SET
[ DEL ]
π Params
SET
[ DEL ]
π Parse
SET
[ DEL ]
π Perl
SET
[ DEL ]
π PerlIO
SET
[ DEL ]
π Pod
SET
[ DEL ]
π Software
SET
[ DEL ]
π Sub
SET
[ DEL ]
π TAP
SET
[ DEL ]
π Term
SET
[ DEL ]
π Test
SET
[ DEL ]
π Test2
SET
[ DEL ]
π Text
SET
[ DEL ]
π Thread
SET
[ DEL ]
π Time
SET
[ DEL ]
π Try
SET
[ DEL ]
π Types
SET
[ DEL ]
π WWW
SET
[ DEL ]
π autodie
SET
[ DEL ]
π inc
SET
[ DEL ]
π lib
SET
[ DEL ]
π libwww
SET
[ DEL ]
π local
SET
[ DEL ]
π CPAN.pm
141,325 B
SET
[ EDIT ]
|
[ DEL ]
π Carp.pm
31,043 B
SET
[ EDIT ]
|
[ DEL ]
π Digest.pm
10,706 B
SET
[ EDIT ]
|
[ DEL ]
π Env.pm
5,524 B
SET
[ EDIT ]
|
[ DEL ]
π Expect.pm
100,447 B
SET
[ EDIT ]
|
[ DEL ]
π Exporter.pm
18,746 B
SET
[ EDIT ]
|
[ DEL ]
π Fatal.pm
58,176 B
SET
[ EDIT ]
|
[ DEL ]
π LWP.pm
21,676 B
SET
[ EDIT ]
|
[ DEL ]
π Test2.pm
6,393 B
SET
[ EDIT ]
|
[ DEL ]
π autodie.pm
12,886 B
SET
[ EDIT ]
|
[ DEL ]
π bigint.pm
23,398 B
SET
[ EDIT ]
|
[ DEL ]
π bignum.pm
21,137 B
SET
[ EDIT ]
|
[ DEL ]
π bigrat.pm
16,154 B
SET
[ EDIT ]
|
[ DEL ]
π constant.pm
14,724 B
SET
[ EDIT ]
|
[ DEL ]
π experimental.pm
6,993 B
SET
[ EDIT ]
|
[ DEL ]
π newgetopt.pl
2,206 B
SET
[ EDIT ]
|
[ DEL ]
π ok.pm
967 B
SET
[ EDIT ]
|
[ DEL ]
π parent.pm
2,575 B
SET
[ EDIT ]
|
[ DEL ]
π perldoc.pod
9,376 B
SET
[ EDIT ]
|
[ DEL ]
π perlfaq.pm
77 B
SET
[ EDIT ]
|
[ DEL ]
π perlfaq.pod
22,757 B
SET
[ EDIT ]
|
[ DEL ]
π perlfaq1.pod
14,457 B
SET
[ EDIT ]
|
[ DEL ]
π perlfaq2.pod
9,466 B
SET
[ EDIT ]
|
[ DEL ]
π perlfaq3.pod
37,535 B
SET
[ EDIT ]
|
[ DEL ]
π perlfaq4.pod
89,399 B
SET
[ EDIT ]
|
[ DEL ]
π perlfaq5.pod
55,506 B
SET
[ EDIT ]
|
[ DEL ]
π perlfaq6.pod
39,618 B
SET
[ EDIT ]
|
[ DEL ]
π perlfaq7.pod
37,816 B
SET
[ EDIT ]
|
[ DEL ]
π perlfaq8.pod
50,105 B
SET
[ EDIT ]
|
[ DEL ]
π perlfaq9.pod
14,847 B
SET
[ EDIT ]
|
[ DEL ]
π perlglossary.pod
137,232 B
SET
[ EDIT ]
|
[ DEL ]
DELETE SELECTED
[ CLOSE ]
EDIT: parent.pm
package parent; use strict; our $VERSION = '0.237'; sub import { my $class = shift; my $inheritor = caller(0); if ( @_ and $_[0] eq '-norequire' ) { shift @_; } else { for ( my @filename = @_ ) { s{::|'}{/}g; require "$_.pm"; # dies if the file is not found } } { no strict 'refs'; push @{"$inheritor\::ISA"}, @_; # dies if a loop is detected }; }; 1; __END__ =encoding utf8 =head1 NAME parent - Establish an ISA relationship with base classes at compile time =head1 SYNOPSIS package Baz; use parent qw(Foo Bar); =head1 DESCRIPTION Allows you to both load one or more modules, while setting up inheritance from those modules at the same time. Mostly similar in effect to package Baz; BEGIN { require Foo; require Bar; push @ISA, qw(Foo Bar); } By default, every base class needs to live in a file of its own. If you want to have a subclass and its parent class in the same file, you can tell C<parent> not to load any modules by using the C<-norequire> switch: package Foo; sub exclaim { "I CAN HAS PERL" } package DoesNotLoadFooBar; use parent -norequire, 'Foo', 'Bar'; # will not go looking for Foo.pm or Bar.pm This is equivalent to the following code: package Foo; sub exclaim { "I CAN HAS PERL" } package DoesNotLoadFooBar; push @DoesNotLoadFooBar::ISA, 'Foo', 'Bar'; This is also helpful for the case where a package lives within a differently named file: package MyHash; use Tie::Hash; use parent -norequire, 'Tie::StdHash'; This is equivalent to the following code: package MyHash; require Tie::Hash; push @ISA, 'Tie::StdHash'; If you want to load a subclass from a file that C<require> would not consider an eligible filename (that is, it does not end in either C<.pm> or C<.pmc>), use the following code: package MySecondPlugin; require './plugins/custom.plugin'; # contains Plugin::Custom use parent -norequire, 'Plugin::Custom'; =head1 HISTORY This module was forked from L<base> to remove the cruft that had accumulated in it. =head1 CAVEATS =head1 SEE ALSO L<base> =head1 AUTHORS AND CONTRIBUTORS RafaΓ«l Garcia-Suarez, Bart Lateur, Max Maischein, Anno Siegel, Michael Schwern =head1 MAINTAINER Max Maischein C< corion@cpan.org > Copyright (c) 2007-2017 Max Maischein C<< <corion@cpan.org> >> Based on the idea of C<base.pm>, which was introduced with Perl 5.004_04. =head1 LICENSE This module is released under the same terms as Perl itself. =cut