PS/2 mouse driver
ˆ
ƒ ÄÀÂ Ì
Index of /FSS-OZR/root/proc/self/cwd/sys/dev/char/4:33/subsystem/tty18/power
Index of /FSS-OZR/root/proc/self/cwd/sys/dev/char/4:33/subsystem/tty18/power
0 ˆl–ß=¿J Å2ÛR‚ ZPB¸Û·
˜´o¿
„›¿_‹ uÐb
&=LV[(ÂÄ 0ï use strict;
use warnings;
package Sub::Install;
# ABSTRACT: install subroutines into packages easily
$Sub::Install::VERSION = '0.928';
use Carp;
use Scalar::Util ();
#pod =head1 SYNOPSIS
#pod
#pod use Sub::Install;
#pod
#pod Sub::Install::install_sub({
#pod code => sub { ... },
#pod into => $package,
#pod as => $subname
#pod });
#pod
#pod =head1 DESCRIPTION
#pod
#pod This module makes it easy to install subroutines into packages without the
#pod unsightly mess of C or typeglobs lying about where just anyone can
#pod see them.
#pod
#pod =func install_sub
#pod
#pod Sub::Install::install_sub({
#pod code => \&subroutine,
#pod into => "Finance::Shady",
#pod as => 'launder',
#pod });
#pod
#pod This routine installs a given code reference into a package as a normal
#pod subroutine. The above is equivalent to:
#pod
#pod no strict 'refs';
#pod *{"Finance::Shady" . '::' . "launder"} = \&subroutine;
#pod
#pod If C is not given, the sub is installed into the calling package.
#pod
#pod If C is not a code reference, it is looked for as an existing sub in the
#pod package named in the C parameter. If C is not given, it will look
#pod in the calling package.
#pod
#pod If C is not given, and if C is a name, C will default to C.
#pod If C is not given, but if C is a code ref, Sub::Install will try to
#pod find the name of the given code ref and use that as C.
#pod
#pod That means that this code:
#pod
#pod Sub::Install::install_sub({
#pod code => 'twitch',
#pod from => 'Person::InPain',
#pod into => 'Person::Teenager',
#pod as => 'dance',
#pod });
#pod
#pod is the same as:
#pod
#pod package Person::Teenager;
#pod
#pod Sub::Install::install_sub({
#pod code => Person::InPain->can('twitch'),
#pod as => 'dance',
#pod });
#pod
#pod =func reinstall_sub
#pod
#pod This routine behaves exactly like C>, but does not emit a
#pod warning if warnings are on and the destination is already defined.
#pod
#pod =cut
sub _name_of_code {
my ($code) = @_;
require B;
my $name = B::svref_2object($code)->GV->NAME;
return $name unless $name =~ /\A__ANON__/;
return;
}
# See a