File manager - Edit - /usr/local/cpanel/3rdparty/perl/542/cpanel-lib/Text/Template/Simple/Base/Examine.pm
Back
## no critic (ProhibitUnusedPrivateSubroutines) package Text::Template::Simple::Base::Examine; $Text::Template::Simple::Base::Examine::VERSION = '0.91'; use strict; use warnings; use Text::Template::Simple::Util qw(:all); use Text::Template::Simple::Constants qw(:all); sub _examine { my $self = shift; my $TMP = shift; my($type, $thing) = $self->_examine_type( $TMP ); my $rv; if ( $type eq 'ERROR' ) { $rv = $thing; $self->[TYPE] = $type; } elsif ( $type eq 'GLOB' ) { $rv = $self->_examine_glob( $thing ); $self->[TYPE] = $type; } else { if ( my $path = $self->io->file_exists( $thing ) ) { $rv = $self->io->slurp( $path ); $self->[TYPE] = 'FILE'; $self->[TYPE_FILE] = $path; } else { # just die if file is absent, but user forced the type as FILE $self->io->slurp( $thing ) if $type eq 'FILE'; $rv = $thing; $self->[TYPE] = 'STRING'; } } LOG( EXAMINE => sprintf q{%s; LENGTH: %s}, $self->[TYPE], length $rv ) if DEBUG; return $rv; } sub _examine_glob { my($self, $thing) = @_; my $type = ref $thing; fatal( 'tts.base.examine.notglob' => $type ) if $type ne 'GLOB'; fatal( 'tts.base.examine.notfh' ) if ! fileno $thing; return $self->io->slurp( $thing ); } sub _examine_type { my $self = shift; my $TMP = shift; my $ref = ref $TMP; return EMPTY_STRING , $TMP if ! $ref; return GLOB => $TMP if $ref eq 'GLOB'; if ( ref $TMP eq 'ARRAY' ) { my $ftype = shift @{ $TMP } || fatal('tts.base.examine._examine_type.ftype'); my $fthing = shift @{ $TMP } || fatal('tts.base.examine._examine_type.fthing'); fatal('tts.base.examine._examine_type.extra') if @{ $TMP }; return uc $ftype, $fthing; } return fatal('tts.base.examine._examine_type.unknown', $ref); } 1; __END__ =pod =encoding UTF-8 =head1 NAME Text::Template::Simple::Base::Examine =head1 VERSION version 0.91 =head1 SYNOPSIS Private module. =head1 DESCRIPTION Private module. =head1 NAME Text::Template::Simple::Base::Examine - Base class for Text::Template::Simple =head1 AUTHOR Burak Gursoy <burak@cpan.org> =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2004 by Burak Gursoy. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut
| ver. 1.4 |
Github
|
.
| PHP 8.1.34 | Generation time: 0.02 |
proxy
|
phpinfo
|
Settings