/usr/share/perl5/Padre/Unload.pm is in padre 1.00+dfsg-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 | package Padre::Unload;
# Inlined version of Class::Unload with a few more tricks up its sleeve
use 5.008;
use strict;
use warnings;
our $VERSION = '1.00';
our $COMPATIBLE = '0.91';
sub unload {
my $module = shift;
require Class::Inspector;
return unless Class::Inspector->loaded($module);
no strict 'refs';
# Flush inheritance caches
@{ $module . '::ISA' } = ();
# Delete all symbols except other namespaces
my $symtab = $module . '::';
for my $symbol ( keys %$symtab ) {
next if $symbol =~ /\A[^:]+::\z/;
delete $symtab->{$symbol};
}
my $inc_file = join( '/', split /(?:'|::)/, $module ) . '.pm';
delete $INC{$inc_file};
return 1;
}
1;
# Copyright 2008-2013 The Padre development team as listed in Padre.pm.
# LICENSE
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl 5 itself.
|