usr
/
share
/
perl5
/
vendor_perl
/
Pod
/
Simple
➕ New
📤 Upload
✎ Editing:
Transcode.pm
← Back
require 5; package Pod::Simple::Transcode; use vars qw($VERSION ); $VERSION = '3.28'; BEGIN { if(defined &DEBUG) {;} # Okay elsif( defined &Pod::Simple::DEBUG ) { *DEBUG = \&Pod::Simple::DEBUG; } else { *DEBUG = sub () {0}; } } foreach my $class ( 'Pod::Simple::TranscodeSmart', 'Pod::Simple::TranscodeDumb', '', ) { $class or die "Couldn't load any encoding classes"; DEBUG and print "About to try loading $class...\n"; eval "require $class;"; if($@) { DEBUG and print "Couldn't load $class: $@\n"; } else { DEBUG and print "OK, loaded $class.\n"; @ISA = ($class); last; } } sub _blorp { return; } # just to avoid any "empty class" warning 1; __END__
💾 Save Changes
Cancel
📤 Upload File
×
Select File
Upload
Cancel
➕ Create New
×
Type
📄 File
📁 Folder
Name
Create
Cancel
✎ Rename Item
×
Current Name
New Name
Rename
Cancel
🔐 Change Permissions
×
Target File
Permission (e.g., 0755, 0644)
0755
0644
0777
Apply
Cancel