代码搜索：shift
找到约 10,000 项符合「shift」的源代码
代码结果 10,000
www.eeworm.com/read/138548/5815546
pm isbn.pm
package URI::urn::isbn; # RFC 3187
require URI::urn;
@ISA=qw(URI::urn);
use strict;
use Business::ISBN ();
sub _isbn {
my $nss = shift;
$nss = $nss->nss if ref($nss);
my $isbn = Busin
www.eeworm.com/read/138548/5815547
pm withbase.pm
package URI::WithBase;
use strict;
use vars qw($AUTOLOAD $VERSION);
use URI;
$VERSION = "2.19";
use overload '""' => "as_string", fallback => 1;
sub as_string; # help overload find it
sub new
{
www.eeworm.com/read/138548/5815569
pm sip.pm
#
# Written by Ryan Kereliuk . This file may be
# distributed under the same terms as Perl itself.
#
# The RFC 3261 sip URI is :;?.
#
package URI::
www.eeworm.com/read/138548/5815572
pm _generic.pm
package URI::_generic;
require URI;
require URI::_query;
@ISA=qw(URI URI::_query);
use strict;
use URI::Escape qw(uri_unescape);
use Carp ();
my $ACHAR = $URI::uric; $ACHAR =~ s,\\[/?],,g;
my $PCHA
www.eeworm.com/read/138548/5815584
pm _userpass.pm
package URI::_userpass;
use strict;
use URI::Escape qw(uri_unescape);
sub user
{
my $self = shift;
my $info = $self->userinfo;
if (@_) {
my $new = shift;
my $pass = defined($info) ? $i
www.eeworm.com/read/138548/5815650
pm objectdriver.pm
# Copyright 2001-2005 Six Apart.
# SCRiPTMAFiA 2005 - THE DiRTY HANDS ON YOUR SCRiPTS
#
# $Id: ObjectDriver.pm 10197 2005-03-09 00:27:57Z ezra $
package MT::ObjectDriver;
use strict;
use MT::ConfigM
www.eeworm.com/read/136989/5827968
pm ghsworkspacecreator.pm
package GHSWorkspaceCreator;
# ************************************************************
# Description : An incomplete GHS Workspace creator
# Author : Chad Elliott
# Create Date :
www.eeworm.com/read/136989/5827975
pm automakeworkspacecreator.pm
package AutomakeWorkspaceCreator;
# ************************************************************
# Description : A Automake Workspace (Makefile) creator
# Author : Chad Elliott
# Create
www.eeworm.com/read/136989/5827981
pm gnuaceprojectcreator.pm
package GNUACEProjectCreator;
# ************************************************************
# Description : A GNU Project Creator for ACE
# Author : Chad Elliott
# Create Date : 3/13
www.eeworm.com/read/136989/5827995
pm parser.pm
package Parser;
# ************************************************************
# Description : A basic parser that requires a parse_line override
# Author : Chad Elliott
# Create Date