A list of distributions that don't return a valid
return statement. You can consider this distributions buggy. This list
is further broken down into the type of PPI::Statement class they
return. To view the full bad return value, click on the
'show'-link.
| AMZ_TEST-0.0.2 | AMZ::Test | show |
| $VERSION = 1 |
| Acme-1.111111 | Acme | show |
| *is_leon_brocard = \&is_acme |
| Acme-Akashic-Records-0.01 | Acme::Akashic::Records | show |
| $records |
| Acme-Beatnik-0.02 | Acme::Beatnik | show |
| FILTER
{ $_ =~ s/[^\w\s]//g;
my @words = split(/\s+/,$_);
for my $word (@words)
{ my $number = 0;
for(split(//,$word))
{ $number += $scrabble{uc $_}; }
push(@numbers,$number);
}
for($ip = 0; $ip <= $#numbers ; $ip++)
{ if (exist... |
| Acme-Bleach-1.150 | Acme::DWIM | show |
| print {0} $pre."use Acme::DWIM;$dwimity\n", dwim $code and exit |
| Acme-Bleach-1.150 | Acme::Bleach | show |
| print {0} "${coat}use Acme::Bleach;\n", whiten $pressed.$shirt and exit |
| Acme-Bleach-1.150 | Acme::Morse | show |
| print {0} "use Acme::Morse;\n", encypher $telegram and exit |
| Acme-Boom-3735928559 | Acme::Boom | show |
| Earth-Shattering-Kaboom-!!1 |
| Acme-Bushisms-0.02 | Acme::Bushisms | show |
| print {0} "use Acme::Bushisms;\n\n$dubya\n", invade $iraq and exit |
| Acme-Canadian-0.03 | Acme::Canadian | show |
| FILTER {
s/, eh\?/;/g; s/aboot/about/;
}
1 |
| Acme-DeepThoughts-0.01 | Acme::DeepThoughts | show |
| print {0} "use Acme::DeepThoughts;\n\n$DeepThought\n", reflect $thought and exit |
| Acme-Hidek-42.0 | Acme::Hidek::Congrats | show |
| print {$out} "use $package;\n", whiten $shirt |
| Acme-IAMB-0.02 | Acme::IAMB | show |
| foobar
1 |
| Acme-JAPH-0.03 | Acme::JAPH | show |
| exit |
| Acme-Labs-1.1 | Acme::Labs | show |
| print {0} $1, pinking $plan
and print STDOUT "Fun-fun-silly-willy!\n"
and do {eval brainier $plan or print STDERR $@; exit} |
| Acme-MJD-0.02 | Acme::MJD | show |
| print {0} "use Acme::MJD;\n\n$DeepThought\n", reflect $thought and exit |
| Acme-Nothing-0.03 | Acme::Nothing | show |
| () = .0 |
| Acme-OneBit-0.01 | Acme::Onebit | show |
| print {0} "use Acme::OneBit;\n", encode $program and exit |
| Acme-Orange-0.03 | Acme::Orange | show |
| *_closest = \*closest |
| Acme-Postmodern-Perl-0.01 | Acme::Postmodern::Perl | show |
| -1 |
| Acme-Python-0.01 | Acme::Python | show |
| print {0} "use Acme::Python;\n", encode $program and exit |
| Acme-Remote-Strangulation-Protocol-0.03 | Acme::Remote::Strangulation::Protocol | show |
| print {0} "use Acme::Remote::Strangulation::Protocol;\n\n$DeepThought\n", reflect $thought and exit |
| Acme-RunDoc-0.001 | Acme::RunDoc | show |
| __FILE__ |
| Acme-RunDoc-0.001 | icrosoft::Word | show |
| __FILE__ |
| Acme-Schlong-0.001 | Acme::Schlong | show |
| class Acme::Schlong with MooseX::Getopt::Strict {
use 5.010;
use feature 'switch';
use MooseX::StrictConstructor;
use MooseX::AlwaysCoerce;
use MooseX::Types::Moose -all;
use MooseX::Attribute::ENV;
use MooseX::Types::Path::C... |
| Alien-ActiveMQ-0.00004 | Alien::ActiveMQ | show |
| method get_version_dir ($version) {
if (!$version) {
$version = '5.2.0';
}
return dir( dist_dir('Alien-ActiveMQ'), $version );
}
method is_version_installed ($version) {
-d $self->get_version_dir($version);
}
method get_licenc... |
| Alien-Ditaa-0.002 | Alien::Ditaa | show |
| method run_ditaa {
my $java = which 'java';
my $out;
run [$java, '-jar', $self->get_jar, @_], \undef, \$out;
my $exit = $? >> 8;
$self->_set_last_run_output($out);
return $exit;
}
__PACKAGE__->meta->make_immutabl... |
| Alt-0.04 | Alt | show |
| $VERSION = '0.04' |
| Antispam-Toolkit-0.08 | Antispam::Toolkit::Types::Internal | show |
| subtype NonNegativeNum,
as Num,
where { $_ >= 0 },
message { "The number you provided ($_) was not greater than or equal to zero" } |
| AnyEvent-Retry-0.03 | AnyEvent::Retry::Types | show |
| coerce Interval, from HashRef, via {
my $req = [keys %$_]->[0];
my $args = $_->{$req};
my $name = class_name($req);
Class::MOP::load_class($name);
return $name->new($args);
} |
| AnyEvent-Retry-0.03 | AnyEvent::Retry::Interval | show |
| around 'next' => sub {
my ($orig, $self) = @_;
$self->_inc_counter;
my $counter = $self->counter;
my $result = $self->$orig($counter);
return ($result, $self->counter) if wantarray;
return $result;
} |
| AnyEvent-Retry-0.03 | AnyEvent::Retry::Interval::API | show |
| requires 'reset' |
| AnyEvent-ZeroMQ-0.01 | AnyEvent::ZeroMQ::Types | show |
| subtype SocketDirection, as Str, where {
/^(r|rw|wr|w|)$/;
}, message { "Socket direction must be r, w, rw, or the empty string; not '$_'" } |
| AnyEvent-ZeroMQ-0.01 | AnyEvent::ZeroMQ::Publish::Trait::Topics | show |
| around 'mangle_message' => sub {
my ($orig, $self, $msg, %args) = @_;
my $topic = delete $args{topic};
$msg = "$topic$msg" if defined $topic;
return $self->$orig($msg, %args);
} |
| AnyEvent-ZeroMQ-0.01 | AnyEvent::ZeroMQ::Role::WithHandle | show |
| role {
my $p = shift;
my $type = $p->socket_type;
my $dir = $p->socket_direction;
has 'context' => (
is => 'ro',
isa => 'ZeroMQ::Raw::Context',
required => 1,
);
has 'con... |
| AnyEvent-ZeroMQ-0.01 | AnyEvent::ZeroMQ::Subscribe::Trait::Topics | show |
| around '_call_callback' => sub {
my ($orig, $self, $cb, @rest) = @_;
$self->$orig( sub {
my ($self, $item, @rest) = @_;
my $tr = $self->topic_regex;
if(my ($topic, $item) = ($item =~ /$tr/)){
$cb->($... |
| AnyEvent-ZeroMQ-0.01 | AnyEvent::ZeroMQ::Handle::Role::Writable | show |
| requires 'push_write' |
| AnyEvent-ZeroMQ-0.01 | AnyEvent::ZeroMQ::Handle::Role::Readable | show |
| requires 'push_read' |
| AnyEvent-ZeroMQ-0.01 | AnyEvent::ZeroMQ::Handle::Role::Generic | show |
| requires 'connect' |
| Apache-Auth-UserDB-v0.120 | Apache::Auth::UserDB | show |
| TRUE |
| Apache-Auth-UserDB-v0.120 | Apache::Auth::User | show |
| TRUE |
| Apache-Auth-UserDB-v0.120 | Apache::Auth::User::Basic | show |
| TRUE |
| Apache-Auth-UserDB-v0.120 | Apache::Auth::User::Digest | show |
| TRUE |
| Apache-Auth-UserDB-v0.120 | Apache::Auth::UserDB::File | show |
| TRUE |
| Apache-Auth-UserDB-v0.120 | Apache::Auth::UserDB::File::Basic | show |
| TRUE |
| Apache-Auth-UserDB-v0.120 | Apache::Auth::UserDB::File::Digest | show |
| TRUE |
| Apache-SharedMem-0.09 | Apache::SharedMem | show |
| DESTROY
{
$_[0]->unlock
if(defined $_[0]->{_lock_status} && ($_[0]->{_lock_status} & LOCK_SH || $_[0]->{_lock_status} & LOCK_EX));
}
1 |
| App-Beeminder-Hook-0.003 | App::Beeminder::Hook | show |
| true |
| App-Install-0.03 | MyInstall | show |
| MyInstall->permissions("installed/foo.txt" => 0755) |
| App-Mimosa-0.02 | App::Mimosa::Schema::BCS::Result::Mimosa::Job | show |
| __PACKAGE__->add_unique_constraint("mimosa_job_c1", ['sha1'] ) |
| App-Mowyw-v0.7.1 | App::Mowyw::Lexer | show |
| -1 |
| App-Netdisco-2.006000 | App::Netdisco::Web | show |
| true |
| App-Netdisco-2.006000 | App::Netdisco::Web::TypeAhead | show |
| true |
| App-Netdisco-2.006000 | App::Netdisco::Web::Plugin | show |
| true |
| App-Netdisco-2.006000 | App::Netdisco::Web::AuthN | show |
| true |
| App-Netdisco-2.006000 | App::Netdisco::Web::Search | show |
| true |
| App-Netdisco-2.006000 | App::Netdisco::Web::PortControl | show |
| true |
| App-Netdisco-2.006000 | App::Netdisco::Web::Device | show |
| true |
| App-Netdisco-2.006000 | App::Netdisco::Web::Plugin::Inventory | show |
| true |
| App-Netdisco-2.006000 | App::Netdisco::Web::Plugin::Device::Modules | show |
| true |
| App-Netdisco-2.006000 | App::Netdisco::Web::Plugin::Device::Neighbors | show |
| true |
| App-Netdisco-2.006000 | App::Netdisco::Web::Plugin::Device::Details | show |
| true |
| App-Netdisco-2.006000 | App::Netdisco::Web::Plugin::Device::Ports | show |
| true |
| App-Netdisco-2.006000 | App::Netdisco::Web::Plugin::Device::Addresses | show |
| true |
| App-Netdisco-2.006000 | App::Netdisco::Web::Plugin::Search::VLAN | show |
| true |
| App-Netdisco-2.006000 | App::Netdisco::Web::Plugin::Search::Port | show |
| true |
| App-Netdisco-2.006000 | App::Netdisco::Web::Plugin::Search::Node | show |
| true |
| App-Netdisco-2.006000 | App::Netdisco::Web::Plugin::Search::Device | show |
| true |
| App-Notifier-Service-0.0202 | App::Notifier::Service | show |
| true |
| App-Syndicator-0.0061 | App::Syndicator | show |
| class App::Syndicator with (App::Syndicator::Config,
MooseX::Getopt::Dashes) {
use App::Syndicator::Types qw/File WritableFile UriArray/;
use App::Syndicator::UI;
use App::Syndicator::DB;
our $BASE = "$ENV{HOME}/.syndicator";
ha... |
| App-Toodledo-2.16 | App::Toodledo | show |
| method get_session_token ( Str :$app_token?, Str :$user_id? ) {
my $app_id = $self->app_id;
$user_id ||= $self->user_id or $self->log->logdie("No user_id");
$app_token ||= $self->app_token or $self->log->logdie("No app_token... |
| App-Toodledo-2.16 | App::Toodledo::Folder | show |
| method add ( App::Toodledo $todo! ) {
my @args = ( name => $self->name );
$self->$_ and push @args, ( $_ => $self->$_ ) for qw(private archived ord);
my $added_ref = $todo->call_func( folder => add => { @args } );
$added_re... |
| App-Toodledo-2.16 | App::Toodledo::TaskCache | show |
| method exists () {
-s _cache_filename() or return;
$self->log->debug( "Task cache exists\n" );
}
method fetch () {
$self->log->debug( "Loading from task cache\n" );
%$self = LoadFile( _cache_filename() );
$self->log->debug( "... |
| App-Toodledo-2.16 | App::Toodledo::Context | show |
| method add ( App::Toodledo $todo! ) {
my $added_ref = $todo->call_func( context => add => { name => $self->name } );
$added_ref->[0]{id};
}
1 |
| App-Toodledo-2.16 | App::Toodledo::Location | show |
| method add ( App::Toodledo $todo! ) {
my @args = ( name => $self->name );
$self->$_ and push @args, ( $_ => $self->$_ ) for qw(description lat lon);
my $added_ref = $todo->call_func( location => add => { @args } );
$added_r... |
| App-Toodledo-2.16 | App::Toodledo::InfoCache | show |
| method new_from_file ( $class: Str $file! ) {
if ( -r $file && -f $file)
{
my $ref = LoadFile( $file );
my ($password_ref, $app_token_ref, $default_user_id)
= @{$ref}{qw(passwords app_tokens default_user_id)};
my $log = Log::Log4perl... |
| App-Toodledo-2.16 | App::Toodledo::TokenCache | show |
| method is_still_good () {
time - $self->creation_time < __PACKAGE__->Max_Token_Life;
}
1 |
| App-Toodledo-2.16 | App::Toodledo::InternalWrapper | show |
| method delete ( App::Toodledo $todo! ) {
my $id = $self->id;
(my $type = lc ref $self) =~ s/.*://;
my $deleted_ref = $todo->call_func( $type => delete => { id => $id } );
$deleted_ref->[0]{id} == $id or $self->log->logdie("... |
| App-Toodledo-2.16 | App::Toodledo::Notebook | show |
| method add ( App::Toodledo $todo! ) {
my @args = ( name => $self->name );
$self->$_ and push @args, ( $_ => $self->$_ )
for qw(title folder private added text);
my $added_ref = $todo->call_func( notebook => add => { @args... |
| App-Toodledo-2.16 | App::Toodledo::Goal | show |
| method add ( App::Toodledo $todo! ) {
my @args = ( name => $self->name );
$self->$_ and push @args, ( $_ => $self->$_ ) for qw(contributes level);
my $added_ref = $todo->call_func( goal => add => { @args } );
$added_ref->... |
| App-Toodledo-2.16 | App::Toodledo::Task | show |
| method set_name( App::Toodledo $todo!, Str $type!, Item $new_string? ) {
my @args;
my $class = "App::Toodledo::\u$type";
eval "require $class";
my @objs;
if ( $can_use_cache )
{
@objs = @{ $cache{$type} };
$self->log->debug( "Usi... |
| App-Twpin-0.007 | App::Twpin | show |
| sub _ {
my $string = shift;
if (is_utf8($string)) {
$string = encode _term_encoding(), $string;
}
return $string;
}
1 |
| App-Wax-0.3.1 | App::Wax | show |
| method content_type ($url) {
my $request = HTTP::Request->new(HEAD => $url);
my $response = $self->ua->request($request);
my $content_type = '';
if ($response->is_success) {
($content_type) = scalar($response->h... |
| App-local-lib-helper-0.07 | Maker | show |
| __PACKAGE__->run_if_script |
| Archive-Tar-Builder-1.0 | Archive::Tar::Builder | show |
| XSLoader::load( 'Archive::Tar::Builder', $VERSION ) |
| Astro-ADS-1.20.7 | Astro::ADS | show |
| $VERSION = '1.20.7'
1 |
| Astro-SIMBAD-2.0.0 | Astro::SIMBAD | show |
| $VERSION = '2.0.0'
1 |
| Audio-1.029 | Audio::Play | show |
| bootstrap Audio::Play::
1 |
| Audio-Audacious-0.932 | Audio::Audacious | show |
| method new($class: ) {
my $self = bless {}, $class;
return $self;
}
method current {
my $title = `audtool2 current-song-tuple-data title`;
chomp($title);
my $artist = `audtool2 current-song-tuple-data artist`;
chomp($artist);
... |
| Audio-Ecasound-1.01 | Audio::Ecasound | show |
| DESTROY {
my $self = shift;
eci_cleanup_r($self->{eci_handle});
}
END {
eci_cleanup();
}
1 |
| Audio-Nama-1.105 | Audio::Nama | show |
| format STDOUT_TOP =
Track Name Ver. Setting Status Source Send Vol Pan
=============================================================================
.
format STDOUT =
@>> @<<<<<<<<< @> @&... |
| Auth-GoogleAuthenticator-0.01 | Dancer::Auth::GoogleAuthenticator | show |
| true |
| Authen-PAAS-1.1.1 | Authen::PAAS | show |
| $VERSION = "1.1.1" |
| AutoLoader-5.73 | AutoLoader | show |
| AUTOLOAD {
my $sub = $AUTOLOAD;
autoload_sub($sub);
goto &$sub;
}
sub autoload_sub {
my $sub = shift;
my $filename = AutoLoader::find_filename( $sub );
my $save = $@;
local $!;
eval { local $SIG{__DIE__}; require $filen... |
| AxKit-App-Gallery-0.5 | AxKit::App::Gallery | show |
| $VERSION = 0.5 |
| BGPmon-CPM-1-03 | BGPmon::CPM::DomainResolvesToPrefix | show |
| __PACKAGE__->meta->error_mode('return') |
| BGPmon-CPM-1-03 | BGPmon::CPM::PrefixAuthoritativeForDomain | show |
| __PACKAGE__->meta->error_mode('return') |
| BGPmon-CPM-1-03 | BGPmon::CPM::PrefixToSearchPath | show |
| __PACKAGE__->meta->setup
(
table => 'search_using',
columns => [ qw(prefix_dbid search_path_dbid) ],
pk_columns => ['prefix_dbid', 'search_path_dbid'],
foreign_keys =>
[
prefix =>
{
class => 'BGPmon... |
| BPM-Engine-0.01 | BPM::Engine::Handler::ProcessDefinitionHandler | show |
| role BPM::Engine::Handler::ProcessDefinitionHandler {
use BPM::Engine::Types qw/Exception LibXMLDoc UUID/;
use BPM::Engine::Exceptions qw/throw_engine throw_model throw_store/;
method get_packages (@args) {
return $self->schema->resul... |
| BPM-Engine-0.01 | BPM::Engine::Handler::ProcessInstanceHandler | show |
| role BPM::Engine::Handler::ProcessInstanceHandler {
use Scalar::Util qw/blessed/;
use BPM::Engine::Types qw/UUID/;
use BPM::Engine::Exceptions qw/throw_store throw_abstract/;
use aliased 'BPM::Engine::Store::Result::Process';
use aliased 'BPM... |
| BPM-Engine-0.01 | BPM::Engine::Handler::ActivityInstanceHandler | show |
| role BPM::Engine::Handler::ActivityInstanceHandler {
requires 'runner';
use Scalar::Util qw/blessed/;
use BPM::Engine::Exceptions qw/throw_store/;
use aliased 'BPM::Engine::Store::Result::ActivityInstance';
method get_activity_instances (@arg... |
| Benchmark-Harness-1.12 | Benchmark::Harness | show |
| DESTROY {
$_[0]->close();
}
sub FindHandler {
my ($self, $pckg, $subName) = @_;
for ( @{$self->{EventList}} ) {
if ( $_->[HNDLR_NAME] eq $subName
&& $_->[HNDLR_PACKAGE] eq $pckg
) {
return $_;
... |
| Benchmark-Perl-Formance-0.33 | Benchmark::Perl::Formance::Plugin::FibMXDeclare | show |
| class Fib {
method fib(Int $n) {
$n < 2
? 1
: $self->fib($n-1) + $self->fib($n-2);
}
}
sub main
{
my ($options) = @_;
$goal = $options->{fastmode} ? 20 : ... |
| Bencode-1.4 | Bencode | show |
| bdecode( 'i1e' ) |
| Bio-Das-1.17 | Bio::Das::AGPServer::Parser | show |
| DESTROY {
my $self = shift;
if ($self->_fh()){
close($self->_fh());
}
}
1 |
| Bio-GFF3-1.5 | Bio::GFF3::LowLevel | show |
| *gff3_unescape = \&URI::Escape::uri_unescape |
| Bio-GMOD-0.028 | Bio::GMOD::Admin::Monitor::blat | show |
| /usr/local/blat/bin/gfServer start localhost 2003 /usr/local/wormbase/blat/*.nib & > /dev/null 2>&1
/usr/local/blat/bin/gfServer start localhost 2004 /usr/local/wormbase/blat/briggsae/files/*.nib & > /dev/null 2>&1
sub new {
my $class = ... |
| Bio-GMOD-Blast-Graph-0.06 | Bio::GMOD::Blast::Graph::MapDefs | show |
| $bucketFourMax = 1.0 |
| Bio-PrimerDesigner-0.07 | Bio::PrimerDesigner::Config | show |
| $Bio::PrimerDesigner::Config = {
%s
} |
| Bookmarks-Parser-0.07 | Bookmarks::Bookmark | show |
| Bookmarks::Bookmark->mk_accessors(qw/created modified visited charset url name
id personal icon description expanded
trash order type/) |
| Bot-Net-0.1.0 | Bot::Net::Bot | show |
| on _stop => run {
call get(SESSION) => bot 'shutdown';
} |
| Bundle-Everything-0.06 | Bundle::Everything | show |
| $VERSION = '0.06'
1 |
| Bundle-Gnome2-0.12 | Bundle::Gnome2 | show |
| $VERSION = '0.12' |
| Bundle-LWP5_837-0.01 | Bundle::LWP5_837 | show |
| $VERSION='0.01' |
| Bundle-LawMonkey-0.01 | Bundle::LawMonkey | show |
| _END_ |
| Bundle-Markup-0.1 | Bundle::Markup | show |
| $VERSION = '0.1' |
| Bundle-Pugs-SmokeKit-1.00 | Bundle::Pugs::SmokeKit | show |
| -1 |
| Bundle-WebDyne-1.004 | Bundle::WebDyne | show |
| $VERSION='1.001' |
| Bundle-WebDyne-1.004 | WebDyne::Bundle::VERSION | show |
| $VERSION='1.004' |
| Buscador-0.2 | Email::Store::Vote | show |
| Email::Store::Mail->has_many(votes => "Email::Store::Vote") |
| CGI-Application-Structured-Tools-0.015 | ::DB | show |
| __PACKAGE__->loader_options(debug => 1) |
| CGI-Auth-3.00 | AuthCfg | show |
| $authcfg = {
-authdir => 'auth',
-authfields => [
{id => 'user', display => 'User Name', hidden => 0, required => 1},
{id => 'pw', display => 'Password', hidden => 1, required => 1},
],
} |
| CGI-ClientError-0.03 | CGI::ClientError | show |
| $CGI::ClientError::footer="</i><br>
If something is unclear, feel free to contact the
webmaster.\n" |
| CGI-Session-4.48 | CGI::Session::Tutorial | show |
| $CGI::Session::Tutorial::VERSION = '4.43' |
| CGI-SessionM-2.00 | CGI::SessionM | show |
| DESTROY {
$dbh->disconnect;
}
sub get_guidm {
my $guidm = "";
my $value ='';
for (my $i=0; $i<8;$i++) {
$value = '0000'.sprintf "%X",int(rand((2**16)-1));
$value =~ s/^[0-9A-F]+([0-9A-F]{4})$/$1/;
$guidm .= "-".$value;
}
$guidm=~s/^\-//;
r... |
| CGI-WebToolkit-0.08 | CGI::WebToolkit | show |
| sub _
{
my ($self, $phrase, $language) = __parse_args(@_);
return '' unless defined $phrase;
return $phrase
if $self->{'phrasetable'} eq '';
$language = $self->get('language') unless defined $language;
$language = $self->{'defaultlanguag... |
| CGI-okSession-0.02 | CGI::okSession | show |
| DESTROY {
my $self = shift;
my(%s) = (%$self);
Storable::lock_store(\%s,"$s{___config}->{dir}/$s{___config}->{id}.sess");
}
1 |
| CIPP-3.0.8 | CIPP | show |
| $VERSION = "3.0.8" |
| CIPP-Doc-2.28 | CIPP::Doc | show |
| $VERSION="2.28" |
| CPAN-Digger-0.08 | CPAN::Digger::WWW | show |
| true |
| CSS-SAC-0.08 | CSS::SAC::SelectorList | show |
| *CSS::SAC::SelectorList::item = \&Item |
| CWB-CQP-More-0.05 | CWB::CQP::More::Iterator | show |
| $VERSION |
| Carp-Mailer-0.1 | Carp::Mailer | show |
| $SIG{__WARN__} = \&_dispatch_message |
| Catalog-1.02 | Bundle::Catalog | show |
| $VERSION = "1.02"
1 |
| Catalyst-TraitFor-Model-DBIC-Schema-QueryLog-AdoptPlack-0.07 | Maker | show |
| __PACKAGE__->run_if_script |
| CatalystX-Dispatcher-AsGraph-0.03 | CatalystX::Dispatcher::AsGraph | show |
| class CatalystX::Dispatcher::AsGraph {
use Graph::Easy;
with 'MooseX::Getopt';
has [qw/appname output/] => (is => 'ro', isa => 'Str', required => 1);
has graph => (
traits => ['NoGetopt'],
is =>... |
| CatalystX-TraitFor-Dispatcher-ExactMatch-0.002 | CatalystX::TraitFor::Dispatcher::ExactMatch | show |
| role CatalystX::TraitFor::Dispatcher::ExactMatch
{
around prepare_action ($ctx, @etc)
{
my $req = $ctx->req;
(my $path = $req->path) =~ s{^/+}{};
my $matched = 0;
foreach my $type ( @{ $self->dispatch_types } )
{
if (!$matched... |
| Chart-PNGgraph-1.21 | Chart::PNGgraph | show |
| $Chart::PNGgraph::VERSION |
| Chloro-0.06 | Chloro::Types | show |
| __PACKAGE__->provide_types_from(
qw(
MooseX::Types::Common::String
MooseX::Types::Moose
Chloro::Types::Internal
)
) |
| Cindy-Apache2-0.08 | Cindy::Apache2::RequestRec | show |
| XSLoader::load('Cindy::Apache2', $Cindy::Apache2::VERSION) |
| ClamAV-Client-0.11 | ClamAV::Client | show |
| TRUE |
| ClamAV-Client-0.11 | ClamAV::Config | show |
| TRUE |
| Class-DBI-Lite-1.034 | Class::DBI::Lite::Fixture | show |
| DESTROY
{
map { eval { $_->() } } @destroys;
}
1 |
| Class-DBI-Relationship-HasManyOrdered-0.03 | ContentManager::Page | show |
| ContentManager::Page->has_many_ordered(Images => ContentManager::Image => image_id, {order_by => 'position', map => 'pageimages'}) |
| Class-Eroot-19960603 | EROOT | show |
| DESTROY {
my $self = shift;
$self->Store;
}
sub Keep {
my $self = shift;
my( $name, $ref ) = @_;
my $i = @{$self->refs};
my $id;
if( @_ != 2 ){
croak "usage - EROOT::Keep( self, name, ref )";
return;
}
if( ! ref $ref ){
carp "Not ... |
| Classic-Perl-0.05 | Classic::Perl | show |
| __THE__=> |
| Config-Inetd-0.31 | Config::Inetd | show |
| DESTROY
{
my $self = shift;
untie @{$self->{CONF}};
}
1 |
| Couchbase-Client-1.0.1 | Couchbase::Test::ClientSync | show |
| sub v2k {
my ($self,$v) = @_;
reverse($v);
}
sub set_ok {
my ($self,$msg,@args) = @_;
my $ret = $self->cbo->set(@args);
ok($ret->is_ok, $msg);
$self->err_ok();
if(!$ret->is_ok) {
diag($ret->errstr);
... |
| Courier-Filter-v0.200 | Courier::Message | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Error | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Filter | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Config | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Filter::Logger | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Filter::Util | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Filter::Module | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Filter::Logger::Syslog | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Filter::Logger::IOHandle | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Filter::Logger::File | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Filter::Module::DNSBL | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Filter::Module::SPFout | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Filter::Module::SendCopy | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Filter::Module::Envelope | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Filter::Module::SPF | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Filter::Module::Header | show |
| Courier-Filter-v0.200 | Courier::Filter::Module::BlankBody | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Filter::Module::SpamAssassin | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Filter::Module::MIMEParts | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Filter::Module::FakeDate | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Filter::Module::Parts | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Filter::Module::ClamAVd | show |
| TRUE |
| Crypt-GeneratePassword-0.03 | Crypt::GeneratePassword | show |
| $Crypt::GeneratePassword::VERSION = 0.03 |
| Crypt-OpenPGP-1.06 | Crypt::OpenPGP::Certificate | show |
| sub v3_checksum {
my $cert = shift;
my $k = $cert->{encrypted};
my $sum = 0;
my @sec = $cert->{key}->secret_props;
for my $e (@sec) {
$sum += unpack '%16C*', $k->{"${e}h"};
$sum += unpack '%16C*', $k->{"$... |
| Curses-Toolkit-0.207 | Curses::Toolkit | show |
| DESTROY {
my ($obj) = @_;
ref($obj) eq 'Curses::Toolkit'
and Curses::endwin;
}
sub get_theme_name {
my ($self) = @_;
return $self->{theme_name};
}
sub add_event_listener {
my $self = shift;
my ($listener) = valida... |
| Curses-Toolkit-0.207 | Curses::Toolkit::EventListener | show |
| DESTROY {
my ($self) = @_;
$self->is_attached() and $self->detach();
}
1 |
| Curses-UI-0.9609 | Curses::UI::Container | show |
| DESTROY()
{
my $this = shift;
$this->SUPER::delete_subwindows();
}
sub add($@)
{
my $this = shift;
my $id = shift;
my $class = shift;
my %args = @_;
$this->root->fatalerror(
"The object id \"$id\" is already in ... |
| DB-SPEEDYB-0.1 | DB::SPEEDYB | show |
| XSLoader::load( "DB::SPEEDYB", $VERSION ) |
| DBD-ADO-2.99 | Local::DBD::ADO::DSN | show |
| [
{
'Provider' => 'Microsoft.Jet.OLEDB.4.0'
, 'Data Source' => '/data/test.mdb'
}
, {
'Provider' => 'VFPOLEDB'
, 'Data Source' => 'C:/data/test.dbc'
}
, {
'Provider' => 'MSDAORA'
, 'Data Source' => ''
,... |
| DBI-Shell-11.95 | DBI::Shell::Completion | show |
| DESTROY {
my $sh = shift;
if ($term && $term->ReadLine eq "Term::ReadLine::Gnu") {
if($term && $term->history_total_bytes()) {
my $history = $sh->{completion}->{history};
if ($history) {
unless($term->WriteHistory($history)) ... |
| DBICx-Modeler-Generator-0.02 | package | show |
| <? block code => '' ?>
1 |
| DBIx-Class-Migration-0.037 | DBIx::Class::Migration::Script | show |
| __PACKAGE__->run_if_script |
| DBIx-Class-Migration-0.037 | MusicBase::Schema::MigrationScript | show |
| __PACKAGE__->run_if_script |
| DBIx-Class-ResultSet-RecursiveUpdate-0.27 | DBICErrorTest::SyntaxError | show |
| I'm a syntax error! |
| DBIx-Class-ResultSet-WithMetaData-1.001000 | DBIx::Class::ResultSet::WithMetaData | show |
| method display () {
my $rs = $self->search({});
$rs->result_class('DBIx::Class::WithMetaData::Inflator');
my @rows;
foreach my $row_rep ($rs->all) {
my ($row, $row_obj) = @{$row_rep};
if (my $info = $self->row_info_for(id =>... |
| DBIx-Class-ResultSource-MultipleTableInheritance-0.01 | DBIx::Class::ResultSource::MultipleTableInheritance | show |
| method new ($class: @args) {
my $new = $class->next::method(@args);
my $rc = $new->result_class;
if (my $meth = $rc->can('result_source_instance')) {
my $source = $rc->$meth;
if ($source->result_class ne $new->result_class
... |
| DBIx-DataModel-2.33 | DBIx::DataModel::Compatibility::V0 | show |
| *refine = sub {
my ($self, %args) = @_;
$args{-post_bless} = delete $args{-postFetch} if $args{-postFetch};
$self->$orig_refine(%args);
}
1 |
| DBIx-NoSQL-Store-Manager-0.2.2 | DBIx::NoSQL::Store::Manager | show |
| method new_model_object(@args) { $self->create(@args) }
method create ( $model, @args ) {
$self->model_class($model)->new( store_db => $self, @args);
}
1 |
| DBIx-NoSQL-Store-Manager-0.2.2 | DBIx::NoSQL::Store::Manager::Model | show |
| method store {
$self->store_db->set(
$self->store_model =>
$self->store_key => $self,
);
}
method delete {
$self->store_db->delete( $self->store_model => $self->store_key );
}
method _en... |
| DBIx-OO-0.0.9 | DBIx::OO | show |
| *quote_field = \&SQL::Abstract::_quote |
| DBIx-PgLink-0.01 | DBIx::PgLink::Connector::Roles::SQLServerProc | show |
| method 'build_procedure' => named(
local_schema => {isa=>'Str', required=>1},
remote_catalog => {isa=>'StrNull'},
remote_schema => {isa=>'StrNull'},
remote_object => {isa=>'Str', required=>1},
local_o... |
| DBIx-Simple-Class-0.994 | My::Groups | show |
| __PACKAGE__->BUILD |
| DB_File-SV18x-kit-0.06 | DB_File::SV18x | show |
| die "DB_File::SV18x is a dummy package without functionality.
Please try DB_File::SV185 or DB_File::SV186, whatever has been
built on your system" |
| DDLock-Client-0.50 | DDLock::Client::File | show |
| DESTROY {
my $self = shift;
$self->run_hook('DESTROY');
$self->release if $$ == $self->{pid};
}
1 |
| Dancer-Layout-Bootstrap-0.02 | Dancer::Layout::Bootstrap | show |
| true |
| Dancer-Plugin-Auth-Twitter-0.02 | Dancer::Plugin::Auth::Twitter | show |
| Dancer-Plugin-Authen-Simple-0.130500 | Dancer::Plugin::Authen::Simple | show |
| register_plugin for_versions => [ 1, 2 ] |
| Dancer-Plugin-Cache-CHI-1.4.0 | Dancer::Plugin::Cache::CHI | show |
| register_plugin for_versions => [1,2] |
| Dancer-Plugin-Cerberus-0.03 | Dancer::Plugin::Cerberus | show |
| true |
| Dancer-Plugin-ElasticModel-0.05 | Dancer::Plugin::ElasticModel | show |
| true |
| Dancer-Plugin-ElasticSearch-0.002 | Dancer::Plugin::ElasticSearch | show |
| true |
| Dancer-Plugin-FakeCGI-0.62 | example_FakeCGI | show |
| dance |
| Dancer-Plugin-FakeCGI-0.62 | example_FakeCGI | show |
| true |
| Dancer-Plugin-Tapir-0.04 | Dancer::Plugin::Tapir | show |
| true |
| Dancer-Plugin-WindowSession-0.02 | window_session_test | show |
| true |
| Data-Compare-1.22 | Data::Compare::Plugins::Scalar::Properties | show |
| register() |
| Data-Compare-Plugins-JSON-1.01 | Data::Compare::Plugins::JSON | show |
| [
['JSON::PP::Boolean', \&_compare_object_and_object],
['JSON::PP::Boolean', '', \&_compare_object_and_scalar],
['JSON::XS::Boolean', \&_compare_object_and_object],
['JSON::XS::Boolean', '', \&_compare_object_and_scalar],
] |
| Data-Compare-Plugins-Set-Object-1.0 | Data::Compare::Plugins::Set::Object | show |
| _register() |
| Data-Conveyor-1.103130 | Data::Conveyor::App::Mutex | show |
| DESTROY {
my $self = shift;
return unless $self->delegate->respect_mutex && $self->mutex;
$self->mutex->release_mutex;
}
1 |
| Data-Downloader-0.9907 | Data::Downloader | show |
| <<"=head1 SCHEMA" |
| Data-HanConvert-1.2 | Data::HanConvert::tw2cn | show |
| $Data::HanConvert::tw2cn = {"\x{6158}\x{6fb9}" => "\x{60e8}\x{6de1}","\x{80cc}\x{5149}\x{6027}" => "\x{80cc}\x{65cb}\x{5149}\x{6027}","\x{5b8f}\x{90fd}\x{62c9}\x{65af}" => "\x{6d2a}\x{90fd}\x{62c9}\x{65af}","\x{7db2}\x{8def}" => "\x{7f51}\x{7e... |
| Data-HanConvert-1.2 | Data::HanConvert::cn2tw | show |
| $Data::HanConvert::cn2tw = {"\x{5149}\x{9a71}" => "\x{5149}\x{789f}\x{6a5f}","\x{64cd}\x{4f5c}\x{7cfb}\x{7edf}" => "\x{4f5c}\x{696d}\x{7cfb}\x{7d71}","\x{7d22}\x{9a6c}\x{91cc}" => "\x{7d22}\x{99ac}\x{5229}\x{4e9e}","\x{4ee5}\x{592a}\x{7f51}\x{7ed... |
| Data-HanConvert-1.2 | Data::HanConvert::tw2cn_characters | show |
| $Data::HanConvert::tw2cn_characters = {"\x{56c1}" => "\x{55eb}","\x{9b9c}" => "\x{9c98}","\x{2893b}" => "\x{28930}","\x{5da2}" => "\x{5ce3}","\x{95a5}" => "\x{9600}","\x{9807}" => "\x{9878}","\x{9210}" => "\x{94a4}","\x{6fbe}" => "... |
| Data-HanConvert-1.2 | Data::HanConvert::cn2tw_characters | show |
| $Data::HanConvert::cn2tw_characters = {"\x{65a9}" => "\x{65ac}","\x{6eda}" => "\x{6efe}","\x{5b6a}" => "\x{5b7f}","\x{955b}" => "\x{93de}","\x{7f5a}" => "\x{7f70}","\x{8ba8}" => "\x{8a0e}","\x{8bb9}" => "\x{8a1b}","\x{5326}" => "\x... |
| Data-SpreadPagination-0.1.2 | Data::SpreadPagination | show |
| Data-Transactional-1.02 | Data::Compare::Plugins::Data::Transactional | show |
| _register() |
| DateTime-Format-Natural-1.01 | DateTime::Format::Natural::Lang::Base | show |
| AUTOLOAD
{
my ($self, $exp) = @_;
my ($caller, $sub) = $AUTOLOAD =~ /^(.+)::(.+)$/;
if (substr($sub, 0, 2) eq '__') {
$sub =~ s/^__//;
no strict 'refs';
if (defined $exp && length $exp) {
return ${$caller.... |
| DateTimeX-Auto-0.005 | DateTimeX::Auto | show |
| __FILE__ |
| Debug-FaultAutoBT-0.02 | Debug::FaultAutoBT | show |
| DESTROY {
my $self = shift;
}
1 |
| Devel-CheckOS-1.71 | Devel::AssertOS | show |
| $^O |
| Devel-Dt-0.04 | Devel::Dt | show |
| () = -.0 |
| Devel-NYTProf-4.25 | Devel::NYTProf | show |
| init_profiler() |
| Devel-NYTProf-4.25 | Devel::NYTProf::FileHandle | show |
| &$xs(__PACKAGE__, $Devel::NYTProf::Core::VERSION) |
| Devel-Symdump-2.08 | Devel::Symdump | show |
| AUTOLOAD {
my($self,@packages) = @_;
unless (ref $self) {
$self = $self->new(@packages);
}
no strict "vars";
(my $auto = $AUTOLOAD) =~ s/.*:://;
$auto =~ s/(file|dir)handles/ios/;
my $compat = $1;
unless ($self->{'... |
| Devel-Symdump-2.08 | Devel::Symdump::Export | show |
| AUTOLOAD {
my @packages = @_;
(my $auto = $AUTOLOAD) =~ s/.*:://;
confess("Unknown function call $auto") unless $OK{$auto};
my @ret = Devel::Symdump->new->$auto(@packages);
return @ret;
}
1 |
| Devel-TraceSubs-0.02 | Devel::TraceSubs | show |
| $_ ^=~ { module => 'Devel::TraceSubs', author => 'particle' } |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Util | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Environment | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Sym2type | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type::Omicron | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type::Iv | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type::TVar | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type::Var | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type::Pv | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type::TTerm | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type::Chi | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type::Nu | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type::Mu | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type::Eta | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type::TSub | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type::Zeta | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type::TRef | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type::Rho | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type::Io | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type::Dv | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type::Kappa | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type::Upsilon | show |
| TRUE |
| Device-TNC-0.03 | Device::TNC::KISS | show |
| DESTROY
{
$m_port->close() or
warn "Error: Failed to the serial port \"$m_port_name\": $!\n";
$m_raw_log->close() if $m_raw_log;
}
sub read_kiss_frame
{
my $self = shift;
my @frame;
my $fend_count = 0;
if ($self->{'FILE'})
{
while... |
| Dist-Zilla-4.300031 | DZPA::Main | show |
| print qw{
use !!
} |
| Dist-Zilla-MintingProfile-MooseXDeclare-0.140 | package | show |
| class {{ $name }}::Command extends (MooseX::App::Cmd::Command, {{ $name }})
with MooseX::Getopt::Dashes with MooseX::Log::Log4perl {
use metaclass 'MooseX::MetaDescription::Meta::Class';
use MooseX::Types::Moose -all;
has global => (
... |
| Dist-Zilla-Plugin-ChangeStats-Git-0.1.3 | Dist::Zilla::Role::Author::YANICK::RequireZillaRole | show |
| role {
my $p = shift;
sub BUILD {}
after BUILD => sub {
my $self = shift;
my $zilla = $self->zilla;
$zilla->meta->make_mutable;
for my $role ( @{ $p->roles } ) {
$role =~ s/^\+//... |
| Dist-Zilla-PluginBundle-Author-DBR-0.800 | Dist::Zilla::PluginBundle::Author::DBR | show |
| class Dist::Zilla::PluginBundle::Author::DBR
with Dist::Zilla::Role::PluginBundle::Merged
{
method configure {
$self->add_bundle(
Filter => {
-bundle => '@Classic',
-remove => [qw/PodVe... |
| Dist-Zilla-PluginBundle-Author-WOLVERIAN-v0.0.8 | Dist::Zilla::PluginBundle::Author::WOLVERIAN | show |
| class Dist::Zilla::PluginBundle::Author::WOLVERIAN
with Dist::Zilla::Role::PluginBundle::Easy {
use Moose::Autobox;
use Dist::Zilla::Plugin::ModuleBuild;
use Dist::Zilla::Plugin::AutoPrereqs;
use Dist::Zilla::Plugin::MinimumPerl;
... |
| Dist-Zilla-PluginBundle-DBR-0.024 | Dist::Zilla::PluginBundle::DBR | show |
| class Dist::Zilla::PluginBundle::DBR with Dist::Zilla::Role::PluginBundle::Easy {
use Dist::Zilla::PluginBundle::Filter;
method configure {
$self->add_bundle(
Filter => {
-bundle => '@Classic',
... |
| Dist-Zilla-PluginBundle-WOLVERIAN-v0.0.7 | Dist::Zilla::PluginBundle::WOLVERIAN | show |
| class Dist::Zilla::PluginBundle::WOLVERIAN
with Dist::Zilla::Role::PluginBundle::Easy {
use Dist::Zilla::Plugin::ModuleBuild;
use Dist::Zilla::Plugin::AutoPrereqs;
use Dist::Zilla::Plugin::MinimumPerl;
use Dist::Zilla::Plugin::MetaJSO... |
| DocSet-0.19 | DocSet | show |
| $VERSION = '0.19' |
| Docserver-1.12 | Docserver::Config | show |
| %Docserver::Config::Config =
(
'port' => 5455,
'clients' => [
{
'mask' => '^127\.0\.0\.1$',
'accept' => 1,
},
{
'mask' => '\.fi\.muni\.cz$',
'accept' => 1,
},
],
'tmp_dir' => 'C:\\tmp\... |
| Document-Maker-0.022 | Document::Maker::Role::Logging | show |
| *log = \&logger |
| Dwimmer-0.28 | Dwimmer | show |
| true |
| Dwimmer-0.28 | Dwimmer::Admin | show |
| true |
| Dwimmer-0.28 | Dwimmer::Client | show |
| AUTOLOAD {
our $AUTOLOAD;
( my $sub = $AUTOLOAD ) =~ s/^Dwimmer::Client:://;
my ( $self, %attr ) = @_;
my $m = $self->mech;
if ( $GET{$sub} ) {
my $params = join "&", map {"$_=$attr{$_}"} keys %attr;
my $url = $self->host . "/_dwimmer/$GET... |
| ETLp-0.04 | ETLp | show |
| class ETLp with ETLp::Role::Config {
use FindBin qw($Bin);
use Config::General qw(ParseConfig);
use ETLp::Exception;
use Try::Tiny;
use Modern::Perl;
use ETLp::Config;
use ETLp::Schema;
use ETLp::Audit::Job;
use ETLp::I... |
| ETLp-0.04 | ETLp::Plugin | show |
| class ETLp::Plugin with ETLp::Role::Config {
use ETLp::Exception;
has 'config' => (is => 'ro', isa => 'HashRef', required => 1);
has 'item' => (is => 'ro', isa => 'HashRef', required => 1);
has ... |
| ETLp-0.04 | ETLp::Exception | show |
| class ETLp::Exception {
use Exception::Class (
'ETLpException'
);
} |
| ETLp-0.04 | ETLp::Types | show |
| class ETLp::Types {
use Moose::Util::TypeConstraints;
class_type('DateTime');
class_type('ETLp::Schema::Result::EtlpJob');
class_type('ETLp::Schema::Result::EtlpItem');
class_type('ETLp::Schema::Result::EtlpFileProcess');
sub... |
| ETLp-0.04 | ETLp::ItemBuilder | show |
| class ETLp::ItemBuilder with ETLp::Role::Config {
use ETLp::Exception;
use Data::Dumper;
use UNIVERSAL::require;
use Try::Tiny;
use Clone qw(clone);
use File::Basename;
has 'plugins' => (is => 'ro', isa => 'Hash... |
| ETLp-0.04 | ETLp::Config | show |
| class ETLp::Config {
use MooseX::Singleton;
has 'dbh' => (is => 'rw', isa => 'DBI::db');
has 'logger' => (is => 'rw', isa => 'Log::Log4perl::Logger');
has 'schema' => (is => 'rw', isa => 'ETLp::Schema');
h... |
| ETLp-0.04 | ETLp::Execute::Serial | show |
| class ETLp::Execute::Serial with ETLp::Role::Config {
use Try::Tiny;
use Carp;
use ETLp::Exception;
use Data::Dumper;
has 'pipeline' => (is => 'ro', isa => 'ArrayRef', required => 1);
has 'config' => (is =>... |
| ETLp-0.04 | ETLp::Execute::Iteration | show |
| class ETLp::Execute::Iteration with ETLp::Role::Config {
use Try::Tiny;
use Data::Dumper;
use File::LocalizeNewlines;
use File::Basename;
use File::Copy;
use Carp;
use ETLp::Exception;
has 'pipeline' => (is => 'r... |
| ETLp-0.04 | ETLp::Audit::Job | show |
| class ETLp::Audit::Job with (ETLp::Role::Config, ETLp::Role::Schema,
ETLp::Role::Audit) {
use Try::Tiny;
use DateTime;
use ETLp::Types;
use ETLp::Audit::Item;
has 'session_id' => (is => 'rw'... |
| ETLp-0.04 | ETLp::Audit::Item | show |
| class ETLp::Audit::Item with (ETLp::Role::Config, ETLp::Role::Schema,
ETLp::Role::Audit) {
use DateTime;
use Try::Tiny;
use ETLp::Types;
use ETLp::Audit::FileProcess;
use DateTime;
has 'job' =&g... |
| ETLp-0.04 | ETLp::Audit::Browser::Model::Job | show |
| class ETLp::Audit::Browser::Model::Job with
(ETLp::Role::Config, ETLp::Role::Schema, ETLp::Role::Audit,
ETLp::Role::Browser) {
use DateTime;
use DateTime::Format::Strptime;
method get_jobs(Maybe[Int] :$page?, Maybe[Str] :$section... |
| ETLp-0.04 | ETLp::Audit::Browser::Model::Schedule | show |
| class ETLp::Audit::Browser::Model::Schedule with
(ETLp::Role::Config, ETLp::Role::Schema, ETLp::Role::Audit,
ETLp::Role::Browser) {
use Data::Dumper;
use Try::Tiny;
use Text::Wrapper;
use Config::General qw(ParseConfi... |
| ETLp-0.04 | ETLp::Audit::Browser::Model::User | show |
| class ETLp::Audit::Browser::Model::User with(ETLp::Role::Config, ETLp::Role::Schema, ETLp::Role::Audit, ETLp::Role::Browser) {
use Crypt::PasswdMD5 'unix_md5_crypt';
use Data::Dumper;
method get_user_by_username(Str $user... |
| ETLp-0.04 | ETLp::Audit::Browser::Model::Item | show |
| class ETLp::Audit::Browser::Model::Item with
(ETLp::Role::Config, ETLp::Role::Schema, ETLp::Role::Audit,
ETLp::Role::Browser) {
use Data::Dumper
method get_items (Maybe[Int] :$page?, Maybe[Int] :$item_id?, Maybe[Int] :$... |
| ETLp-0.04 | ETLp::Audit::Browser::Model::FileProcess | show |
| class ETLp::Audit::Browser::Model::FileProcess with
(ETLp::Role::Config, ETLp::Role::Schema, ETLp::Role::Audit,
ETLp::Role::Browser) {
method get_file_processes(Maybe[Int] :$page?, Maybe[Int] :$item_id?, Maybe[Int] :$file_id?) {
... |
| ETLp-0.04 | ETLp::Utility::Command | show |
| class ETLp::Utility::Command {
use Data::Dumper;
use IPC::Cmd;
use Exception::Class ('CommandError');
has 'errstr' => (is => 'rw', isa => 'Str', required => 0, default => '');
has 'time_out' => (is => 'rw', ... |
| ETLp-0.04 | ETLp::Role::Schema | show |
| role ETLp::Role::Schema {
use ETLp::Config;
method schema {
return ETLp::Config->schema;
}
method EtlpAppConfig {
return $self->schema->resultset('EtlpAppConfig');
}
method EtlpConfigura... |
| ETLp-0.04 | ETLp::Loader::CSV | show |
| class ETLp::Loader::CSV with ETLp::Role::Config {
use ETLp::File::Read::CSV;
use Data::Dumper;
use File::Basename;
use Convert::NLS_DATE_FORMAT qw(posix2oracle);
use DBI::Const::GetInfoType;
use ETLp::Exception;
use Try::T... |
| ETLp-0.04 | ETLp::Loader::OracleSQLLoader | show |
| class ETLp::Loader::OracleSQLLoader with ETLp::Role::Config {
use ETLp::Exception;
use ETLp::Types;
has 'userid' => (is => 'ro', isa => 'Str', required => 1);
has 'controlfile' => (is => 'ro', isa =&g... |
| ETLp-0.04 | ETLp::Plugin::Iterative::OS | show |
| class ETLp::Plugin::Serial::OS extends ETLp::Plugin {
use Data::Dumper;
sub type {
return 'os';
}
method run {
my $item = $self->item;
my $command = $item->{command};
my $timeout = $item-&... |
| ETLp-0.04 | ETLp::Plugin::Serial::Perl | show |
| class ETLp::Plugin::Serial::PLSQL extends ETLp::Plugin::Iterative::PLSQL {
sub type {
return 'plsql';
}
} |
| ETLp-0.04 | ETLp::Plugin::Serial::Watch | show |
| class ETLp::Plugin::Serial::Watch extends ETLp::Plugin {
use ETLp::File::Watch;
use Data::Dumper;
sub type {
return 'watch';
}
method run {
my $item = $self->item;
my $directory = $self->config-&... |
| ETLp-0.04 | ETLp::Plugin::Serial::Perl | show |
| class ETLp::Plugin::Serial::Perl extends ETLp::Plugin {
use autodie;
use UNIVERSAL::require;
use Try::Tiny;
sub type {
return 'perl';
}
method run {
my $item = $self->item;
my $package = $item-... |
| ETLp-0.04 | ETLp::Plugin::Iterative::Gzip | show |
| class ETLp::Plugin::Iterative::Gzip extends ETLp::Plugin {
use IO::Compress::Gzip qw($GzipError);
sub type {
return 'gzip';
}
method run (Str $filename) {
my $file_process = $self->audit->item->file_pro... |
| ETLp-0.04 | ETLp::Plugin::Iterative::OS | show |
| class ETLp::Plugin::Iterative::OS extends ETLp::Plugin {
use File::Basename;
use ETLp::Utility::Command;
use Data::Dumper;
sub type {
return 'os';
}
method run(Str $filename) {
my $item = $self->item;
... |
| ETLp-0.04 | ETLp::Plugin::Iterative::PLSQL | show |
| class ETLp::Plugin::Iterative::PLSQL extends ETLp::Plugin {
use DBI;
use Data::Dumper;
use Try::Tiny;
method _parse_params (HashRef $config, ArrayRef $params, Str $filename) {
my $parsed_params;
return $parse... |
| ETLp-0.04 | ETLp::Plugin::Iterative::Validate | show |
| class ETLp::Plugin::Iterative::Validate extends ETLp::Plugin {
use Try::Tiny;
use ETLp::File::Validate;
use File::Basename;
use Mail::Sendmail;
use Data::Dumper;
sub type {
return 'validate';
}
method run ... |
| ETLp-0.04 | ETLp::Plugin::Iterative::CSVLoader | show |
| class ETLp::Plugin::Iterative::CSVLoader extends ETLp::Plugin {
use ETLp::File::Config;
use File::Copy;
use Try::Tiny;
use File::Basename;
use ETLp::Loader::CSV;
sub type {
return 'csv_loader';
}
method run(Str $f... |
| ETLp-0.04 | ETLp::Plugin::Iterative::Gunzip | show |
| class ETLp::Plugin::Iterative::Gunzip extends ETLp::Plugin {
use IO::Uncompress::Gunzip qw($GunzipError);
sub type {
return 'gunzip';
}
method run (Str $filename) {
my $file_process = $self->audit->item-&g... |
| ETLp-0.04 | ETLp::Plugin::Iterative::OracleSQLLoader | show |
| class ETLp::Plugin::Iterative::OracleSQLLoader extends ETLp::Plugin {
use ETLp::Loader::OracleSQLLoader;
use Try::Tiny;
use File::Basename;
use DBI::Const::GetInfoType;
use File::Copy;
sub type {
return 'sql_loader';
... |
| ETLp-0.04 | ETLp::Plugin::Iterative::Perl | show |
| class ETLp::Plugin::Iterative::Perl extends ETLp::Plugin {
use File::Basename;
use UNIVERSAL::require;
use Try::Tiny;
sub type {
return 'perl';
}
method run (Str $filename) {
my $item = $self->item;
... |
| ETLp-0.04 | ETLp::Plugin::Iterative::PLSQL | show |
| class ETLp::Plugin::Iterative::SteadyStateCheck extends ETLp::Plugin {
sub type {
return 'steady_state_check';
}
method run (Str $filename) {
my $interval = $self->item->{interval} || 5;
my $curr_size =... |
| ETLp-0.04 | ETLp::File::Watch | show |
| class ETLp::File::Watch with ETLp::Role::Config {
use Moose;
use DateTime;
use FindBin qw($Bin);
use Fcntl ':flock';
use ETLp::Utility::Command;
use ETLp::Types;
use ETLp::Exception;
use Try::Tiny;
has 'directory' =... |
| ETLp-0.04 | ETLp::File::Validate | show |
| class ETLp::File::Validate {
use Time::Piece;
use ETLp::Exception;
use ETLp::File::Config;
has 'data_directory' => (is => 'ro', isa => 'Str');
has 'file_config_directory' => (is => 'ro', isa => 'Str');
has... |
| ETLp-0.04 | ETLp::File::Read | show |
| class ETLp::File::Read with ETLp::Role::Config {
use ETLp::Exception;
use File::LocalizeNewlines;
has 'filename' => (is => 'ro', isa => 'Str', required => 1);
has 'directory' => (is => 'ro', isa => 'Str', required =... |
| ETLp-0.04 | ETLp::File::Config | show |
| class ETLp::File::Config with ETLp::Role::Config {
use Text::CSV;
use ETLp::Exception;
use Data::Dumper;
has 'directory' => (is => 'ro', isa => 'Str', required => 0);
has 'definition' => (is => 'ro', isa => ... |
| ElasticSearchX-Model-0.1.4 | ElasticSearchX::Model::Document::Mapping | show |
| $MAPPING{'DateTime'} = sub {
my ( $attr, $tc ) = @_;
return ( maptc( $attr, $tc->parent ), type => 'date' );
} |
| Email-FolderType-Net-1.041 | Email::FolderType::Net | show |
| *match = Email::FolderType::Net::_create_match(qw[pops pop3s]) |
| End-2009110401 | End | show |
| DESTROY {$_ [0] -> ()}
1 |
| FCGI-0.74 | FCGI | show |
| $VERSION = '0.74' |
| Facebook-Graph-1.0500 | recipe2 | show |
| true |
| Fancy-Middleware-1.101680 | Fancy::Middleware | show |
| role Fancy::Middleware
{
use POEx::Types::PSGIServer(':all');
use MooseX::Types::Moose(':all');
has app => (is => 'ro', isa => CodeRef, required => 1);
has response => (is => 'ro', isa => PSGIResponse, writer =>... |
| Fey-SQL-Pg-0.005 | Fey::SQL::Pg::Role::Returning | show |
| method returning {
my $count = @_ ? @_ : 1;
my (@returning) = pos_validated_list(
\@_,
( ( { isa => SelectElement } ) x $count ),
MX_PARAMS_VALIDATE_NO_CACHE => 1,
);
for my $elt ( map { $_->can('columns')... |
| File-Find-Match-1.0 | File::Find::Match::Sugar | show |
| croak <<__DEPRECATED__ |
| File-RoundRobin-0.04 | File::RoundRobin | show |
| DESTROY {
my $self = shift;
$self->close();
}
1 |
| Filter-Simple-0.88 | Demo_REM | show |
| FILTER_ONLY
regex => sub { print "1a: $_\n"; s/\!\[/[^/g; print "1b: $_\n" },
all => sub { print "1c: $_\n" },
regex => sub { print "2a: $_\n"; s/%d/$RE{num}{int}/g; print "2b: $_\n" },
all => sub { print "2c: $_\n" },
regex => su... |
| Filter-Simple-0.88 | DotsForArrows | show |
| FILTER { s/\b\.(?=[a-z_\$({[])/->/gi } |
| Filter-Simple-0.88 | DemoRevCat | show |
| FILTER_ONLY
code => sub {
my $ph = $Filter::Simple::placeholder;
s/($ph)\s*[.]\s*($ph)/$2.$1/g
}, |
| Filter-Simple-0.88 | Demo_Exporter | show |
| FILTER {
s/dye/die/g;
} |
| Filter-Simple-0.88 | Demo_Data | show |
| FILTER { s/say/print/g; } |
| Filter-Simple-0.88 | DemoUnPod | show |
| FILTER_ONLY
executable => sub { s/x/X/g },
executable => sub { print } |
| Filter-Simple-0.88 | Demo_Importer | show |
| FILTER {
s/dye/die/g;
} |
| Filter-Simple-0.88 | DemoData | show |
| FILTER_ONLY
data => sub { s/(^|[ \t]+)(\S)/\u$2/gm },
all => sub { print } |
| Filter-Simple-0.88 | DemoSwear | show |
| FILTER_ONLY
all => sub { print "-------\n$_" },
string => sub { s/$RE{profanity}/darn/g },
all => sub { print "-------\n$_" },
code => sub { s/$RE{profanity}|[@%#&*]{3,}([-]\S+)?//g },
all => sub { print "-------\n$_" }, |
| Finance-Instrument-0.02 | Finance::Instrument::Domain | show |
| method global {
$GLOBAL ||= __PACKAGE__->new;
}
method load_default_exchanges {
my $file = File::ShareDir::dist_file('Finance-Instrument', 'iso10383_mic.csv');
open my $fh, '<:encoding(utf8)', $file or die "$file: $!";
my $csv = Tex... |
| Finance-Instrument-0.02 | Finance::Instrument::FuturesContract | show |
| method BUILDARGS {
my %args = @_;
my $strp = DateTime::Format::Strptime->new(
pattern => '%F',
time_zone => $args{futures}->time_zone);
for (qw(last_trading_day first_trading_day)) {
if ($args{$_}) {
... |
| Finance-TA-v0.4.0 | Finance::TA | show |
| $INITIALIZED |
| Finance-TA-v0.4.0 | Finance::TA | show |
| $INITIALIZED |
| Flea-0.04 | Flea | show |
| default_export get Flea::Parser::Route { route(['get'], @_) }
default_export put Flea::Parser::Route { route(['put'], @_) }
default_export del Flea::Parser::Route { route(['del'], @_) }
default_export any Flea::Parser::Route { route(['a... |
| FreePAN-0.10 | FreePAN | show |
| const config_class => 'FreePAN::Config' |
| FreeRADIUS-Database-0.06 | FreeRADIUS::Database::Storage::Result::DailyAgg | show |
| __PACKAGE__->set_primary_key( qw/ TotAcctId / ) |
| FreeRADIUS-Database-0.06 | FreeRADIUS::Database::Storage::Result::MonthlyAgg | show |
| __PACKAGE__->set_primary_key( qw/ MTotAcctId / ) |
| FreeRADIUS-Database-0.06 | FreeRADIUS::Database::Storage::Result::Radcheck | show |
| __PACKAGE__->set_primary_key( qw/ id / ) |
| FreeRADIUS-Database-0.06 | FreeRADIUS::Database::Storage::Result::Radacct | show |
| __PACKAGE__->set_primary_key( qw/ RadAcctId / ) |
| FreeWRL-0.14 | VRML::NodeType | show |
| %VRML::Nodes = (
DEF => new VRML::NodeType("DEF",{node => [SFNode, NULL]}, id => [SFString,""]),
USE => new VRML::NodeType("USE",{node => [SFNode, NULL]}, id => [SFString,""]),
Shape => new VRML::NodeType ("Shape",
{appearance =>... |
| FreeWRL-0.14 | VRML::PNG | show |
| bootstrap VRML::PNG |
| FreeWRL-0.14 | VRML::JPEG | show |
| bootstrap VRML::JPEG |
| Freecell-App-0.03 | Freecell::App | show |
| run() unless caller |
| GD-Graph-sparklines-0.2 | GD::Graph::sparklines | show |
| $VERSION |
| GDGraph-boxplot-1.00 | GD::Graph::boxplot | show |
| $GD::Graph::boxplot::VERSION |
| GIFgraph-1.20 | GIFgraph | show |
| $GIFgraph::VERSION |
| GIFgraphExtensions-1.0 | GIFgraph::EvenlySpaced | show |
| $VERSION |
| GIFgraphExtensions-1.0 | GIFgraph::WithMap | show |
| $VERSION |
| GO-TermFinder-0.86 | GO::Reference | show |
| $VERSION = 0.1 |
| Games-Baseball-Scorecard-0.03 | Games::Baseball::Scorecard | show |
| $TEXD = <<'EOT' |
| GappX-NoticeBox-0.200 | GappX::NoticeBox | show |
| build 'GappX::NoticeBox', sub {
my ( $l, $w ) = @_;
my $gtkw = $w->gobject;
$gtkw->set_keep_above( 1 );
} |
| Gateway-0.42 | News::Gateway | show |
| $VERSION = 0.42 |
| Gedcom-1.18 | Gedcom::Grammar_5_5_1 | show |
| $grammar = bless( {
fh => \*Symbol::GEN0,
file => 'gedcom-5.5.1.grammar',
gedcom => {},
items => [
bless( {
file => '*',
items => [
bless( {
_items => 1,
file => '*',
gedcom => {},
items => [],
level => 0,
line => 34,
m... |
| Gedcom-1.18 | Gedcom::Grammar_5_5 | show |
| $grammar = bless( {
fh => \*Symbol::GEN0,
file => 'gedcom-5.5.grammar',
gedcom => {},
items => [
bless( {
file => '*',
items => [
bless( {
_items => 1,
file => '*',
gedcom => {},
items => [],
level => 0,
line => 32,
max... |
| Geo-Calc-XS-0.25 | Geo::Calc::XS | show |
| XSLoader::load 'Geo::Calc::XS', $VERSION |
| Geo-Direction-Distance-0.0.2 | Geo::Direction::Distance | show |
| sub v2p_pp{
my ($f,$a,$rd,$lat,$lng,$dir,$dis) = @_;
($lat,$lng,$dir) = map{ $_ * $rd } ($lat,$lng,$dir);
my $r = 1 - $f;
my $tu = $r * tan($lat);
my $sf = sin($dir);
my $cf = cos($dir);
my $b = ($cf == 0) ? 0.0 : 2.0 ... |
| Getopt-Mixed-1.11 | Getopt::Mixed | show |
| $VERSION |
| Gimp-ScriptFu-Client-1.01 | Gimp::ScriptFu::Client | show |
| FILTER {
my $script = $_;
$script =~ s/\r\n/\n/g if $^O =~ /win32/i;
my $peer_host = "localhost";
my $peer_port = 10008;
my $verbose = 0;
my $syntax = 0;
my $include = '';
Getopt::Long::Configure("bundling... |
| Git-Hook-PostReceive-0.01 | Git::Hook::PostReceive | show |
| method read_stdin ($line) {
chomp $line;
my @args = split /\s+/, $line;
return $->run( @args );
}
method run ($before, $after, $ref) {
my $is_new_head = $before =~ /^0{40}/;
my $is_delete = $after =~ /^0{40}/;
$before = $befo... |
| Gitalist-0.004001 | Gitalist::Git::Object::Commit | show |
| class Gitalist::Git::Object::Commit
extends Gitalist::Git::Object
with Gitalist::Git::Object::HasTree {
use MooseX::Types::Moose qw/Str Int Bool Maybe ArrayRef/;
use MooseX::Types::Common::String qw/NonEmptySimpleStr SimpleStr/;
... |
| Gitalist-0.004001 | Gitalist::Git::Object::Tree | show |
| class Gitalist::Git::Object::Tree
extends Gitalist::Git::Object
with Gitalist::Git::Object::HasTree {
has '+type' => ( default => 'tree' );
has '+_gpp_obj' => ( handles => [ 'directory_entries',
... |
| Gitalist-0.004001 | Gitalist::Git::Object::Blob | show |
| class Gitalist::Git::Object::Blob extends Gitalist::Git::Object {
has '+type' => ( default => 'blob' );
}
1 |
| Gitalist-0.004001 | Gitalist::Git::Object::Tag | show |
| class Gitalist::Git::Object::Tag extends Gitalist::Git::Object {
has '+type' => ( default => 'tag' );
has '+_gpp_obj' => ( handles => [ 'object',
'tag',
'tagge... |
| Gitalist-Git-CollectionOfRepositories-Gitolite-0.002 | Gitalist::Git::CollectionOfRepositories::Gitolite | show |
| class Gitalist::Git::CollectionOfRepositories::Gitolite
with Gitalist::Git::CollectionOfRepositoriesWithRequestState
{
use MooseX::Types::Common::String qw/NonEmptySimpleStr/;
use Gitalist::Git::Types qw/DirOrUndef /;
has gitolite_co... |
| Gitalist-Git-CollectionOfRepositories-Gitolite-0.002 | Gitalist::Git::CollectionOfRepositories::Gitolite
::Impl | show |
| class Gitalist::Git::CollectionOfRepositories::Gitolite::Impl
{
use MooseX::Types::Common::String qw/NonEmptySimpleStr/;
use MooseX::Types::Path::Class qw/Dir/;
use Moose::Util::TypeConstraints;
has remote_user => (
is =>... |
| Gitalist-Git-CollectionOfRepositories-Gitolite-0.002 | Gitalist::Git::CollectionOfRepositories::Gitolite
::Collection | show |
| class Gitalist::Git::CollectionOfRepositories::Gitolite::Collection
extends Gitalist::Git::CollectionOfRepositories::FromListOfDirectories {
use MooseX::Types::Common::String qw/NonEmptySimpleStr/;
use Gitalist::Git::Types qw/DirOrUndef Ar... |
| Glade-Perl-0.61 | Glade::PerlRun | show |
| sub _ {gettext(@_)}
sub gettext {
defined $I18N->{'__'}{$_[0]} ? $I18N->{'__'}{$_[0]} : $_[0];
}
{
local $^W = 0;
eval "sub x_ {_check_gettext('__', \@_);}";
}
sub S_ { _check_gettext('__S', @_)}
sub D_ { _check_gettext('__D', @_)... |
| Glade-Perl-Two-0.01 | Glade::Two::Run | show |
| sub _ {gettext(@_)}
sub gettext {
defined $I18N->{$RUN_LANG}{$_[0]} ? $I18N->{$RUN_LANG}{$_[0]} : $_[0];
}
{
local $^W = 0;
eval "sub x_ {_check_gettext('__', \@_);}";
}
sub S_ { _check_gettext($SOURCE_LANG, @_)}
sub D_ { _check_g... |
| Graphics-ColorDeficiency-0.05 | Graphics::ColorDeficiency::Data | show |
| $HASH = {
'cc3300' => [
'7e711b',
'8f6d00',
'cc3030'
],
'ccff99' => [
'ffeb97',
'ffd8ab... |
| Graphics-VTK-4.0.001 | Graphics::VTK::Colors | show |
| @violet_red_pale = qw/0.8588 0.4392 0.5765/ |
| Gtk2-Ex-ErrorTextDialog-10 | MyRunawayWarnAndError | show |
| print "runaway string\n
$something_undeclared
print "ANOTHER line\n";
1;
__END__
|
| Gtk2-Ex-PrintDialog-0.03 | Gtk2::Ex::PrintDialog | show |
| sub _ {
my $text = shift;
return ($GETTEXT == 1 ? Locale::gettext::gettext($text) : $text);
}
sub which {
my $cmd = shift;
foreach my $dir (split(/:/, $ENV{PATH})) {
my $path = File::Spec->catfile($dir, $cmd);
return $path if (-x $path);
}
r... |
| HTML-FormEngine-1.01 | HTML::FormEngine::ComplexSkin | show |
| $skin{_text} = '<input type="<&TYPE&>" value="<&value&>" name="<&NAME&>" id="<&ID&>" maxlength="<&MAXLEN&>" size="<&SIZE&>" <&readonly&> />' |
| HTML-GoogleMaps-10 | HTML::GoogleMaps | show |
| sub v2_zoom {
my ($this, $zoom_level) = @_;
$this->{zoom} = $zoom_level;
}
sub controls {
my ($this, @controls) = @_;
my %valid_controls = map { $_ => 1 } qw(large_map_control
small_map_control
small_zoom_control
map_type_cont... |
| HTML-TableLayout-1.001008 | HTML::TableLayout | show |
| %EXPORT_TAGS=(FORM=>
[qw(
form
choice
button
checkbox
textarea
hidden
faux
input_text
password
submit
radio
)]) |
| HTML-TableParser-0.38 | HTML::TableParser::Table | show |
| DESTROY
{
my $self = shift;
if ( $self->{process} )
{
$self->end_row();
$self->finish_header();
$self->callback( 'end', $self->{line} );
}
}
sub fix_texts
{
my ( $req, $texts ) = @_;
for ( @$texts )
{
loc... |
| HTTP-Engine-0.03005 | HTTP::Engine::Interface::Standalone | show |
| __INTERFACE__ |
| HTTP-Engine-0.03005 | HTTP::Engine::Interface::POE | show |
| __INTERFACE__ |
| HTTP-Engine-0.03005 | HTTP::Engine::Interface::PSGI | show |
| __INTERFACE__ |
| HTTP-Engine-0.03005 | HTTP::Engine::Interface::CGI | show |
| __INTERFACE__ |
| HTTP-Engine-0.03005 | HTTP::Engine::Interface::FCGI | show |
| __INTERFACE__ |
| HTTP-Engine-0.03005 | HTTP::Engine::Interface::ServerSimple | show |
| __INTERFACE__ |
| HTTP-Engine-0.03005 | HTTP::Engine::Interface::Test | show |
| __INTERFACE__ |
| HTTP-Engine-0.03005 | HTTP::Engine::Interface::ModPerl | show |
| __INTERFACE__ |
| HTTP-Engine-Middleware-0.22 | HTTP::Engine::Middleware::DoCoMoGUID | show |
| __MIDDLEWARE__ |
| HTTP-Engine-Middleware-0.22 | HTTP::Engine::Middleware::Encode | show |
| __MIDDLEWARE__ |
| HTTP-Engine-Middleware-0.22 | HTTP::Engine::Middleware::MethodOverride | show |
| __MIDDLEWARE__ |
| HTTP-Engine-Middleware-0.22 | HTTP::Engine::Middleware::ModuleReload | show |
| __MIDDLEWARE__ |
| HTTP-Engine-Middleware-0.22 | HTTP::Engine::Middleware::ReverseProxy | show |
| __MIDDLEWARE__ |
| HTTP-Engine-Middleware-0.22 | HTTP::Engine::Middleware::Status | show |
| __MIDDLEWARE__ |
| HTTP-Engine-Middleware-0.22 | HTTP::Engine::Middleware::AccessLog | show |
| __MIDDLEWARE__ |
| HTTP-Engine-Middleware-0.22 | HTTP::Engine::Middleware::MobileAttribute | show |
| __MIDDLEWARE__ |
| HTTP-Engine-Middleware-0.22 | HTTP::Engine::Middleware::DebugScreen | show |
| __MIDDLEWARE__ |
| HTTP-Engine-Middleware-0.22 | HTTP::Engine::Middleware::Static | show |
| __MIDDLEWARE__ |
| HTTP-Engine-Middleware-0.22 | HTTP::Engine::Middleware::HTTPSession | show |
| __MIDDLEWARE__ |
| HTTP-Engine-Middleware-0.22 | HTTP::Engine::Middleware::DebugRequest | show |
| __MIDDLEWARE__ |
| HTTP-Engine-Middleware-0.22 | HTTP::Engine::Middleware::Profile | show |
| __MIDDLEWARE__ |
| HTTP-Engine-Middleware-0.22 | HTTP::Engine::Middleware::UploadTemp | show |
| __MIDDLEWARE__ |
| HTTP-Engine-Middleware-0.22 | HTTP::Engine::Middleware::FillInForm | show |
| __MIDDLEWARE__ |
| Hash-Abbrev-0.01 | Hash::Abbrev | show |
| __PACKAGE__ if 'first require' |
| Hook-Output-File-0.07 | Hook::Output::File | show |
| DESTROY
{
my $self = shift;
return if reftype $self eq 'GLOB' && *$self =~ /^\*Tie::StdHandle/;
no strict 'refs';
my $caller = caller;
no warnings 'untie';
foreach my $stream (@{$self->{streams}}) {
untie *{"${caller}... |
| IO-Async-Loop-AnyEvent2-ElectricBoogaloo-0.002 | IO::Async::Loop::AnyEvent2::ElectricBoogaloo | show |
| <<'' |
| IO-Callback-HTTP-0.002 | IO::Callback::HTTP | show |
| true |
| IPC-Run-0.92 | IPC::Run::Debug | show |
| eval( $disable_debugging ? <<'STUBS' : <<'SUBS' ) or die $@ |
| IPTables-IPv4-DBTarpit-0.43 | IPTables::IPv4::DBTarpit | show |
| $VERSION = do { q|char version[] = "dbtarpit 0.43, 4-19-10";| =~ /(\d+)\.(\d+)/; sprintf("%d.%02d",$1,$2)} |
| Image-ExifTool-9.13 | Image::ExifTool::GE | show |
| %Image::ExifTool::GE::Main = (
WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
WRITABLE => 1,
GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
NOTES => q{
... |
| Image-ExifTool-9.13 | Image::ExifTool::Reconyx | show |
| %Image::ExifTool::Reconyx::Main = (
GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
WRITE_PROC => \&Image::ExifTool::WriteBinaryData,
CHECK_PROC => \&Image::ExifTool::... |
| Image-Placeholder-v1.0.0 | Image::Placeholder | show |
| method BUILD {
$self->set_size_from_string( $self->get_size() )
if defined $self->get_size();
$self->{'height'} = $self->get_width()
unless defined $self->get_height();
$self->{'width'} = 300
... |
| Image-ValidJpeg-1.001001 | Image::ValidJpeg | show |
| XSLoader::load('Image::ValidJpeg', $VERSION) |
| Imager-0.94 | Imager::File::PNG | show |
| Imager->register_writer
(
type=>'png',
single =>
sub {
my ($im, $io, %hsh) = @_;
$im->_set_opts(\%hsh, "i_", $im);
$im->_set_opts(\%hsh, "png_", $im);
unless (i_writepng_wiol($im->{IMG}, $io)) {
... |
| Imager-0.94 | Imager::File::TIFF | show |
| Imager->register_writer
(
type=>'tiff',
single =>
sub {
my ($im, $io, %hsh) = @_;
$im->_set_opts(\%hsh, "i_", $im);
$im->_set_opts(\%hsh, "tiff_", $im);
$im->_set_opts(\%hsh, "exif_", $im);
if (def... |
| Imager-0.94 | Imager::File::JPEG | show |
| Imager->register_writer
(
type=>'jpeg',
single =>
sub {
my ($im, $io, %hsh) = @_;
$im->_set_opts(\%hsh, "i_", $im);
$im->_set_opts(\%hsh, "jpeg_", $im);
$im->_set_opts(\%hsh, "exif_", $im);
my $qua... |
| Imager-0.94 | Imager::File::SGI | show |
| Imager->register_writer
(
type=>'sgi',
single =>
sub {
my ($im, $io, %hsh) = @_;
$im->_set_opts(\%hsh, "i_", $im);
$im->_set_opts(\%hsh, "sgi_", $im);
unless (i_writesgi_wiol($io, $im->{IMG})) {
... |
| Imager-0.94 | Imager::File::GIF | show |
| Imager->register_writer
(
type=>'gif',
single =>
sub {
my ($im, $io, %hsh) = @_;
$im->_set_opts(\%hsh, "i_", $im);
$im->_set_opts(\%hsh, "gif_", $im);
unless (i_writegif_wiol($io, \%hsh, $im->{IMG})) {
... |
| Imager-File-GIF-0.86 | Imager::File::GIF | show |
| Imager->register_writer
(
type=>'gif',
single =>
sub {
my ($im, $io, %hsh) = @_;
$im->_set_opts(\%hsh, "i_", $im);
$im->_set_opts(\%hsh, "gif_", $im);
unless (i_writegif_wiol($io, \%hsh, $im->{IMG})) {
... |
| Imager-File-JPEG-0.85 | Imager::File::JPEG | show |
| Imager->register_writer
(
type=>'jpeg',
single =>
sub {
my ($im, $io, %hsh) = @_;
$im->_set_opts(\%hsh, "i_", $im);
$im->_set_opts(\%hsh, "jpeg_", $im);
$im->_set_opts(\%hsh, "exif_", $im);
my $qua... |
| Imager-File-PNG-0.86 | Imager::File::PNG | show |
| Imager->register_writer
(
type=>'png',
single =>
sub {
my ($im, $io, %hsh) = @_;
$im->_set_opts(\%hsh, "i_", $im);
$im->_set_opts(\%hsh, "png_", $im);
unless (i_writepng_wiol($im->{IMG}, $io)) {
... |
| Imager-File-TIFF-0.85 | Imager::File::TIFF | show |
| Imager->register_writer
(
type=>'tiff',
single =>
sub {
my ($im, $io, %hsh) = @_;
$im->_set_opts(\%hsh, "i_", $im);
$im->_set_opts(\%hsh, "tiff_", $im);
$im->_set_opts(\%hsh, "exif_", $im);
if (def... |
| Introspector-0.04 | Introspector::MetaInheritance | show |
| contract
{
ctor 'new'; impl {
my $baseclass =shift;
${self->_baseclass} = $baseclass;
};
attr '_baseclass' => 'SCALAR';
method 'instanciate_code';
impl
{
my $package = shift;
my $baseclass = ${self->_baseclass};
... |
| Isam-0.2 | Person | show |
| $kd_prenom_nom->k_part( 1, [ 0, 21, &CHARTYPE ] ) |
| Java-JVM-Classfile-0.20 | Java::JVM::Classfile::Ops | show |
| %ops = (
0 => {
name => 'nop',
operands => 0,
operand_types => [],
consumed => 0,
produced => 0,
type => 'noargs',
},
1 => {
name => 'aconst_null',
... |
| Jenkins-NotificationListener-0.06 | Jenkins::NotificationListener | show |
| method start ($prepare_cb) {
return tcp_server $self->host, $self->port , sub {
my ($fh, $host, $port) = @_;
my $json = '';
my $buf = '';
while( my $bytes = sysread $fh, $buf, 1024 ) {
$json .= $buf;
... |
| Keystone-Resolver-1.23 | Keystone::Resolver::OpenURL | show |
| sub v10url {
my $this = shift();
my(@skip) = @_;
my $url = $this->base();
my $gotOne = 0;
foreach my $d ($this->co()->descriptors()) {
my $name = $d->name();
foreach my $key ($d->superdata_keys()) {
my $valref = ... |
| Kwiki-0.39 | Kwiki::CSS | show |
| conf css_path => [ 'css' ] |
| Kwiki-0.39 | Kwiki::Status | show |
| const pane_template => 'status_pane.html' |
| Kwiki-0.39 | Kwiki::Cookie | show |
| const prefix => 'Kwiki-' |
| Kwiki-0.39 | Kwiki::Widgets | show |
| const pane_unit => 'widget' |
| Kwiki-0.39 | Kwiki::Base | show |
| field 'id' |
| Kwiki-0.39 | Kwiki::Files | show |
| const class_title => 'Kwiki Files' |
| Kwiki-0.39 | Kwiki::Javascript | show |
| conf javascript_path => [ 'javascript' ] |
| Kwiki-0.39 | Kwiki::Theme::Basic | show |
| const class_title => 'Basic Theme' |
| Kwiki-0.39 | Kwiki::Template::TT2 | show |
| conf template_path => [ './template/tt2' ] |
| Kwiki-DB-0.02 | Kwiki::DB | show |
| const id => 'db' |
| Kwiki-Icons-Gnome-0.15 | Kwiki::Icons::Gnome | show |
| const icons_path => 'icons/gnome/template' |
| Kwiki-Theme-ColumnLayout-0.08 | Kwiki::Theme::ColumnLayout | show |
| const class_title => 'Column Layout Theme' |
| Kwiki-Theme-Klassik-0.12 | Kwiki::Theme::Klassik | show |
| const class_title => 'Klassik Theme' |
| Lexical-Attributes-2009121601 | Lexical::Attributes | show |
| FILTER_ONLY
all => sub {%attributes = ()},
code => sub {
1 while s/( # Save
(?<!$sigil) # Not preceeded by a sigil
\# # Start of a comment.
... |
| Leyland-0.001007 | Leyland::Parser | show |
| default_export get Leyland::Parser::Route { caller->add_route('get', @_) }
default_export put Leyland::Parser::Route { caller->add_route('put', @_) }
default_export del Leyland::Parser::Route { caller->add_route('del', @_) }
default_export any... |
| Lingua-EN-Numbers-Easy-2009110701 | Lingua::EN::Numbers::Easy | show |
| tie %N => __PACKAGE__ |
| Lingua-EN-Semtags-Engine-0.01 | Lingua::EN::Semtags::LangUnit | show |
| TRUE |
| Lingua-EN-Semtags-Engine-0.01 | Lingua::EN::Semtags::Sentence | show |
| TRUE |
| Lingua-EN-Semtags-Engine-0.01 | Lingua::EN::Semtags::Engine | show |
| TRUE |
| Lingua-EN-SimilarNames-Levenshtein-0.10 | Lingua::EN::SimilarNames::Levenshtein | show |
| class Person {
has 'first_name' => (isa => 'Str', is => 'ro', default => '');
has 'last_name' => (isa => 'Str', is => 'ro', default => '');
has 'full_name' => (
isa => 'Str',
is =&... |
| Lingua-EN-VerbTense-3.003 | Lingua::EN::VerbTense | show |
| verb 'zoom','zooms','zoomed','zoomed','zooming' |
| Lingua-FreeLing3-0.05 | Lingua::FreeLing3::Bindings | show |
| *traces_TraceModule = *Lingua::FreeLing3::Bindingsc::traces_TraceModule |
| Lingua-JP-Kanjidic-1.1 | Lingua::JP::Kanjidic | show |
| %joyo = map { chr(hex($_))=>1 } qw(
4E00 4E5D 4E03 4E8C 4EBA 5165 516B 529B 5341 4E0B 4E09 5343 4E0A 53E3 571F 5915
5927 5973 5B50 5C0F 5C71 5DDD 4E94 5929 4E2D 516D 5186 624B 6587 65E5 6708 6728
6C34 706B 72AC 738B 6B63 51FA 672C 53F3 56DB 5DE6 7389 ... |
| Lingua-PT-Speaker-0.12 | Lingua::PT::Speaker::AdjWords | show |
| RULES a
//==>/
(e|a)/\1==>/$1
6/6(?!~)==>/a
6/a==>/a
S/([a\@eA6iouOE])==>z/$1
\@/([eaoOEu])==>i/$1
\@/([\@i6])==>/$1
## u/($vg)==>w/$1
ENDRULES
1 |
| Lingua-PT-Speaker-0.12 | Lingua::PT::Speaker::Prosody | show |
| RULES a |
| Lingua-ZH-ChineseNaming-0.02 | Lingua::ZH::ChineseNaming | show |
| $CHARS=<<EOF |
| Location-GeoTool-2 | Location::GeoTool | show |
| sub v2p_pp
{
my ($f,$a,$rd,$lat,$lon,$dir,$dis) = @_;
($lat,$lon,$dir) = map{ $_ * $rd } ($lat,$lon,$dir);
my $r = 1 - $f;
my $tu = $r * tan($lat);
my $sf = sin($dir);
my $cf = cos($dir);
my $b = ($cf == 0) ? 0.0 : 2.0 * atan2($tu,$cf... |
| Log-AndError-0.99 | Log::AndError | show |
| DESTROY {
my $self = shift;
}
sub new {
my $proto = shift;
my $class = ref($proto) || $proto;
my $self = {};
bless($self, $class);
foreach my $nomen (keys(%Deflt)){
$self->{$nomen} = $Deflt{$nomen};
}
my %Cfg = @_;
@{$self}{keys(%C... |
| Log-Fu-0.30 | Log::Fu::Common | show |
| push @EXPORT, 'fu_term_is_ansi' |
| Lvalue-0.21 | Lvalue | show |
| __PACKAGE__ if 'first require' |
| M-1.000001 | M | show |
| $VERSION = 1.000001 |
| MHonArc-2.6.18 | MHonArc::UTF8::AppleTurkish | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¥',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','´',
'�','µ',
'�','¶',
'�','·',
'�','¸',
'�','º',
'�','»',
'�','¿',
'�','À',
'�','Á',
'�','Â',
'�','Ã',
'�','Ä',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::CP1250 | show |
| +{
'�',' ',
'�','¤',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','«',
'�','¬',
'�','',
'�','®',
'�','°',
'�','±',
'�','´',
'�','µ',
'�','¶',
'�','·',
'�','¸',
'�','»',
'�','Á',
'�','Â',
'�','Ä',
'�','Ç',
'�','É',
'�','Ë',
'�','Í',
'�','Î',
'�','Ó',
'�','Ô',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::CP1253 | show |
| +{
'�',' ',
'�','£',
'�','¤',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','«',
'�','¬',
'�','',
'�','®',
'�','°',
'�','±',
'�','²',
'�','³',
'�','µ',
'�','¶',
'�','·',
'�','»',
'�','½',
'�','ƒ',
'�','΄',
'�','΅',
'�','Ά',
'�','Έ',
'�','Ή',
'�','Ί',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::ISO8859_14 | show |
| +{
'�',' ',
'�','Ḃ',
'�','ḃ',
'�','£',
'�','Ċ',
'�','ċ',
'�','Ḋ',
'�','§',
'�','Ẁ',
'�','©',
'�','Ẃ',
'�','ḋ',
'�','Ỳ',
'�','',
'�','®',
'�','Ÿ',
'�','Ḟ',
'�','ḟ',
'�','Ġ',
'�','ġ',
'�','Ṁ',
'�','ṁ',
'�','¶',
'�','Ṗ',
'�','ẁ',
'�','ṗ',
'�','ẃ',
'�','Ṡ',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::ISO8859_10 | show |
| +{
'�',' ',
'�','Ą',
'�','Ē',
'�','Ģ',
'�','Ī',
'�','Ĩ',
'�','Ķ',
'�','§',
'�','Ļ',
'�','Đ',
'�','Š',
'�','Ŧ',
'�','Ž',
'�','',
'�','Ū',
'�','Ŋ',
'�','°',
'�','ą',
'�','ē',
'�','ģ',
'�','ī',
'�','ĩ',
'�','ķ',
'�','·',
'�','ļ',
'�','đ',
'�','š',
'�','ŧ',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::ISO8859_4 | show |
| +{
'�',' ',
'�','Ą',
'�','ĸ',
'�','Ŗ',
'�','¤',
'�','Ĩ',
'�','Ļ',
'�','§',
'�','¨',
'�','Š',
'�','Ē',
'�','Ģ',
'�','Ŧ',
'�','',
'�','Ž',
'�','¯',
'�','°',
'�','ą',
'�','˛',
'�','ŗ',
'�','´',
'�','ĩ',
'�','ļ',
'�','ˇ',
'�','¸',
'�','š',
'�','ē',
'�','ģ',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::AppleCyrillic | show |
| +{
'�',' ',
'�','£',
'�','§',
'�','©',
'�','«',
'�','¬',
'�','®',
'�','°',
'�','±',
'�','µ',
'�','¶',
'�','»',
'�','÷',
'�','ƒ',
'�','Ё',
'�','Ђ',
'�','Ѓ',
'�','Є',
'�','Ѕ',
'�','І',
'�','Ї',
'�','Ј',
'�','Љ',
'�','Њ',
'�','Ћ',
'�','Ќ',
'�','Ў',
'�','Џ',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::CP949 | show |
| +{
'��','¡',
'��','¤',
'��','§',
'��','¨',
'��','ª',
'��','',
'��','®',
'��','°',
'��','±',
'��','²',
'��','³',
'��','´',
'��','¶',
'��','·',
'��','¸',
'��','¹',
'��','º',
'��','¼',
'��','½',
'��','¾',
'��','¿',
'��','Æ',
'��','Ð',
'��','×',
'��','Ø',
'�... |
| MHonArc-2.6.18 | MHonArc::UTF8::AppleCroatian | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','´',
'�','µ',
'�','¶',
'�','·',
'�','¸',
'�','º',
'�','»',
'�','¿',
'�','À',
'�','Á',
'�','Â',
'�','Ã',
'�','Ä',
'�','Å',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::AppleCenteuro | show |
| +{
'�',' ',
'�','£',
'�','§',
'�','¨',
'�','©',
'�','«',
'�','¬',
'�','®',
'�','°',
'�','¶',
'�','»',
'�','Á',
'�','Ä',
'�','É',
'�','Í',
'�','Ó',
'�','Ô',
'�','Õ',
'�','Ö',
'�','Ú',
'�','Ü',
'�','Ý',
'�','ß',
'�','á',
'�','ä',
'�','é',
'�','í',
'�','ó',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::KOI_7 | show |
| +{
'$','¤',
'`','Ю',
'a','А',
'b','Б',
'c','Ц',
'd','Д',
'e','Е',
'f','Ф',
'g','Г',
'h','Х',
'i','И',
'j','Й',
'k','К',
'l','Л',
'm','М',
'n','Н',
'o','О',
'p','П',
'q','Я',
'r','Р',
's','С',
't','Т',
'u','У',
'v','Ж',
'w','В',
'x','Ь',
'y','Ы',
'z','З',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::AppleArabic | show |
| +{
'�','Ä',
'�',' ',
'�','Ç',
'�','É',
'�','Ñ',
'�','Ö',
'�','Ü',
'�','á',
'�','à',
'�','â',
'�','ä',
'�','ں',
'�','«',
'�','ç',
'�','é',
'�','è',
'�','ê',
'�','ë',
'�','í',
'�','…',
'�','î',
'�','ï',
'�','ñ',
'�','ó',
'�','»',
'�','ô',
'�','ö',
'�','÷',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::CP936 | show |
| +{
'�','€',
'��','¤',
'��','§',
'��','¨',
'��','°',
'��','±',
'��','·',
'��','×',
'��','à',
'��','á',
'��','è',
'��','é',
'��','ê',
'��','ì',
'��','í',
'��','ò',
'��','ó',
'��','÷',
'��','ù',
'��','ú',
'��','ü',
'��','ā',
'��','ē',
'��','ě',
'��','ī',
'��... |
| MHonArc-2.6.18 | MHonArc::UTF8::KOI8_A | show |
| +{
'$','¤',
'�','ю',
'�','а',
'�','б',
'�','ц',
'�','д',
'�','е',
'�','ф',
'�','г',
'�','х',
'�','и',
'�','й',
'�','к',
'�','л',
'�','м',
'�','н',
'�','о',
'�','п',
'�','я',
'�','р',
'�','с',
'�','т',
'�','у',
'�','ж',
'�','в',
'�','ь',
'�','ы',
'�','з',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::KOI8_B | show |
| +{
'�','ё',
'�','Ё',
'�','ю',
'�','а',
'�','б',
'�','ц',
'�','д',
'�','е',
'�','ф',
'�','г',
'�','х',
'�','и',
'�','й',
'�','к',
'�','л',
'�','м',
'�','н',
'�','о',
'�','п',
'�','я',
'�','р',
'�','с',
'�','т',
'�','у',
'�','ж',
'�','в',
'�','ь',
'�','ы',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::AppleHebrew | show |
| +{
'�','Ä',
'�','ײַ',
'�','Ç',
'�','É',
'�','Ñ',
'�','Ö',
'�','Ü',
'�','á',
'�','à',
'�','â',
'�','ä',
'�','ã',
'�','å',
'�','ç',
'�','é',
'�','è',
'�','ê',
'�','ë',
'�','í',
'�','ì',
'�','î',
'�','ï',
'�','ñ',
'�','ó',
'�','ò',
'�','ô',
'�','ö',
'�','õ',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::CP950 | show |
| +{
'��','§',
'��','¯',
'�X','°',
'��','±',
'�P','·',
'��','×',
'��','÷',
'��','ˇ',
'��','ˉ',
'��','ˊ',
'��','ˋ',
'��','ˍ',
'��','˙',
'�D','Α',
'�E','Β',
'�F','Γ',
'�G','Δ',
'�H','Ε',
'�I','Ζ',
'�J','Η',
'�K','Θ',
'�L','Ι',
'�M','Κ',
'�N','Λ',
'�O','Μ',
'�... |
| MHonArc-2.6.18 | MHonArc::UTF8::KOI8_U | show |
| +{
'�','─',
'�','│',
'�','┌',
'�','┐',
'�','└',
'�','┘',
'�','├',
'�','┤',
'�','┬',
'�','┴',
'�','┼',
'�','▀',
'�','▄',
'�','█',
'�','▌',
'�','▐',
'�','░',
'�','▒',
'�','▓',
'�','⌠',
'�','■',
'�','•',
'�','√',
'�','≈',
'�','≤',
'�','≥',
'�',' ',
'�','⌡',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::ISO8859_1 | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¤',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','²',
'�','³',
'�','´',
'�','µ',
'�','¶',
'�','·',
'�','¸',
'�','¹',
'�','º',
'�','»',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::HP_ROMAN8 | show |
| +{
'�',' ',
'�','À',
'�','Â',
'�','È',
'�','Ê',
'�','Ë',
'�','Î',
'�','Ï',
'�','´',
'�','ˋ',
'�','ˆ',
'�','¨',
'�','˜',
'�','Ù',
'�','Û',
'�','₤',
'�','¯',
'�','Ý',
'�','ý',
'�','°',
'�','Ç',
'�','ç',
'�','Ñ',
'�','ñ',
'�','¡',
'�','¿',
'�','¤',
'�','£',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::AppleRomanian | show |
| +{
'�','Ș',
'�','Ț',
'�','ș',
'�','ț',
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¥',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','´',
'�','µ',
'�','¶',
'�','·',
'�','¸',
'�','º',
'�','»',
'�','¿',
'�','... |
| MHonArc-2.6.18 | MHonArc::UTF8::ISO8859_13 | show |
| +{
'�',' ',
'�','”',
'�','¢',
'�','£',
'�','¤',
'�','„',
'�','¦',
'�','§',
'�','Ø',
'�','©',
'�','Ŗ',
'�','«',
'�','¬',
'�','',
'�','®',
'�','Æ',
'�','°',
'�','±',
'�','²',
'�','³',
'�','“',
'�','µ',
'�','¶',
'�','·',
'�','ø',
'�','¹',
'�','ŗ',
'�','»',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::ISO8859_2 | show |
| +{
'�',' ',
'�','Ą',
'�','˘',
'�','Ł',
'�','¤',
'�','Ľ',
'�','Ś',
'�','§',
'�','¨',
'�','Š',
'�','Ş',
'�','Ť',
'�','Ź',
'�','',
'�','Ž',
'�','Ż',
'�','°',
'�','ą',
'�','˛',
'�','ł',
'�','´',
'�','ľ',
'�','ś',
'�','ˇ',
'�','¸',
'�','š',
'�','ş',
'�','ť',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::ISO8859_3 | show |
| +{
'�',' ',
'�','Ħ',
'�','˘',
'�','£',
'�','¤',
'�','Ĥ',
'�','§',
'�','¨',
'�','İ',
'�','Ş',
'�','Ğ',
'�','Ĵ',
'�','',
'�','Ż',
'�','°',
'�','ħ',
'�','²',
'�','³',
'�','´',
'�','µ',
'�','ĥ',
'�','·',
'�','¸',
'�','ı',
'�','ş',
'�','ğ',
'�','ĵ',
'�','½',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::CP1257 | show |
| +{
'�',' ',
'�','¢',
'�','£',
'�','¤',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','²',
'�','³',
'�','´',
'�','µ',
'�','¶',
'�','·',
'�','¸',
'�','¹',
'�','»',
'�','¼',
'�','½',
'�','¾',
'�','Ä',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::CP1258 | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¤',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','²',
'�','³',
'�','´',
'�','µ',
'�','¶',
'�','·',
'�','¸',
'�','¹',
'�','º',
'�','»',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::ISO8859_16 | show |
| +{
'�',' ',
'�','Ą',
'�','ą',
'�','Ł',
'�','€',
'�','„',
'�','Š',
'�','§',
'�','š',
'�','©',
'�','Ș',
'�','«',
'�','Ź',
'�','',
'�','ź',
'�','Ż',
'�','°',
'�','±',
'�','Č',
'�','ł',
'�','Ž',
'�','”',
'�','¶',
'�','·',
'�','ž',
'�','č',
'�','ș',
'�','»',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::ISO8859_15 | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','€',
'�','¥',
'�','Š',
'�','§',
'�','š',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','²',
'�','³',
'�','Ž',
'�','µ',
'�','¶',
'�','·',
'�','ž',
'�','¹',
'�','º',
'�','»',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::CP932 | show |
| +{
'��','§',
'�N','¨',
'��','°',
'�}','±',
'�L','´',
'��','¶',
'�~','×',
'��','÷',
'��','Α',
'��','Β',
'��','Γ',
'��','Δ',
'��','Ε',
'��','Ζ',
'��','Η',
'��','Θ',
'��','Ι',
'��','Κ',
'��','Λ',
'��','Μ',
'��','Ν',
'��','Ξ',
'��','Ο',
'��','Π',
'��','Ρ',
'�... |
| MHonArc-2.6.18 | MHonArc::UTF8::KOI8_F | show |
| +{
'�','─',
'�','│',
'�','┌',
'�','┐',
'�','└',
'�','┘',
'�','├',
'�','┤',
'�','┬',
'�','┴',
'�','┼',
'�','▀',
'�','▄',
'�','█',
'�','▌',
'�','▐',
'�','░',
'�','‘',
'�','’',
'�','“',
'�','”',
'�','•',
'�','–',
'�','—',
'�','©',
'�','™',
'�','»',
'�','®',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::AppleRoman | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¥',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','´',
'�','µ',
'�','¶',
'�','·',
'�','¸',
'�','º',
'�','»',
'�','¿',
'�','À',
'�','Á',
'�','Â',
'�','Ã',
'�','Ä',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::BIG5_ETEN | show |
| +{
'�',' ',
'��','§',
'��','¨',
'��','¯',
'�X','°',
'��','±',
'�P','·',
'��','×',
'��','÷',
'��','ø',
'�','ú',
'�','û',
'�','ý',
'�','þ',
'�','ÿ',
'��','ŋ',
'��','œ',
'��','ɐ',
'��','ɔ',
'��','ɛ',
'��','ɪ',
'��','ɵ',
'��','ʃ',
'��','ʊ',
'��','ˆ',
'��','ˇ'... |
| MHonArc-2.6.18 | MHonArc::UTF8::KOI8_R | show |
| +{
'�',' ',
'�','©',
'�','°',
'�','²',
'�','·',
'�','÷',
'�','Ё',
'�','А',
'�','Б',
'�','В',
'�','Г',
'�','Д',
'�','Е',
'�','Ж',
'�','З',
'�','И',
'�','Й',
'�','К',
'�','Л',
'�','М',
'�','Н',
'�','О',
'�','П',
'�','Р',
'�','С',
'�','Т',
'�','У',
'�','Ф',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::BIG5_HKSCS | show |
| +{
'�@','',
'�A','',
'�B','',
'�C','',
'�D','',
'�E','',
'�F','',
'�G','',
'�H','',
'�I','',
'�J','',
'�K','',
'�L','',
'�M','',
'�N','',
'�O','',
'�P','',
'�Q','',
'�R','',
'�S','',
'�T','',
'�U','',
'�V','Ā',
'�W','Á',
'�X','Ǎ',
'�... |
| MHonArc-2.6.18 | MHonArc::UTF8::ISO8859_7 | show |
| +{
'�',' ',
'�','ʽ',
'�','ʼ',
'�','£',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','«',
'�','¬',
'�','',
'�','―',
'�','°',
'�','±',
'�','²',
'�','³',
'�','΄',
'�','΅',
'�','Ά',
'�','·',
'�','Έ',
'�','Ή',
'�','Ί',
'�','»',
'�','Ό',
'�','½',
'�','Ύ',
'�','Ώ',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::AppleGreek | show |
| +{
'�',' ',
'�','£',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','«',
'�','¬',
'�','',
'�','®',
'�','°',
'�','±',
'�','²',
'�','³',
'�','·',
'�','¹',
'�','»',
'�','½',
'�','Ä',
'�','É',
'�','Ö',
'�','Ü',
'�','ß',
'�','à',
'�','â',
'�','ä',
'�','ç',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::KOI_0 | show |
| +{
'$','¤',
'@','ю',
'A','а',
'B','б',
'C','ц',
'D','д',
'E','е',
'F','ф',
'G','г',
'H','х',
'I','и',
'J','й',
'K','к',
'L','л',
'M','м',
'N','н',
'O','о',
'P','п',
'Q','я',
'R','р',
'S','с',
'T','т',
'U','у',
'V','ж',
'W','в',
'X','ь',
'Y','ы',
'Z','з',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::CP1256 | show |
| +{
'�',' ',
'�','¢',
'�','£',
'�','¤',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','²',
'�','³',
'�','´',
'�','µ',
'�','¶',
'�','·',
'�','¸',
'�','¹',
'�','»',
'�','¼',
'�','½',
'�','¾',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::GOST19768_87 | show |
| +{
'$','¤',
'�',' ',
'�','Ё',
'�','',
'�','А',
'�','Б',
'�','В',
'�','Г',
'�','Д',
'�','Е',
'�','Ж',
'�','З',
'�','И',
'�','Й',
'�','К',
'�','Л',
'�','М',
'�','Н',
'�','О',
'�','П',
'�','Р',
'�','С',
'�','Т',
'�','У',
'�','Ф',
'�','Х',
'�','Ц',
'�','Ч',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::ISO8859_6 | show |
| +{
'�',' ',
'�','¤',
'�','،',
'�','',
'�','؛',
'�','؟',
'�','ء',
'�','آ',
'�','أ',
'�','ؤ',
'�','إ',
'�','ئ',
'�','ا',
'�','ب',
'�','ة',
'�','ت',
'�','ث',
'�','ج',
'�','ح',
'�','خ',
'�','د',
'�','ذ',
'�','ر',
'�','ز',
'�','س',
'�','ش',
'�','ص',
'�','ض',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::ISO8859_9 | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¤',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','²',
'�','³',
'�','´',
'�','µ',
'�','¶',
'�','·',
'�','¸',
'�','¹',
'�','º',
'�','»',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::EUC_JP | show |
| +{
'��','｡',
'��','｢',
'��','｣',
'��','､',
'��','･',
'��','ｦ',
'��','ｧ',
'��','ｨ',
'��','ｩ',
'��','ｪ',
'��','ｫ',
'��','ｬ',
'��','ｭ',
'��','ｮ',
'��','ｯ',
'��','ｰ',
'��','ｱ',
'��','ｲ',
'��','ｳ',
'��','ｴ',
'��','ｵ',
'��','ｶ',
'��','ｷ',
'��','ｸ',
'��','ｹ',
'�... |
| MHonArc-2.6.18 | MHonArc::UTF8::CP1254 | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¤',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','²',
'�','³',
'�','´',
'�','µ',
'�','¶',
'�','·',
'�','¸',
'�','¹',
'�','º',
'�','»',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::AppleThai | show |
| +{
'�',' ',
'�','©',
'�','«',
'�','®',
'�','»',
'�','ก',
'�','ข',
'�','ฃ',
'�','ค',
'�','ฅ',
'�','ฆ',
'�','ง',
'�','จ',
'�','ฉ',
'�','ช',
'�','ซ',
'�','ฌ',
'�','ญ',
'�','ฎ',
'�','ฏ',
'�','ฐ',
'�','ฑ',
'�','ฒ',
'�','ณ',
'�','ด',
'�','ต',
'�','ถ',
'�','ท',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::ISO8859_5 | show |
| +{
'�',' ',
'�','Ё',
'�','Ђ',
'�','Ѓ',
'�','Є',
'�','Ѕ',
'�','І',
'�','Ї',
'�','Ј',
'�','Љ',
'�','Њ',
'�','Ћ',
'�','Ќ',
'�','',
'�','Ў',
'�','Џ',
'�','А',
'�','Б',
'�','В',
'�','Г',
'�','Д',
'�','Е',
'�','Ж',
'�','З',
'�','И',
'�','Й',
'�','К',
'�','Л',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::ISO8859_11 | show |
| +{
'�',' ',
'�','ก',
'�','ข',
'�','ฃ',
'�','ค',
'�','ฅ',
'�','ฆ',
'�','ง',
'�','จ',
'�','ฉ',
'�','ช',
'�','ซ',
'�','ฌ',
'�','ญ',
'�','ฎ',
'�','ฏ',
'�','ฐ',
'�','ฑ',
'�','ฒ',
'�','ณ',
'�','ด',
'�','ต',
'�','ถ',
'�','ท',
'�','ธ',
'�','น',
'�','บ',
'�','ป',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::CP1255 | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','²',
'�','³',
'�','´',
'�','µ',
'�','¶',
'�','·',
'�','¸',
'�','¹',
'�','»',
'�','¼',
'�','½',
'�','¾',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::CP1251 | show |
| +{
'�',' ',
'�','¤',
'�','¦',
'�','§',
'�','©',
'�','«',
'�','¬',
'�','',
'�','®',
'�','°',
'�','±',
'�','µ',
'�','¶',
'�','·',
'�','»',
'�','Ё',
'�','Ђ',
'�','Ѓ',
'�','Є',
'�','Ѕ',
'�','І',
'�','Ї',
'�','Ј',
'�','Љ',
'�','Њ',
'�','Ћ',
'�','Ќ',
'�','Ў',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::ISO8859_8 | show |
| +{
'�',' ',
'�','¢',
'�','£',
'�','¤',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','×',
'�','«',
'�','¬',
'�','',
'�','®',
'�','‾',
'�','°',
'�','±',
'�','²',
'�','³',
'�','´',
'�','µ',
'�','¶',
'�','·',
'�','¸',
'�','¹',
'�','÷',
'�','»',
'�','¼',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::CP1252 | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¤',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','²',
'�','³',
'�','´',
'�','µ',
'�','¶',
'�','·',
'�','¸',
'�','¹',
'�','º',
'�','»',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::GB2312 | show |
| +{
'��',' ',
'��','、',
'��','。',
'��','・',
'��','ˉ',
'��','ˇ',
'��','¨',
'��','〃',
'��','々',
'��','―',
'��','～',
'��','‖',
'��','…',
'��','‘',
'��','’',
'��','“',
'��','”',
'��','〔',
'��','〕',
'��','〈',
'��','〉',
'��','《',
'��','》',
'��','「',
'��','」',
'�... |
| MHonArc-2.6.18 | MHonArc::UTF8::CP866 | show |
| +{
'�',' ',
'�','¤',
'�','°',
'�','·',
'�','Ё',
'�','Є',
'�','Ї',
'�','Ў',
'�','А',
'�','Б',
'�','В',
'�','Г',
'�','Д',
'�','Е',
'�','Ж',
'�','З',
'�','И',
'�','Й',
'�','К',
'�','Л',
'�','М',
'�','Н',
'�','О',
'�','П',
'�','Р',
'�','С',
'�','Т',
'�','У',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::AppleIceland | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¥',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','´',
'�','µ',
'�','¶',
'�','·',
'�','¸',
'�','º',
'�','»',
'�','¿',
'�','À',
'�','Á',
'�','Â',
'�','Ã',
'�','Ä',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::VISCII | show |
| +{
'','Ẳ',
'','Ẵ',
'','Ẫ',
'','Ỷ',
'','Ỹ',
' ','Ỵ',
'�','Ạ',
'�','Ắ',
'�','Ằ',
'�','Ặ',
'�','Ấ',
'�','Ầ',
'�','Ẩ',
'�','Ậ',
'�','Ẽ',
'�','Ẹ',
'�','Ế',
'�','Ề',
'�','Ể',
'�','Ễ',
'�','Ệ',
'�','Ố',
'�','Ồ',
'�','Ổ',
'�','Ỗ',
'�','Ộ',
'�','Ợ',
'�','Ớ',
... |
| MHonArc-2.6.18 | MHonArc::UTF8::KOI8_E | show |
| +{
'�',' ',
'�','ђ',
'�','ѓ',
'�','ё',
'�','є',
'�','ѕ',
'�','і',
'�','ї',
'�','ј',
'�','љ',
'�','њ',
'�','ћ',
'�','ќ',
'�','',
'�','ў',
'�','џ',
'�','№',
'�','Ђ',
'�','Ѓ',
'�','Ё',
'�','Є',
'�','Ѕ',
'�','І',
'�','Ї',
'�','Ј',
'�','Љ',
'�','Њ',
'�','Ћ',
... |
| MHonArc-2.6.18 | MHonArc::CharEnt::AppleTurkish | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¥',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','´',
'�','µ',
'�','¶',
... |
| MHonArc-2.6.18 | MHonArc::CharEnt::CP1250 | show |
| +{
'�',' ',
'�','¤',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','«',
'�','¬',
'�','',
'�','®',
'�','°',
'�','±',
'�','´',
'�','µ',
'�','¶',
'�','·',
'�','¸',
'�','»',
... |
| MHonArc-2.6.18 | MHonArc::CharEnt::CP1253 | show |
| +{
'�',' ',
'�','£',
'�','¤',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','«',
'�','¬',
'�','',
'�','®',
'�','°',
'�','±',
'�','²',
'�','³',
'�','µ',
'�','¶',
... |
| MHonArc-2.6.18 | MHonArc::CharEnt::ISO8859_14 | show |
| +{
'�',' ',
'�','Ḃ',
'�','ḃ',
'�','£',
'�','Ċ',
'�','ċ',
'�','Ḋ',
'�','§',
'�','Ẁ',
'�','©',
'�','Ẃ',
'�','ḋ',
'�','Ỳ',
'�','',
'�','®',
'�','Ÿ',
'�','ǡ... |
| MHonArc-2.6.18 | MHonArc::CharEnt::ISO8859_10 | show |
| +{
'�',' ',
'�','Ą',
'�','Ē',
'�','Ģ',
'�','Ī',
'�','Ĩ',
'�','Ķ',
'�','§',
'�','Ļ',
'�','Đ',
'�','Š',
'�','Ŧ',
'�','Ž',
'�','',
'�','Ū',
'�','Ŋ',
'�','°',
'... |
| MHonArc-2.6.18 | MHonArc::CharEnt::ISO8859_4 | show |
| +{
'�',' ',
'�','Ą',
'�','ĸ',
'�','Ŗ',
'�','¤',
'�','Ĩ',
'�','Ļ',
'�','§',
'�','¨',
'�','Š',
'�','Ē',
'�','Ģ',
'�','Ŧ',
'�','',
'�','Ž',
'�','¯',
'�','°',
'�',... |
| MHonArc-2.6.18 | MHonArc::CharEnt::AppleCyrillic | show |
| +{
'�',' ',
'�','£',
'�','§',
'�','©',
'�','«',
'�','¬',
'�','®',
'�','°',
'�','±',
'�','µ',
'�','¶',
'�','»',
'�','÷',
'�','ƒ',
'�','Ё',
'�','Ђ',
'�','Ѓ',
'�','@... |
| MHonArc-2.6.18 | MHonArc::CharEnt::CP949 | show |
| +{
'��','¡',
'��','¤',
'��','§',
'��','¨',
'��','ª',
'��','',
'��','®',
'��','°',
'��','±',
'��','²',
'��','³',
'��','´',
'��','¶',
'��','·',
'��','¸',
'��','¹',
'��','º... |
| MHonArc-2.6.18 | MHonArc::CharEnt::AppleCroatian | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','´',
'�','µ',
'�','¶',
'�','·',
... |
| MHonArc-2.6.18 | MHonArc::CharEnt::AppleCenteuro | show |
| +{
'�',' ',
'�','£',
'�','§',
'�','¨',
'�','©',
'�','«',
'�','¬',
'�','®',
'�','°',
'�','¶',
'�','»',
'�','Á',
'�','Ä',
'�','É',
'�','Í',
'�','Ó',
'�','Ô',
'�','Õ',
... |
| MHonArc-2.6.18 | MHonArc::CharEnt::KOI_7 | show |
| +{
'$','¤',
'`','Ю',
'a','А',
'b','Б',
'c','Ц',
'd','Д',
'e','Е',
'f','Ф',
'g','Г',
'h','Х',
'i','И',
'j','Й',
'k','К',
'l','Л',
'm','М',
'n','Н',
'o','О'... |
| MHonArc-2.6.18 | MHonArc::CharEnt::AppleArabic | show |
| +{
'�','Ä',
'�',' ',
'�','Ç',
'�','É',
'�','Ñ',
'�','Ö',
'�','Ü',
'�','á',
'�','à',
'�','â',
'�','ä',
'�','ں',
'�','«',
'�','ç',
'�','é',
'�','è',
'�','ê',
'�','ë',... |
| MHonArc-2.6.18 | MHonArc::CharEnt::CP936 | show |
| +{
'�','€',
'��','¤',
'��','§',
'��','¨',
'��','°',
'��','±',
'��','·',
'��','×',
'��','à',
'��','á',
'��','è',
'��','é',
'��','ê',
'��','ì',
'��','í',
'��','ò',
'��','ó... |
| MHonArc-2.6.18 | MHonArc::CharEnt::KOI8_A | show |
| +{
'$','¤',
'�','ю',
'�','а',
'�','б',
'�','ц',
'�','д',
'�','е',
'�','ф',
'�','г',
'�','х',
'�','и',
'�','й',
'�','к',
'�','л',
'�','м',
'�','н',
'�','о'... |
| MHonArc-2.6.18 | MHonArc::CharEnt::KOI8_B | show |
| +{
'�','ё',
'�','Ё',
'�','ю',
'�','а',
'�','б',
'�','ц',
'�','д',
'�','е',
'�','ф',
'�','г',
'�','х',
'�','и',
'�','й',
'�','к',
'�','л',
'�','м',
'�','н... |
| MHonArc-2.6.18 | MHonArc::CharEnt::AppleHebrew | show |
| +{
'�','Ä',
'�','ײַ',
'�','Ç',
'�','É',
'�','Ñ',
'�','Ö',
'�','Ü',
'�','á',
'�','à',
'�','â',
'�','ä',
'�','ã',
'�','å',
'�','ç',
'�','é',
'�','è',
'�','ê',
'�','ë'... |
| MHonArc-2.6.18 | MHonArc::CharEnt::CP950 | show |
| +{
'��','§',
'��','¯',
'�X','°',
'��','±',
'�P','·',
'��','×',
'��','÷',
'��','ˇ',
'��','ˉ',
'��','ˊ',
'��','ˋ',
'��','ˍ',
'��','˙',
'�D','Α',
'�E','Β',
'�F','Γ',
'�G... |
| MHonArc-2.6.18 | MHonArc::CharEnt::KOI8_U | show |
| +{
'�','─',
'�','│',
'�','┌',
'�','┐',
'�','└',
'�','┘',
'�','├',
'�','┤',
'�','┬',
'�','┴',
'�','┼',
'�','▀',
'�','▄',
'�','█',
'�','▌',
'�','▐... |
| MHonArc-2.6.18 | MHonArc::CharEnt::ISO8859_1 | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¤',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±',
... |
| MHonArc-2.6.18 | MHonArc::CharEnt::HP_ROMAN8 | show |
| +{
'�',' ',
'�','À',
'�','Â',
'�','È',
'�','Ê',
'�','Ë',
'�','Î',
'�','Ï',
'�','´',
'�','ˋ',
'�','ˆ',
'�','¨',
'�','˜',
'�','Ù',
'�','Û',
'�','₤',
'�','¯',
'�','
... |
| MHonArc-2.6.18 | MHonArc::CharEnt::AppleRomanian | show |
| +{
'�','Ș',
'�','Ț',
'�','ș',
'�','ț',
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¥',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','®',
... |
| MHonArc-2.6.18 | MHonArc::CharEnt::ISO8859_13 | show |
| +{
'�',' ',
'�','”',
'�','¢',
'�','£',
'�','¤',
'�','„',
'�','¦',
'�','§',
'�','Ø',
'�','©',
'�','Ŗ',
'�','«',
'�','¬',
'�','',
'�','®',
'�','Æ',
'�','°',
'�',' ... |
| MHonArc-2.6.18 | MHonArc::CharEnt::ISO8859_2 | show |
| +{
'�',' ',
'�','Ą',
'�','˘',
'�','Ł',
'�','¤',
'�','Ľ',
'�','Ś',
'�','§',
'�','¨',
'�','Š',
'�','Ş',
'�','Ť',
'�','Ź',
'�','',
'�','Ž',
'�','Ż',
'�','°',
'�'... |
| MHonArc-2.6.18 | MHonArc::CharEnt::ISO8859_3 | show |
| +{
'�',' ',
'�','Ħ',
'�','˘',
'�','£',
'�','¤',
'�','Ĥ',
'�','§',
'�','¨',
'�','İ',
'�','Ş',
'�','Ğ',
'�','Ĵ',
'�','',
'�','Ż',
'�','°',
'�','ħ',
'�','²',
'�','... |
| MHonArc-2.6.18 | MHonArc::CharEnt::CP1257 | show |
| +{
'�',' ',
'�','¢',
'�','£',
'�','¤',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','²',
'�','³',
'�','´',
... |
| MHonArc-2.6.18 | MHonArc::CharEnt::CP1258 | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¤',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±',
... |
| MHonArc-2.6.18 | MHonArc::CharEnt::ISO8859_16 | show |
| +{
'�',' ',
'�','Ą',
'�','ą',
'�','Ł',
'�','€',
'�','„',
'�','Š',
'�','§',
'�','š',
'�','©',
'�','Ș',
'�','«',
'�','Ź',
'�','',
'�','ź',
'�','Ż',
'�','°',
'... |
| MHonArc-2.6.18 | MHonArc::CharEnt::ISO8859_15 | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','€',
'�','¥',
'�','Š',
'�','§',
'�','š',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±... |
| MHonArc-2.6.18 | MHonArc::CharEnt::CP932 | show |
| +{
'��','§',
'�N','¨',
'��','°',
'�}','±',
'�L','´',
'��','¶',
'�~','×',
'��','÷',
'��','Α',
'��','Β',
'��','Γ',
'��','Δ',
'��','Ε',
'��','Ζ',
'��','Η',
'��','Θ',
'��'... |
| MHonArc-2.6.18 | MHonArc::CharEnt::KOI8_F | show |
| +{
'�','─',
'�','│',
'�','┌',
'�','┐',
'�','└',
'�','┘',
'�','├',
'�','┤',
'�','┬',
'�','┴',
'�','┼',
'�','▀',
'�','▄',
'�','█',
'�','▌',
'�','▐... |
| MHonArc-2.6.18 | MHonArc::CharEnt::AppleRoman | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¥',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','´',
'�','µ',
'�','¶',
... |
| MHonArc-2.6.18 | MHonArc::CharEnt::BIG5_ETEN | show |
| +{
'�',' ',
'��','§',
'��','¨',
'��','¯',
'�X','°',
'��','±',
'�P','·',
'��','×',
'��','÷',
'��','ø',
'�','ú',
'�','û',
'�','ý',
'�','þ',
'�','ÿ',
'��','ŋ',
'��','œ',
'... |
| MHonArc-2.6.18 | MHonArc::CharEnt::KOI8_R | show |
| +{
'�',' ',
'�','©',
'�','°',
'�','²',
'�','·',
'�','÷',
'�','Ё',
'�','А',
'�','Б',
'�','В',
'�','Г',
'�','Д',
'�','Е',
'�','Ж',
'�','З',
'�','И',
'�','Й',
'�'... |
| MHonArc-2.6.18 | MHonArc::CharEnt::BIG5_HKSCS | show |
| +{
'�@','',
'�A','',
'�B','',
'�C','',
'�D','',
'�E','',
'�F','',
'�G','',
'�H','',
'�I','',
'�J','',
'�K','',
'�L','',
'�M','',
'�N','... |
| MHonArc-2.6.18 | MHonArc::CharEnt::ISO8859_7 | show |
| +{
'�',' ',
'�','ʽ',
'�','ʼ',
'�','£',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','«',
'�','¬',
'�','',
'�','―',
'�','°',
'�','±',
'�','²',
'�','³',
'�','΄',
'�','... |
| MHonArc-2.6.18 | MHonArc::CharEnt::AppleGreek | show |
| +{
'�',' ',
'�','£',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','«',
'�','¬',
'�','',
'�','®',
'�','°',
'�','±',
'�','²',
'�','³',
'�','·',
'�','¹',
'�','»',
... |
| MHonArc-2.6.18 | MHonArc::CharEnt::KOI_0 | show |
| +{
'$','¤',
'@','ю',
'A','а',
'B','б',
'C','ц',
'D','д',
'E','е',
'F','ф',
'G','г',
'H','х',
'I','и',
'J','й',
'K','к',
'L','л',
'M','м',
'N','н',
'O','о'... |
| MHonArc-2.6.18 | MHonArc::CharEnt::CP1256 | show |
| +{
'�',' ',
'�','¢',
'�','£',
'�','¤',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','²',
'�','³',
... |
| MHonArc-2.6.18 | MHonArc::CharEnt::GOST19768_87 | show |
| +{
'$','¤',
'�',' ',
'�','Ё',
'�','',
'�','А',
'�','Б',
'�','В',
'�','Г',
'�','Д',
'�','Е',
'�','Ж',
'�','З',
'�','И',
'�','Й',
'�','К',
'�','Л',
'�','М',
... |
| MHonArc-2.6.18 | MHonArc::CharEnt::ISO8859_6 | show |
| +{
'�',' ',
'�','¤',
'�','،',
'�','',
'�','؛',
'�','؟',
'�','ء',
'�','آ',
'�','أ',
'�','ؤ',
'�','إ',
'�','ئ',
'�','ا',
'�','ب',
'�','ة',
'�','ت',
'�','ث',
... |
| MHonArc-2.6.18 | MHonArc::CharEnt::ISO8859_9 | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¤',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±',
... |
| MHonArc-2.6.18 | MHonArc::CharEnt::EUC_JP | show |
| +{
'��','｡',
'��','｢',
'��','｣',
'��','､',
'��','･',
'��','ｦ',
'��','ｧ',
'��','ｨ',
'��','ｩ',
'��','ｪ',
'��','ｫ',
'��','ｬ',
'��','ｭ',
'��','ｮ',
'��','ｯ... |
| MHonArc-2.6.18 | MHonArc::CharEnt::CP1254 | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¤',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±',
... |
| MHonArc-2.6.18 | MHonArc::CharEnt::AppleThai | show |
| +{
'�',' ',
'�','©',
'�','«',
'�','®',
'�','»',
'�','ก',
'�','ข',
'�','ฃ',
'�','ค',
'�','ฅ',
'�','ฆ',
'�','ง',
'�','จ',
'�','ฉ',
'�','ช',
'�','ซ',
'�','ฌ',
'�... |
| MHonArc-2.6.18 | MHonArc::CharEnt::ISO8859_5 | show |
| +{
'�',' ',
'�','Ё',
'�','Ђ',
'�','Ѓ',
'�','Є',
'�','Ѕ',
'�','І',
'�','Ї',
'�','Ј',
'�','Љ',
'�','Њ',
'�','Ћ',
'�','Ќ',
'�','',
'�','Ў',
'�','Џ',
'�','А',... |
| MHonArc-2.6.18 | MHonArc::CharEnt::ISO8859_11 | show |
| +{
'�',' ',
'�','ก',
'�','ข',
'�','ฃ',
'�','ค',
'�','ฅ',
'�','ฆ',
'�','ง',
'�','จ',
'�','ฉ',
'�','ช',
'�','ซ',
'�','ฌ',
'�','ญ',
'�','ฎ',
'�','ฏ',
'�','ฐ'... |
| MHonArc-2.6.18 | MHonArc::CharEnt::CP1255 | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','²',
'�','³',
... |
| MHonArc-2.6.18 | MHonArc::CharEnt::CP1251 | show |
| +{
'�',' ',
'�','¤',
'�','¦',
'�','§',
'�','©',
'�','«',
'�','¬',
'�','',
'�','®',
'�','°',
'�','±',
'�','µ',
'�','¶',
'�','·',
'�','»',
'�','Ё',
'�','Ђ',
'�','Ѓ... |
| MHonArc-2.6.18 | MHonArc::CharEnt::ISO8859_8 | show |
| +{
'�',' ',
'�','¢',
'�','£',
'�','¤',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','×',
'�','«',
'�','¬',
'�','',
'�','®',
'�','‾',
'�','°',
'�','±',
'�','²'... |
| MHonArc-2.6.18 | MHonArc::CharEnt::CP1252 | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¤',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±',
... |
| MHonArc-2.6.18 | MHonArc::CharEnt::GB2312 | show |
| +{
'��',' ',
'��','、',
'��','。',
'��','・',
'��','ˉ',
'��','ˇ',
'��','¨',
'��','〃',
'��','々',
'��','―',
'��','～',
'��','‖',
'��','…',
'��','‘',
'��','’',
'... |
| MHonArc-2.6.18 | MHonArc::CharEnt::CP866 | show |
| +{
'�',' ',
'�','¤',
'�','°',
'�','·',
'�','Ё',
'�','Є',
'�','Ї',
'�','Ў',
'�','А',
'�','Б',
'�','В',
'�','Г',
'�','Д',
'�','Е',
'�','Ж',
'�','З',
'�','И',
'... |
| MHonArc-2.6.18 | MHonArc::CharEnt::AppleIceland | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¥',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','´',
'�','µ',
'�','¶',
... |
| MHonArc-2.6.18 | MHonArc::CharEnt::VISCII | show |
| +{
'','Ẳ',
'','Ẵ',
'','Ẫ',
'','Ỷ',
'','Ỹ',
' ','Ỵ',
'�','Ạ',
'�','Ắ',
'�','Ằ',
'�','Ặ',
'�','Ấ',
'�','Ầ',
'�','Ẩ',
'�','Ậ',
'�','Ẽ',
'�','Ẹ... |
| MHonArc-2.6.18 | MHonArc::CharEnt::KOI8_E | show |
| +{
'�',' ',
'�','ђ',
'�','ѓ',
'�','ё',
'�','є',
'�','ѕ',
'�','і',
'�','ї',
'�','ј',
'�','љ',
'�','њ',
'�','ћ',
'�','ќ',
'�','',
'�','ў',
'�','џ',
'�','№'... |
| MRP-1.0 | MRP::Introspection | show |
| $VERSION |
| MRP-1.0 | MRP::Interface | show |
| $VERSION |
| MRP-1.0 | MRP::Text | show |
| $VERSION |
| MRP-1.0 | MRP::BaseClass | show |
| $VERSION |
| MSWord-ToHTML-0.006 | MSWord::ToHTML::Roles::HasHTML | show |
| method get_html {
my $base_html = $self->extract_base_html(@_);
return $self->html_to_html5($base_html);
}
method get_dom($file) {
return $self->parser->parse_file($file);
}
method extract_base_html {
my $new_file =
io-... |
| Mac-AppleEvents-Simple-1.18 | Mac::AppleEvents::Simple | show |
| DESTROY {
my $self = shift;
local $^E;
unless ($self->{HANDLER}) {
AEDisposeDesc $self->{EVT} if $self->{EVT};
AEDisposeDesc $self->{REP} if $self->{REP};
}
}
END {
foreach my $desc (keys %DESCS) {
print "Destroying $desc\n" i... |
| Mail-SPF-Test-v1.001 | Mail::SPF::Test | show |
| TRUE |
| Mail-SPF-Test-v1.001 | Mail::SPF::Test::Scenario | show |
| TRUE |
| Mail-SPF-Test-v1.001 | Mail::SPF::Test::Case | show |
| TRUE |
| Mail-SPF-Test-v1.001 | Mail::SPF::Test::Base | show |
| TRUE |
| Mail-SPF-v2.8.0 | Mail::SPF | show |
| TRUE |
| Mail-SPF-v2.8.0 | Mail::SPF::Request | show |
| TRUE |
| Mail-SPF-v2.8.0 | Mail::SPF::Server | show |
| TRUE |
| Mail-SPF-v2.8.0 | Mail::SPF::Util | show |
| TRUE |
| Mail-SPF-v2.8.0 | Mail::SPF::SenderIPAddrMech | show |
| TRUE |
| Mail-SPF-v2.8.0 | Mail::SPF::Exception | show |
| TRUE |
| Mail-SPF-v2.8.0 | Mail::SPF::Mech | show |
| TRUE |
| Mail-SPF-v2.8.0 | Mail::SPF::Base | show |
| TRUE |
| Mail-SPF-v2.8.0 | Mail::SPF::MacroString | show |
| TRUE |
| Mail-SPF-v2.8.0 | Mail::SPF::Record | show |
| TRUE |
| Mail-SPF-v2.8.0 | Mail::SPF::Result | show |
| TRUE |
| Mail-SPF-v2.8.0 | Mail::SPF::Term | show |
| TRUE |
| Mail-SPF-v2.8.0 | Mail::SPF::Mod | show |
| TRUE |
| Mail-SPF-v2.8.0 | Mail::SPF::v2::Record | show |
| TRUE |
| Mail-SPF-v2.8.0 | Mail::SPF::v1::Record | show |
| TRUE |
| Mail-SPF-v2.8.0 | Mail::SPF::Mech::MX | show |
| TRUE |
| Mail-SPF-v2.8.0 | Mail::SPF::Mech::PTR | show |
| TRUE |
| Mail-SPF-v2.8.0 | Mail::SPF::Mech::IP4 | show |
| TRUE |
| Mail-SPF-v2.8.0 | Mail::SPF::Mech::IP6 | show |
| TRUE |
| Mail-SPF-v2.8.0 | Mail::SPF::Mech::A | show |
| TRUE |
| Mail-SPF-v2.8.0 | Mail::SPF::Mech::All | show |
| TRUE |
| Mail-SPF-v2.8.0 | Mail::SPF::Mech::Include | show |
| TRUE |
| Mail-SPF-v2.8.0 | Mail::SPF::Mech::Exists | show |
| TRUE |
| Mail-SPF-v2.8.0 | Mail::SPF::Mod::Exp | show |
| TRUE |
| Mail-SPF-v2.8.0 | Mail::SPF::Mod::Redirect | show |
| TRUE |
| Mail-SpamCannibal-1.04 | Mail::SpamCannibal::BDBaccess | show |
| $VERSION = do { q|char version[] = "bdbaccess 0.24, 5-12-09";| =~ /(\d+)\.(\d+)/; sprintf("%d.%02d",$1,$2)} |
| Mail-SpamCannibal-1.04 | Mail::SpamCannibal::DNSBLserver | show |
| $VERSION = do { q|char version[] = "dnsbls 0.54, 5-12-09";| =~ /(\d+)\.(\d+)/; sprintf("%d.%02d",$1,$2)} |
| Markapl-FromHTML-0.03 | Markapl::FromHTML | show |
| def load($html) {
$self->{html} = $html;
$self;
}
def dump {
return $_ if (defined($_ = $self->{markapl}));
return $self->convert;
}
def convert {
return "" unless $self->{html};
my $p = HTML::PullParser->new(
... |
| Marpa-HTML-0.112000 | Marpa::HTML | show |
| %Marpa::HTML::VERSION_FOR_CONFIG = (
'Scalar::Util' => 1.21,
'List::Util' => 1.21,
'Carp' => 1.08,
'Data::Dumper' => '2.125',
'HTML::Parser' => '3.64',
'HTML::PullParser' ... |
| Marpa-R2-2.050000 | Marpa::R2::HTML::Internal::Config::Default | show |
| $PRIMARY_GROUP_BY_TAG = {
'a' => 'GRP_inline',
'abbr' => 'GRP_inline',
'acronym' => 'GRP_inline',
'address' => 'GRP_block',
... |
| Mason-2.20 | Mason | show |
| method new ($class: %params) {
my $plugin_specs = delete( $params{plugins} ) || [];
my $base_interp_class = delete( $params{base_interp_class} )
|| $class->default_base_interp_class;
my @plugins = Mason::PluginManager->process_to... |
| Mason-2.20 | Mason::Plugin | show |
| method requires_plugins ($plugin_class:) {
return ();
}
method expand_to_plugins ($plugin_class:) {
return ( $plugin_class,
Mason::PluginManager->process_plugin_specs( [ $plugin_class->requires_plugins ] ) );
}
method get_roles_for... |
| Mason-2.20 | Mason::Component | show |
| method BUILD ($params) {
$self->{_orig_params} = $params;
weaken $self->{_orig_params}->{m};
}
method cmeta () {
return $self->can('_class_cmeta') ? $self->_class_cmeta : undef;
}
method _build_args () {
my $orig_params =... |
| Mason-2.20 | Mason::Filters::Standard | show |
| method Capture ($outref) {
sub { $$outref = $_[0]; return '' }
}
method CompCall ($path, @params) {
Mason::DynamicFilter->new(
filter => sub {
my $m = $self->m;
return $m->scomp( $path, @params, yield =... |
| Mason-2.20 | Mason::Test::Class | show |
| method setup_dirs () {
$self->{temp_dir} = join( "/", $self->{temp_root}, $temp_dir_count++ );
$self->{comp_root} = $self->{temp_dir} . "/comps";
$self->{data_dir} = $self->{temp_dir} . "/data";
mkpath( [ $self->{com... |
| Mason-2.20 | Mason::Plugin::Defer::Request | show |
| method defer ($code) {
my $marker = $self->interp->_construct_distinct_string();
push( @{ $self->{defers} }, { marker => $marker, code => $code } );
return $marker;
}
method _apply_defers_to_request_buffer () {
if ( my @def... |
| Mason-2.20 | Mason::Plugin::Defer::Filters | show |
| method Defer () {
Mason::DynamicFilter->new(
filter => sub {
$self->m->defer( $_[0] );
}
);
}
1 |
| Mason-Plugin-Cache-0.05 | Mason::Plugin::Cache::Request | show |
| method cache () {
return $self->current_comp_class->cache(@_);
}
1 |
| Mason-Plugin-Cache-0.05 | Mason::Plugin::Cache::Filters | show |
| method Cache ( $key, $set_options, %cache_options ) {
$key = 'Default' if !defined($key);
Mason::DynamicFilter->new(
filter => sub {
$self->cache(%cache_options)->compute( $key, $_[0], $set_options );
}
... |
| Mason-Plugin-Cache-0.05 | Mason::Plugin::Cache::Component | show |
| method cache_memoized ($class:) {
$class = ref($class) || $class;
if (@_) { $memoized{$class} = $_[0] }
return $memoized{$class};
}
method cache_defaults ($class:) { $class->cmeta->interp->cache_defaults }
method cache_root_class (... |
| Mason-Plugin-Cache-0.05 | Mason::Plugin::Cache::Interp | show |
| method _build_cache_defaults () {
return {
driver => 'File',
root_dir => catdir( $self->data_dir, 'cache' )
};
}
1 |
| Mason-Plugin-HTMLFilters-0.03 | Mason::Plugin::HTMLFilters::Filters | show |
| method HTMLPara () {
sub {
my $text = $_[0];
return "<p>\n" . join( "\n</p>\n\n<p>\n", split( /(?:\r?\n){2,}/, $text ) ) . "</p>\n";
};
}
method HTMLParaBreak () {
sub {
my $text = $_[0];
... |
| Mason-Plugin-PSGIHandler-0.06 | Mason::Plugin::PSGIHandler::Request | show |
| method redirect () {
$self->res->redirect(@_);
$self->clear_and_abort();
}
method not_found () {
$self->res->status(404);
$self->clear_and_abort();
}
1 |
| Mason-Plugin-PSGIHandler-0.06 | Mason::Plugin::PSGIHandler::Interp | show |
| method handle_psgi ($env) {
my $req = Mason::Plack::Request->new($env);
my $response = try {
$self->run( { req => $req }, $self->psgi_comp_path($req), $self->psgi_parameters($req) )
->plack_response;
}... |
| Mason-Plugin-RouterSimple-0.07 | Mason::Plugin::RouterSimple::Component | show |
| method allow_path_info ($class:) {
return $class->router_object ? 1 : 0;
}
method router_add ($class: $pattern, $dest) {
$dest ||= {};
unless ( $class->router_object ) {
$class->router_object( $class->router_create_object(... |
| Mason-Tidy-2.57 | Mason::Tidy | show |
| func validate_mason_version () {
die "must be 1 or 2" unless $_[0] =~ /^[12]$/;
}
method _build__is_mixed_block () {
return { map { ( $_, 1 ) } $self->mixed_block_names };
}
method _build__is_code_block () {
return { map { ( $_, 1 ) } $se... |
| Mason-Tidy-2.57 | Mason::Tidy::App | show |
| func usage ($msg) {
my $full_msg = ( $msg ? "$msg\n" : "" ) . $usage;
die $full_msg;
}
func version () {
my $version = $Mason::Tidy::VERSION || 'unknown';
print "masontidy $version on perl $] built for $Config{archname}\n";
exit;
}
m... |
| Math-Cartesian-Product-1.006 | Math::Cartesian::Product | show |
| $VERSION = '1.006' |
| Math-Disarrange-List-1.004 | Math::Disarrange::List | show |
| $VERSION = '1.004' |
| Math-Erf-Approx-0.001 | Math::Erf::Approx | show |
| caller(0) or __PACKAGE__->run_tests |
| Math-FFTW-0.01 | Math::FFTW | show |
| XSLoader::load('Math::FFTW', $VERSION) |
| Math-Logic-1.19 | Math::Logic | show |
| DESTROY {
;
}
1 |
| Math-Modular-SquareRoot-1.001 | Math::Modular::SquareRoot | show |
| $VERSION = '1.001' |
| Math-Permute-List-1.004 | Math::Permute::List | show |
| $VERSION = '1.004' |
| Math-Primality-0.08 | Math::Primality | show |
| exp(0) |
| Math-Primality-0.08 | Math::Primality::AKS | show |
| exp(0) |
| Math-Random-ISAAC-XS-1.004 | Math::Random::ISAAC::XS | show |
| XSLoader::load(__PACKAGE__, $Math::Random::ISAAC::XS::VERSION) |
| Math-Transform-List-1.004 | Math::Transform::List | show |
| $VERSION = '1.004' |
| MegaDistro-0.02-5 | MegaDistro | show |
| $VERSION = 0.02 |
| Memoize-1.03 | Memoize::AnyDBM_File | show |
| die "No DBM package was successfully found or installed" |
| Mildew-0.05 | VAST | show |
| class VAST::Base {
method emit_m0ld {
use Mildew::AST::Helpers;
if ($self->{infix}) {
my $name = $self->{infix}{SYM};
return fcall('&infix:'.$name,[map {$_->emit_m0ld} @{$self->{args}}]);
}
... |
| Mildew-0.05 | main | show |
| class Mildew::Frontend::STD {
use Getopt::Long qw(GetOptionsFromArray);
use Digest::MD4 qw(md4_hex);
has options=>(is=>'ro',default=>sub {{}});
has debug=>(is=>'rw',default=>0);
has setting=>(is=>'rw',default=&g... |
| Mildew-0.05 | VAST | show |
| class VAST::Base {
method emit_m0ld {
use Mildew::AST::Helpers;
if ($self->{infix}) {
my $name = $self->{infix}{SYM};
return fcall('&infix:'.$name,[map {$_->emit_m0ld} @{$self->{args}}]);
}
... |
| Mildew-0.05 | main | show |
| class Mildew::Frontend::STD {
use Getopt::Long qw(GetOptionsFromArray);
use Digest::MD4 qw(md4_hex);
has options=>(is=>'ro',default=>sub {{}});
has debug=>(is=>'rw',default=>0);
has setting=>(is=>'rw',default=&g... |
| Mildew-0.05 | VAST | show |
| class VAST::Base {
method emit_m0ld {
use Mildew::AST::Helpers;
if ($self->{infix}) {
my $name = $self->{infix}{SYM};
return fcall('&infix:'.$name,[map {$_->emit_m0ld} @{$self->{args}}]);
}
... |
| Mildew-0.05 | main | show |
| class Mildew::Frontend::STD {
use Getopt::Long qw(GetOptionsFromArray);
use Digest::MD4 qw(md4_hex);
has options=>(is=>'ro',default=>sub {{}});
has debug=>(is=>'rw',default=>0);
has setting=>(is=>'rw',default=&g... |
| Mo-0.33 | Mo | show |
| *{$M.import}=sub{import warnings;$^H|=1538;my($P,%e,%o)=caller.'::';shift;eval"no Mo::$_",&{$M.$_.::e}($P,\%e,\%o,\@_)for@_;return if$e{M};%e=(extends,sub{eval"no $_[0]()";@{$P.ISA}=$_[0]},has,sub{my$n=shift;my$m=sub{$#_?$_[0]{$n}=$_[1]:$_[0]{$n}};@_=(def... |
| Mo-0.33 | Mo::xs | show |
| *{$M.'xs::e'}=sub{my($P,$e,$o,$f)=@_;$P=~s/::$//;$e->{has}=sub{my($n,%a)=@_;Class::XSAccessor->import(class=>$P,accessors=>{$n=>$n})}if!grep!/^xs$/,@$f} |
| Mo-0.33 | Mo::chain | show |
| *{$M.'chain::e'}=sub{my($P,$e,$o)=@_;$o->{chain}=sub{my($m,$n,%a)=@_;$a{chain}or return$m;sub{$#_?($m->(@_),return$_[0]):$m->(@_)}}} |
| Mo-0.33 | Mo::exporter | show |
| *{$M.'exporter::e'}=sub{my($P)=@_;if(defined@{$M.EXPORT}){*{$P.$_}=\&{$M.$_}for@{$M.EXPORT}}} |
| Mo-0.33 | Mo::is | show |
| *{$M.'is::e'}=sub{my($P,$e,$o)=@_;$o->{is}=sub{my($m,$n,%a)=@_;$a{is}or return$m;sub{$#_&&$a{is}eq'ro'&&caller ne'Mo::coerce'?die$n.' is ro':$m->(@_)}}} |
| Mo-0.33 | Mo::coerce | show |
| *{$M.'coerce::e'}=sub{my($P,$e,$o)=@_;$o->{coerce}=sub{my($m,$n,%a)=@_;$a{coerce}or return$m;sub{$#_?$m->($_[0],$a{coerce}->($_[1])):$m->(@_)}};my$C=$e->{new}||*{$M.Object::new}{CODE};$e->{new}=sub{my$s=$C->(@_);$s->$_($s->{$_})... |
| Mo-0.33 | Mo::option | show |
| *{$M.'option::e'}=sub{my($P,$e,$o)=@_;$o->{option}=sub{my($m,$n,%a)=@_;$a{option}or return$m;my$n2=$n;*{$P."read_$n2"}=sub{$_[0]->{$n2}};sub{$#_?$m->(@_):$m->(@_,1);$_[0]}}} |
| Mo-0.33 | Mo::required | show |
| *{$M.'required::e'}=sub{my($P,$e,$o)=@_;$o->{required}=sub{my($m,$n,%a)=@_;if($a{required}){my$C=*{$P."new"}{CODE}||*{$M.Object::new}{CODE};no warnings 'redefine';*{$P."new"}=sub{my$s=$C->(@_);my%a=@_[1..$#_];die$n." required"if!exists$a{$n};$s}}$m}... |
| Mo-0.33 | Mo::builder | show |
| *{$M.'builder::e'}=sub{my($P,$e,$o)=@_;$o->{builder}=sub{my($m,$n,%a)=@_;my$b=$a{builder}or return$m;sub{$#_?$m->(@_):!exists$_[0]{$n}?$_[0]{$n}=$_[0]->$b:$m->(@_)}}} |
| Mo-0.33 | Mo::build | show |
| *{$M.'build::e'}=sub{my($P,$e)=@_;$e->{new}=sub{$c=shift;my$s=bless{@_},$c;my@B;do{@B=($c.::BUILD,@B)}while($c)=@{$c.::ISA};exists&$_&&&$_($s)for@B;$s}} |
| Mo-0.33 | Mo::import | show |
| *{$M.import}=sub{(@_==2 and not$_[1])?pop@_:@_==1?push@_,grep!/import/,@f:();goto&$i} |
| Mo-0.33 | Mo::default | show |
| *{$M.'default::e'}=sub{my($P,$e,$o)=@_;$o->{default}=sub{my($m,$n,%a)=@_;exists$a{default}or return$m;my($d,$r)=$a{default};my$g='HASH'eq($r=ref$d)?sub{+{%$d}}:'ARRAY'eq$r?sub{[@$d]}:'CODE'eq$r?$d:sub{$d};sub{$#_?$m->(@_):!exists$_[0]{$n}?$_[0]{$n}=... |
| Mo-0.33 | Mo::importer | show |
| *{$M.'importer::e'}=sub{my($P,$e,$o,$f)=@_;(my$pkg=$P)=~s/::$//;&{$P.'importer'}($pkg,@$f)if defined&{$P.'importer'}} |
| Mo-xxx-0.12 | Mo::xxx | show |
| *{$M.'xxx::e'}=sub{my($P,$e)=@_;$e->{WWW}=sub{require XXX;local$XXX::DumpModule=$dm;XXX::WWW(@_)};$e->{XXX}=sub{require XXX;local$XXX::DumpModule=$dm;XXX::XXX(@_)};$e->{YYY}=sub{require XXX;local$XXX::DumpModule=$dm;XXX::YYY(@_)};$e->{ZZZ}=sub... |
| Mo-xxx-0.12 | Mo::xxx | show |
| *{$MoPKG.'xxx::e'} = sub {
my ($caller_pkg, $exports) = @_;
$exports->{WWW} = sub {
require XXX;
local $XXX::DumpModule = $dm;
XXX::WWW(@_);
};
$exports->{XXX} = sub {
require XXX;
local $XXX::... |
| Module-Build-0.4003 | Module::Build::Cookbook | show |
| $VERSION = '0.4003' |
| Module-ConfigureRequires-0.03 | Module::ConfigureRequires | show |
| (undef) = (undef) |
| Module-Find-0.11 | ModuleFindTest | show |
| $ModuleFindTest::loaded = 1 |
| Module-Find-0.11 | ModuleFindTest | show |
| $ModuleFindTest::loaded = 1 |
| Module-Find-0.11 | ModuleFindTest::SubMod | show |
| $ModuleFindTest::SubMod::loaded = 1 |
| Module-Find-0.11 | ModuleFindTest::SubMod::SubSubMod | show |
| $ModuleFindTest::SubMod::SubSubMod::loaded = 1 |
| Module-Find-0.11 | ModuleFindTest::SubMod | show |
| $ModuleFindTest::SubMod::loaded = 1 |
| Module-Find-0.11 | ModuleFindTest::SubMod::SubSubMod | show |
| $ModuleFindTest::SubMod::SubSubMod::loaded = 1 |
| Mojito-0.21 | RenderMojoMojo | show |
| RenderMojoMojo->run_if_script |
| Mojito-0.21 | RecentSynopses | show |
| RecentSynopses->run_if_script |
| MonetDB-CLI-MapiXS-0.03 | MonetDB::CLI::MapiXS | show |
| XSLoader::load __PACKAGE__ |
| MooseX-ArrayRef-0.004 | MooseX::ArrayRef | show |
| [qw( Yeah baby yeah )] |
| MooseX-CompileTime-Traits-1.102570 | MooseX::CompileTime::Traits | show |
| role MooseX::CompileTime::Traits {
use Moose::Util;
method import (ClassName $class: ArrayRef :$traits?) {
if(defined($traits))
{
my $meta = $class->meta;
if($meta->isa('Moose::Meta::Class') && $meta... |
| MooseX-DeclareX-Privacy-0.004 | MooseX::DeclareX::Privacy | show |
| $MooseX::DeclareX::Privacy::VERSION = '0.004' |
| MooseX-MultiMethods-0.10 | MooseX::MultiMethods | show |
| method BUILD ($args) {
$self->_dd_init_args($args);
}
method _build_dd_context {
return DDContext->new(%{ $self->_dd_init_args });
}
method import (ClassName $class:) {
my $setup_class = caller;
$class->setup_for($setup_class... |
| MooseX-MultiMethods-0.10 | MooseX::MultiMethods::Meta::Method | show |
| method initialize_body {
my $name = $self->name;
my $variant_table = $self->_variant_table;
return sub {
my ($args) = \@_;
my $result = $variant_table->find_variant($args)
|| Class::MOP::class_of... |
| MooseX-MultiObject-0.03 | MooseX::MultiObject::Role | show |
| requires 'get_managed_objects' |
| MooseX-MultiObject-0.03 | MooseX::MultiObject::Meta::Class | show |
| has 'set_attribute_name' => (
reader => 'get_set_attribute_name',
writer => 'set_set_attribute_name',
predicate => 'has_set_attribute_name',
isa => 'Str',
) |
| MooseX-Role-DBIC-0.01 | MooseX::Role::DBIC | show |
| role {
my $p = shift;
my $name = $p->schema_name;
my $desc = $p->schema_description;
my $acc_opts = $p->accessor_options;
my $clearer = sub { shift->${\"clear_${name}_schema"}() };
my $common_opts = su... |
| MooseX-Role-DBIx-Connector-0.11 | MooseX::Role::DBIx::Connector | show |
| role {
my $p = shift;
my $conn = $p->connection_name;
my $desc = $p->connection_description;
my $opts = $p->accessor_options;
has "${conn}_dsn" => (
documentation => "DBI dsn for connecting t... |
| MooseX-Runnable-Fuse-0.02 | MooseX::Runnable::Fuse | show |
| role Filesystem::Fuse::Readable {
use MooseX::Types::Moose qw(HashRef ArrayRef Defined Int);
use MooseX::Types::Path::Class qw(File Dir);
use POSIX qw(ENOENT EISDIR);
require MooseX::Getopt;
has 'open_files' => (
traits ... |
| MooseX-Types-Vehicle-0.03 | MooseX::Types::Vehicle | show |
| coerce VIN17
, from Str , via {
my $vin = shift;
$vin =~ tr/qQoOiI/000011/;
$vin =~ s/\s+//g;
return uc($vin);
} |
| MySQL-Insert-0.06 | MySQL::Insert | show |
| DESTROY {
my $self = shift;
$self->_finish_current_row;
$self->_execute_query();
}
sub insert_row {
my ( $self, @new_rows ) = @_;
my $query_executed = 0;
foreach my $new_row ( @new_rows ) {
$query_executed = 1 if $self... |
| Net-Address-IP-Local-0.1.2 | Net::Address::IP::Local | show |
| TRUE |
| Net-Autoconfig-v1.13.2 | Net::Autoconfig | show |
| TRUE |
| Net-Autoconfig-v1.13.2 | Net::Autoconfig::Device | show |
| TRUE |
| Net-Autoconfig-v1.13.2 | Net::Autoconfig::Template | show |
| TRUE |
| Net-Autoconfig-v1.13.2 | Net::Autoconfig::Device::HP4000 | show |
| TRUE |
| Net-Autoconfig-v1.13.2 | Net::Autoconfig::Device::Cisco | show |
| TRUE |
| Net-Autoconfig-v1.13.2 | Net::Autoconfig::Device::HP | show |
| TRUE |
| Net-CapsuleCRM-1.123130 | Net::CapsuleCRM | show |
| method endpoint_uri { return 'https://' . $self->target_domain . '/api/'; }
method _talk($command,$method,$content?) {
my $uri = URI->new($self->endpoint_uri);
$uri->path("api/$command");
$self->ua->credentials(
$uri->hos... |
| Net-DNS-Resolver-Programmable-v0.003 | Net::DNS::Resolver::Programmable | show |
| TRUE |
| Net-DNS-SEC-0.16 | Net::DNS::RR::DLV | show |
| $VERSION = (qw$LastChangedRevision: 580 $)[1] |
| Net-Frame-Layer-SNMP-1.01 | Net::Frame::Layer::SNMP | show |
| sub v2trap_varbinds {
my $self = shift;
my %params = (
oid => '1.3.6.1.4.1.50000',
timeticks => time(),
);
if (@_ == 1) {
return(undef)
} else {
my %cfg = @_;
for (keys(%cfg)) {
if (/^-?oi... |
| Net-FriendFeed-0.93 | Test::MockHTTP | show |
| $Mock_ua = Test::MockObject::Extends->new(LWP::UserAgent->new) |
| Net-IMAP-Server-1.36 | Net::IMAP::Server | show |
| DESTROY {
my $self = shift;
$_->close for grep { defined $_ } @{ $self->connections };
$self->server_close;
}
sub connections {
my $self = shift;
return [ values %{$self->{connection}} ];
}
sub connection {
my $clas... |
| Net-IMP-HTTP-0.52 | Net::IMP::HTTP | show |
| push @EXPORT, IMP_DATA( 'httprq[http+10]',
'header' => +1,
'content' => -2,
'data' => -3,
) |
| Net-Ifstat-0.01 | Net::Ifstat | show |
| *exec = \&execute |
| Net-Jenkins-0.07 | Net::Jenkins | show |
| method get_base_url {
return $self->scheme
. '://' . $self->host
. ':' . $self->port;
}
method post_url ($uri,%args) {
return $self->user_agent->post( $uri , \%args );
}
method get_url ($uri) {
... |
| Net-Jenkins-0.07 | Net::Jenkins::Job | show |
| method delete {
return $self->api->delete_job( $self->name );
}
method update ($xml) {
return $self->api->update_job( $self->name, $xml );
}
method copy ($new_job_name) {
return $self->api->copy_job( $new_job_name , $... |
| Net-Jenkins-0.07 | Net::Jenkins::Job::Build | show |
| method details {
return $self->api->get_build_details( $self->job->name, $self->number );
}
method result {
return $self->details->{result};
}
method building {
return $self->details->{building};
}
method id {
... |
| Net-Nessus-0.09 | Net::Nessus::Message | show |
| @Net::Nessus::Message::BYE::ISA = qw(Net::Nessus::Message::SingleLine) |
| Net-Netcat-0.05 | Net::Netcat | show |
| *exec = \&execute |
| Net-OSCAR-1.928 | Net::OSCAR::ServerCallbacks | show |
| sub {
my $cookie = pack("n", $reqid & 0xFFFF) . $data{cookie};
if($COOKIES{$cookie}) {
my $peer = delete $COOKIES{$cookie};
my $screenname = $peer->{sn};
print "$screenname initiating BOS handshake.\n";
$connection->{screenname} = $screenname;
... |
| Net-OSCAR-1.928 | Net::OSCAR::ServerCallbacks | show |
| sub {
$connection->proto_send(protobit => "locate_rights_response", reqid => $reqid);
} |
| Net-OSCAR-1.928 | Net::OSCAR::ServerCallbacks | show |
| sub {
$connection->proto_send(reqid => $reqid, protobit => "incoming_profile", protodata => {
screenname => $data{screenname},
awaymsg => "Got away message at " . scalar(ctime(time())),
evil => 0,
flags => 0x20,
onsince =>... |
| Net-OSCAR-1.928 | Net::OSCAR::ServerCallbacks | show |
| sub {
$connection->proto_send(protobit => "BOS_rights_response", reqid => $reqid);
} |
| Net-OSCAR-1.928 | Net::OSCAR::ServerCallbacks | show |
| sub {
send_versions($connection, 0, 1);
} |
| Net-OSCAR-1.928 | Net::OSCAR::ServerCallbacks | show |
| sub {
} |
| Net-OSCAR-1.928 | Net::OSCAR::ServerCallbacks | show |
| sub {
if($data{status_message}) {
$SESSIONS->{$screenname}->{status}->{extstatus} = $data{status_message}->{message};
} elsif($data{stealth}) {
$SESSIONS->{$screenname}->{status}->{stealth} = $data{stealth}->{state} & 0x100;
}
... |
| Net-OSCAR-1.928 | Net::OSCAR::ServerCallbacks | show |
| sub {
print "$screenname finished signing on.\n";
$connection->{signon_done} = 1;
} |
| Net-OSCAR-1.928 | Net::OSCAR::ServerCallbacks | show |
| sub {
$connection->proto_send(reqid => $reqid, protobit => "rate_info_response", protodata => {
classes => [],
classmembers => []
});
} |
| Net-OSCAR-1.928 | Net::OSCAR::ServerCallbacks | show |
| sub {
$connection->proto_send(reqid => $reqid, protobit => "self_information", protodata => {
screenname => $screenname,
evil => 0,
flags => 0x20,
onsince => time(),
idle => 0,
session_length => 0,
ip => 0
});
... |
| Net-OSCAR-1.928 | Net::OSCAR::ServerCallbacks | show |
| sub {
$connection->proto_send(protobit => "buddy_rights_response", reqid => $reqid);
} |
| Net-OSCAR-1.928 | Net::OSCAR::ServerCallbacks | show |
| sub {
my $hash;
($screenname, $hash) = ($data{screenname}, $data{auth_response});
if(!$SCREENNAMES->{$screenname}) {
$connection->proto_send(protobit => "authorization_response", protodata => {error => 1});
}
my @valid_hashes = map {
[... |
| Net-OSCAR-1.928 | Net::OSCAR::ServerCallbacks | show |
| sub {
if(exists($SCREENNAMES->{$data{screenname}})) {
$screenname = $data{screenname};
my $key = sprintf("%08d", int(rand(99999999)));
print "$screenname would like to sign on. Generated key '$key'\n";
$SESSIONS->{$screenname} ||= {};
$SESSI... |
| Net-OSCAR-1.928 | Net::OSCAR::ServerCallbacks | show |
| sub {
$connection->proto_send(protobit => "buddylist_3_response", reqid => $reqid, protodata => {maximums => [
200, 50, 128, 128, 1, 1, 50, 0, 0, 3, 0, 0, 0, 128, 128, 20, 200, 1, 0, 1, 0
]});
} |
| Net-OSCAR-1.928 | Net::OSCAR::ServerCallbacks | show |
| sub {
my $blist;
my $visdata = tlv_encode(tlv(
0xCA => 0,
0xCB => 0xFFFFFFFF,
));
$blist = "xxx";
$blist .= pack("n5a*", 0, 0, 0xCB, 4, length($visdata), $visdata);
$blist .= pack("na*n4", length("Buddies"), "Buddies", 1, 0, 1, 0);
my $i = 1;
$b... |
| Net-OSCAR-1.928 | Net::OSCAR::ServerCallbacks | show |
| sub {
$connection->proto_send(protobit => "IM_parameter_response", reqid => $reqid, protodata => {channel => $data{channel}});
} |
| Net-OSCAR-1.928 | Net::OSCAR::ServerCallbacks | show |
| sub {
$connection->proto_send(protobit => "IM_parameter_response", reqid => $reqid, protodata => {channel => $data{channel}});
} |
| Net-OSCAR-1.928 | Net::OSCAR::ServerCallbacks | show |
| sub {
my $target = $SESSIONS->{$data{screenname}};
if(!$target or !$target->{sessions}->[0]) {
return srv_send_error($connection, $family, 4);
}
$connection->proto_send(reqid => $reqid, protobit => "IM_acknowledgement", protodata =>... |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
my $error = "";
if($family == 0x4) {
$error = "Your message could not be sent for the following reason: ";
} else {
$error = "Error in ".$connection->{description}.": ";
}
$session->log_printf(OSCAR_DBG_DEBUG, "Got error %d on req 0x%04X/0x... |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
$session->callback_chat_joined($connection->{name}, $connection) unless $connection->{sent_joined}++;
$session->callback_chat_buddy_in(Net::OSCAR::Screenname->new(\$_->{screenname}), $connection) foreach @{$data{occupants}};
} |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
foreach (@{$data{departures}}) {
$session->callback_chat_buddy_out(Net::OSCAR::Screenname->new(\$_), $connection);
}
} |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
$session->callback_chat_im_in($data{sender}, $connection, $data{message});
} |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
foreach (@{$data{arrivals}}) {
$session->callback_chat_buddy_in(Net::OSCAR::Screenname->new(\$_->{screenname}), $connection, $_);
}
} |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
$session->postprocess_userinfo(\%data);
$session->callback_buddy_info($data{screenname}, \%data);
} |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
$session->set_info("");
} |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
$session->{__old_loglevel} = $session->loglevel();
$session->loglevel(10);
$connection->log_print(OSCAR_DBG_WARN, "Server initiated migration. Migration support is experimental. Please tell matthewg\@zevils.com that this happened and ... |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
$connection->{families} = { map { $_ => 1 } @{$data{families}} };
send_versions($connection, 0);
$connection->proto_send(protobit => "rate_info_request", nopause => 1);
} |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
$session->callback_evil($data{new_level} / 10, Net::OSCAR::Screenname->new(\$data{screenname}) || undef);
} |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
$connection->log_print(OSCAR_DBG_WARN, "Migration cancelled by server!");
$connection->unpause();
$connection->loglevel(delete $connection->{__old_loglevel});
} |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
my @migfamilies = grep { $_ != 0 } @{$data{families}};
$connection->log_print(OSCAR_DBG_WARN, "Migration families received: ", join(" ", @migfamilies));
$session->loglevel(10);
my $pause_queue;
if(@{$data{families}} == keys %{$connection-&g... |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
$connection->unpause();
if($session->{rate_manage_mode} != OSCAR_RATE_MANAGE_NONE) {
$connection->{rate_limits} ||= {classmap => {}};
my $rinfo = $connection->{rate_limits};
my $time = millitime();
foreach my $class (@{$data{cl... |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
$session->{ip} = $data{ip} if $data{ip};
if(exists($data{stealth_status})) {
my $stealth_state;
if($data{stealth_status} & 0x100) {
$stealth_state = 1;
} else {
$stealth_state = 0;
}
if($stealth_state xor $session->{stealth}) {
$... |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
my $conntype;
my %chatdata;
my $svctype = $data{service_type};
my $svcmap = tlv();
$svcmap->{$_} = $_ foreach (CONNTYPE_LOGIN, CONNTYPE_CHATNAV, CONNTYPE_CHAT, CONNTYPE_ADMIN, CONNTYPE_BOS, CONNTYPE_ICON);
$conntype = $svcmap->{$svctype} ||... |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
if(exists($data{upload_checksum})) {
if($connection->{conntype} != CONNTYPE_ICON) {
if($session->{icon} and $session->{is_on}) {
$connection->log_print(OSCAR_DBG_INFO, "Uploading buddy icon.");
$session->svcdo(CONNTYPE_ICON,... |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
my($rate, $worrisome);
if($session->{rate_manage_mode} != OSCAR_RATE_MANAGE_NONE) {
delete $data{message_type};
my $cinfo = $connection->{rate_limits}->{$data{class_id}};
$cinfo->{$_} = $data{$_} foreach keys(%data);
}
if($data{c... |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
my $buddy = $data{screenname};
my($grpname, $group) = $session->findbuddy($buddy);
return unless $grpname;
delete $session->{userinfo}->{$buddy};
my $budinfo = $group->{members}->{$buddy};
foreach (keys %$budinfo) {
delete $budi... |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
if($session->{bl_limits}->{buddies}) {
if($data{maxbuddies} < $session->{bl_limits}->{buddies}) {
$session->{bl_limits}->{buddies} = $data{maxbuddies};
}
} else {
$session->{bl_limits}->{buddies} = $data{maxbuddies};... |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
$connection->log_print(OSCAR_DBG_DEBUG, "Incoming bogey - er, I mean buddy - $data{screenname}");
$session->postprocess_userinfo(\%data);
my $screenname = $data{screenname};
my($grpname, $group) = $session->findbuddy($screenname);
return ... |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
my $uin = $data{our_uin};
if($data{type} == 2010) {
$session->{icq_meta_info_cache}->{$uin} ||= {};
(%data) = protoparse($session, "ICQ_meta_info_response")->unpack($data{typedata});
if($data{status} != 10) {
delete $session->{ic... |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
my $reqdesc = "";
$data{subrequest} ||= 0;
if($data{request_type} == 2) {
$reqdesc = ADMIN_TYPE_PASSWORD_CHANGE;
} elsif($data{request_type} == 3) {
if(exists($data{new_email})) {
$reqdesc = ADMIN_TYPE_EMAIL_CHANGE;
} else {
$reqdesc = ADMIN... |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
$session->callback_admin_ok(ADMIN_TYPE_ACCOUNT_CONFIRM);
} |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
if($data{error}) {
my $error = $data{error};
$session->crapout($connection, "Invalid screenname.") if $error == 0x01;
$session->crapout($connection, "Invalid password.") if $error == 0x05;
$session->crapout($connection, "You've been co... |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
if(defined($connection->{auth})) {
$connection->log_print(OSCAR_DBG_SIGNON, "Sending password.");
my(%signon_data) = signon_tlv($session, delete($connection->{auth}), $data{key});
$session->svcdo(CONNTYPE_BOS, protobit => "signon... |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
if($session->{gotbl}) {
delete $session->{gotbl};
$connection->log_print(OSCAR_DBG_WARN, "Couldn't get your buddylist - probably because you don't have one.");
got_buddylist($session, $connection);
} else {
$connection->log_print... |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
$session->{blarray} ||= [];
substr($data{data}, 0, 3) = "";
substr($data{data}, -4, 4) = "" if $snac->{flags2};
push @{$session->{blarray}}, $data{data};
if($snac->{flags2}) {
$connection->log_printf(OSCAR_DBG_SIGNON, "Got buddylis... |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
my $type = "delete";
%data = protoparse($session, "buddylist_change")->unpack($snac->{data});
foreach my $change (@{$data{changes}}) {
$connection->log_print_cond(OSCAR_DBG_DEBUG, sub { "Buddylist change $type:\n", Data::Dumper::Dumper($... |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
$session->{__BLI_locked} = 0;
$session->callback_buddylist_changed(Net::OSCAR::_BLInternal::BLI_to_NO($session));
if($session->{__BLI_commit_later}) {
$session->{__BLI_commit_later} = 0;
$session->commit_buddylist();
}
} |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
my $type = "add";
%data = protoparse($session, "buddylist_change")->unpack($snac->{data});
foreach my $change (@{$data{changes}}) {
$connection->log_print_cond(OSCAR_DBG_DEBUG, sub { "Buddylist change $type:\n", Data::Dumper::Dumper($cha... |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
my $type = "modify";
%data = protoparse($session, "buddylist_change")->unpack($snac->{data});
foreach my $change (@{$data{changes}}) {
$connection->log_print_cond(OSCAR_DBG_DEBUG, sub { "Buddylist change $type:\n", Data::Dumper::Dumper($... |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
$session->{__BLI_locked} = 1;
} |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
if(!ref($session->{budmods}) || !@{$session->{budmods}}) {
$connection->log_print(OSCAR_DBG_WARN, "Unexpected blmod ack!");
return;
}
my $budmods = $session->{budmods};
$connection->log_print(OSCAR_DBG_DEBUG, "Got blmod ack (", sc... |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
$session->{gotbl} = 1;
$session->{bl_limits}->{groups} = $data{maximums}->[1];
$session->{bl_limits}->{permits} = $data{maximums}->[2];
$session->{bl_limits}->{denies} = $data{maximums}->[3];
if($session->{bl_limi... |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
return if exists($data{exchange});
foreach my $room (@{$data{room}}) {
my($reqid) = "";
$reqid = pack("n", 4);
$reqid .= randchars(2);
($reqid) = unpack("N", $reqid);
$session->{chats}->{$reqid} = $room;
$session->svcdo(CONNTYPE_... |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
$session->callback_typing_status(Net::OSCAR::Screenname->new(\$data{screenname}), $data{typing_status});
} |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
delete $session->{rv_proposals}->{$data{cookie}};
} |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
my $sender = Net::OSCAR::Screenname->new(\$data{screenname});
my $sender_info = $session->{userinfo}->{$sender} ||= {};
if($data{channel} == 1) {
%data = protoparse($session, "standard_IM_footer")->unpack($data{message_body});
my $... |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
$session->callback_im_ok($reqdata, $reqid);
} |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
my $screenname = $data{screenname};
my $user_info = $session->{userinfo}->{$screenname} ||= {};
$user_info->{icon_checksum} = $data{checksum};
$user_info->{icon} = $data{icon};
$session->callback_buddy_icon_downloaded($user_info->... |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
$session->callback_buddy_icon_uploaded();
} |
| Net-OpenID-Server-1.09 | Net::OpenID::Server | show |
| *rand_chars = \&_rand_chars |
| Net-PSYC-0.21 | Net::PSYC::FileShare | show |
| %method = (
'_data_file' => sub {
my ($source, $mc, $data, $vars) = @_;
my $filename = $vars->{'_name_file'};
my $hash = $vars->{'_hash'};
my $t;
my $seek = int($vars->{'_seek_resume'});
my $size = int($vars->{'_siz... |
| Net-SAML2-0.17 | Saml2Test | show |
| true |
| Net-SMS-O2-0.020 | Net::SMS::Genie | show |
| @ISA = qw( Net::SMS::O2 ) |
| Net-Stomp-MooseHelpers-1.8 | Net::Stomp::MooseHelpers::Types | show |
| subtype Destination, as Str,
where { m{^/(?:queue|topic)/} } |
| Net-Stripe-0.08 | Net::Stripe::Resource | show |
| method fields_for {
my $for = shift;
return unless $self->can($for);
my $thingy = $self->$for;
return unless $thingy;
return $thingy->form_fields if ref($thingy) =~ m/^Net::Stripe::/;
return ($for => $thingy);
}
1 |
| Net-Topsy-0.03 | Net::Topsy | show |
| class Net::Topsy with Net::Topsy::Role::API {
use Carp qw/croak confess/;
use Moose;
use URI::Escape;
use JSON::Any qw/XS DWIW JSON/;
use Data::Dumper;
use LWP::UserAgent;
use Net::Topsy::Result;
our $VERSION = '0.03';
... |
| Net-Topsy-0.03 | Net::Topsy::Result | show |
| class Net::Topsy::Result {
use MooseX::Iterator;
use Data::Dumper;
use namespace::autoclean;
has perl => ( isa => 'HashRef', is => 'rw', default => sub { [ ] } );
has json => ( isa => 'Str', ... |
| Net-UPS-0.04 | Net::UPS::Tutorial | show |
| $Net::UPS::Tutorial::VERSION = '1.00' |
| Number-Phone-2.2001 | Number::Phone::Country::Data | show |
| $Number::Phone::Country::prefix_codes{UK} = $Number::Phone::Country::prefix_codes{GB} |
| Object-Exercise-1.14 | Object::Exercise::Benchmark | show |
| sub
{
my $base = basename $0;
my $t0 = Benchmark->new;
my $obj = shift;
my $count = 0;
my $errors = 0;
TEST:
for( @_ )
{
if( ref $_ )
{
++$count;
my $argz = ... |
| Object-Exercise-1.14 | Object::Exercise::Execute | show |
| sub
{
my $obj = shift;
my $count = 0;
unless( $noplan )
{
$count
= grep
{
(ref $_)
&&
(ref $_ eq q{ARRAY})
&&
(ref $_->[0]) ... |
| Object-InsideOut-3.97 | Object::InsideOut | show |
| ($Object::InsideOut::VERSION == 3.97)
or die("Version mismatch\n") |
| Object-InsideOut-3.97 | Object::InsideOut | show |
| ($Object::InsideOut::VERSION == 3.97)
or die("Version mismatch\n") |
| Object-InsideOut-3.97 | Object::InsideOut | show |
| ($Object::InsideOut::VERSION == 3.97)
or die("Version mismatch\n") |
| Object-InsideOut-3.97 | Object::InsideOut | show |
| ($Object::InsideOut::VERSION == 3.97)
or die("Version mismatch\n") |
| Object-InsideOut-3.97 | Object::InsideOut | show |
| ($Object::InsideOut::VERSION == 3.97)
or die("Version mismatch\n") |
| Object-InsideOut-3.97 | Object::InsideOut | show |
| ($Object::InsideOut::VERSION == 3.97)
or die("Version mismatch\n") |
| Object-InsideOut-3.97 | Object::InsideOut | show |
| ($Object::InsideOut::VERSION == 3.97)
or die("Version mismatch\n") |
| Object-InsideOut-3.97 | Object::InsideOut | show |
| ($Object::InsideOut::VERSION == 3.97)
or die("Version mismatch\n") |
| Object-InsideOut-3.97 | Object::InsideOut | show |
| ($Object::InsideOut::VERSION == 3.97)
or die("Version mismatch\n") |
| Object-InsideOut-3.97 | Object::InsideOut | show |
| ($Object::InsideOut::VERSION == 3.97)
or die("Version mismatch\n") |
| Object-Trampoline-1.26 | Object::Trampoline | show |
| AUTOLOAD
{
$_[0] = $_[0]->()
or croak "Failed constructor";
my $class = blessed $_[0]
or croak "Failed constructor: '$_[0]' not blessed";
my $method = ( split /::/, $AUTOLOAD )[ -1 ];
if( my $sub = $class->can( $metho... |
| Object-Wrapper-0.05 | Object::Wrapper | show |
| AUTOLOAD
{
my $franger = shift;
my $i = rindex $AUTOLOAD, '::';
my $name = substr $AUTOLOAD, 2 + $i;
my $sub = $franger->[0]->can( $name )
or confess "Bogus $AUTOLOAD: '$franger->[0]' cannot '$name'";
$fran... |
| Object-Wrapper-0.05 | Object::Wrapper::Fork | show |
| AUTOLOAD
{
my $franger = shift;
my ( $obj, $pid ) = @$franger;
$pid == $$
or confess "Bogus $AUTOLOAD: @{ $franger } crosses fork.";
my $i = rindex $AUTOLOAD, '::';
my $name = substr $AUTOLOAD, 2 + $i;
my $sub ... |
| OpenGL-QEng-0.27 | OpenGL::QEng::Thing | show |
| {;
my %deflt_cache;
sub not_default {
my ($self) = @_;
unless (exists $deflt_cache{ref $self}) {
$deflt_cache{ref $self} = ref($self)->new(no_events=>1);
}
my $dflt = $deflt_cache{ref $self};
my $href = {};
for my $key (k... |
| OpenGL-QEng-0.27 | OpenGL::QEng::Treasure | show |
| {;
my $dl = 0;
sub draw {
my ($self,$mode) = @_;
if ($mode == OpenGL::GL_SELECT) {
OpenGL::glLoadName($self->{GLid});
}
if ($self->texture ne 'coins') {
$self->SUPER::draw(@_);
return;
}
OpenGL::glTranslatef($... |
| OpenGL-QEng-0.27 | OpenGL::QEng::GameState | show |
| {;
my $lastx = -999;
my $lastz = -999;
my $lastdir = -999;
my $lastdist = 0;;
sub performStep {
my ($self,$stash,$team,$ev,$steps,$speed,$direction) = @_;
return unless defined $self->{cmap};
if ($speed < 0) {
$direction... |
| OpenGL-QEng-0.27 | OpenGL::QEng::GUIThing | show |
| {;
my $textList;
sub pickTexture {
my ($self,$key) = @_;
unless (defined $textList) {
my $idir = File::ShareDir::dist_dir('Games-Quest3D');
$idir .= '/images';
$textList = OpenGL::QEng::TextureList->new($idir);
}
$textLis... |
| OpenGL-QEng-0.27 | OpenGL::QEng::BarDoor | show |
| {;
my $dl = 0;
my $chkErr = 0;
sub draw {
my ($self,$mode) = @_;
my $mdl = $self->model();
if ($mode == OpenGL::GL_SELECT) {
glLoadName($self->{GLid});
}
glTranslatef($self->{x},$self->y,$self->{z});
glRotate... |
| OpenGL-QEng-0.27 | OpenGL::QEng::OUtil | show |
| {;
my $classname = 'XAAAAA';
sub wrap_class {
my ($self) = @_;
my $class = $classname++;
{
no strict 'refs';
push @{"$class\::ISA"}, ref($self);
unless (ref $self->{wrap_class} eq 'HASH') {
my $cmdTxt = '$self->{w... |
| OpenGL-QEng-0.27 | OpenGL::QEng::Control | show |
| {;
my %BUTS =
('move' =>
[['go_forward', 0,1,['step',0.3,0.0], '<Up>', 'repeat'],
['go_back', 2,1,['step',0.3,180.0],'<Down>', 'repeat'],
['turn_right', 0,2,['turn',+90], '<Right>', ... |
| OurNet-FuzzyIndex-1.60 | OurNet::FuzzyIndex | show |
| DESTROY {
my $self = shift;
$self->sync if UNIVERSAL::can($self, 'sync');
undef $self->{obj};
undef $self->{db};
foreach my $num (0 .. $self->{subcount} - 1) {
undef $self->{subobj}[$num];
undef $self-... |
| PDF-API2-2.020 | PDF::API2::Resource::Font::CoreFont::verdanabolditalic | show |
| $FONTDATA = {
'fontname' => 'Verdana,BoldItalic',
'type' => 'TrueType',
'apiname' => 'VeBoIt',
'ascender' => '1005',
'capheight' => '727',
'descender' => '-209',
'isfixedpitch' => '0',
'issymbol' => ... |
| PDF-API2-2.020 | PDF::API2::Resource::Font::CoreFont::georgiaitalic | show |
| $FONTDATA = {
'fontname' => 'Georgia,Italic',
'type' => 'TrueType',
'apiname' => 'GeIt',
'ascender' => '916',
'capheight' => '692',
'descender' => '-219',
'isfixedpitch' => '0',
'issymbol' => '0',
... |
| PDF-API2-2.020 | PDF::API2::Resource::Font::CoreFont::trebuchetbold | show |
| $FONTDATA = {
'fontname' => 'TrebuchetMS,Bold',
'type' => 'TrueType',
'apiname' => 'TrBo',
'ascender' => '938',
'capheight' => '715',
'descender' => '-222',
'isfixedpitch' => '0',
'issymbol' => '0',
... |
| PDF-API2-2.020 | PDF::API2::Resource::Font::CoreFont::helveticaoblique | show |
| $FONTDATA = {
'fontname' => 'Helvetica-Oblique',
'type' => 'Type1',
'apiname' => 'HeIt',
'ascender' => '718',
'capheight' => '718',
'descender' => '-207',
'iscore' => '1',
'isfixedpitch' => '0',
... |
| PDF-API2-2.020 | PDF::API2::Resource::Font::CoreFont::verdanabold | show |
| $FONTDATA = {
'fontname' => 'Verdana,Bold',
'type' => 'TrueType',
'apiname' => 'VeBo',
'ascender' => '1005',
'capheight' => '727',
'descender' => '-209',
'isfixedpitch' => '0',
'issymbol' => '0',
... |
| PDF-API2-2.020 | PDF::API2::Resource::Font::CoreFont::webdings | show |
| $FONTDATA = {
'fontname' => 'Webdings',
'type' => 'TrueType',
'apiname' => 'Web',
'ascender' => '799',
'capheight' => '604',
'descender' => '-200',
'isfixedpitch' => '0',
'issymbol' => '1',
'ital... |
| PDF-API2-2.020 | PDF::API2::Resource::Font::CoreFont::trebuchetitalic | show |
| $FONTDATA = {
'fontname' => 'TrebuchetMS,Italic',
'type' => 'TrueType',
'apiname' => 'TrIt',
'ascender' => '938',
'capheight' => '715',
'descender' => '-222',
'isfixedpitch' => '0',
'issymbol' => '0'... |
| PDF-API2-2.020 | PDF::API2::Resource::Font::CoreFont::verdanaitalic | show |
| $FONTDATA = {
'fontname' => 'Verdana,Italic',
'type' => 'TrueType',
'apiname' => 'VeIt',
'ascender' => '1005',
'capheight' => '727',
'descender' => '-209',
'isfixedpitch' => '0',
'issymbol' => '0',
... |
| PDF-API2-2.020 | PDF::API2::Resource::Font::CoreFont::courierboldoblique | show |
| $FONTDATA = {
'fontname' => 'Courier-BoldOblique',
'type' => 'Type1',
'apiname' => 'CoBoIt',
'ascender' => '629',
'capheight' => '562',
'descender' => '-157',
'iscore' => '1',
'isfixedpitch' => '1',
... |
| PDF-API2-2.020 | PDF::API2::Resource::Font::CoreFont::verdana | show |
| $FONTDATA = {
'fontname' => 'Verdana',
'type' => 'TrueType',
'apiname' => 'Verd',
'ascender' => '1005',
'capheight' => '727',
'descender' => '-209',
'isfixedpitch' => '0',
'issymbol' => '0',
'ita... |
| PDF-API2-2.020 | PDF::API2::Resource::Font::CoreFont::courier | show |
| $FONTDATA = {
'fontname' => 'Courier',
'type' => 'Type1',
'apiname' => 'Cour',
'ascender' => '629',
'capheight' => '562',
'descender' => '-157',
'iscore' => '1',
'isfixedpitch' => '1',
'italicang... |
| PDF-API2-2.020 | PDF::API2::Resource::Font::CoreFont::georgia | show |
| $FONTDATA = {
'fontname' => 'Georgia',
'type' => 'TrueType',
'apiname' => 'Geor',
'ascender' => '916',
'capheight' => '692',
'descender' => '-219',
'isfixedpitch' => '0',
'issymbol' => '0',
'ital... |
| PDF-API2-2.020 | PDF::API2::Resource::Font::CoreFont::helveticaboldoblique | show |
| $FONTDATA = {
'fontname' => 'Helvetica-BoldOblique',
'type' => 'Type1',
'apiname' => 'HeBi',
'ascender' => '718',
'capheight' => '718',
'descender' => '-207',
'iscore' => '1',
'isfixedpitch' => '0',
... |
| PDF-API2-2.020 | PDF::API2::Resource::Font::CoreFont::wingdings | show |
| $FONTDATA = {
'fontname' => 'Wingdings',
'type' => 'TrueType',
'apiname' => 'WiDi',
'ascender' => '898',
'capheight' => '722',
'descender' => '-210',
'isfixedpitch' => '0',
'issymbol' => '1',
'it... |
| PDF-API2-2.020 | PDF::API2::Resource::Font::CoreFont::georgiabolditalic | show |
| $FONTDATA = {
'fontname' => 'Georgia,BoldItalic',
'type' => 'TrueType',
'apiname' => 'GeBoIt',
'ascender' => '916',
'capheight' => '692',
'descender' => '-219',
'isfixedpitch' => '0',
'issymbol' => '... |
| PDF-API2-2.020 | PDF::API2::Resource::Font::CoreFont::helvetica | show |
| $FONTDATA = {
'fontname' => 'Helvetica',
'type' => 'Type1',
'apiname' => 'Helv',
'ascender' => '718',
'capheight' => '718',
'descender' => '-207',
'iscore' => '1',
'isfixedpitch' => '0',
'italica... |
| PDF-API2-2.020 | PDF::API2::Resource::Font::CoreFont::trebuchetbolditalic | show |
| $FONTDATA = {
'fontname' => 'TrebuchetMS,BoldItalic',
'type' => 'TrueType',
'apiname' => 'TrBoIt',
'ascender' => '938',
'capheight' => '715',
'descender' => '-222',
'isfixedpitch' => '0',
'issymbol' =&g... |
| PDF-API2-2.020 | PDF::API2::Resource::Font::CoreFont::trebuchet | show |
| $FONTDATA = {
'fontname' => 'TrebuchetMS',
'type' => 'TrueType',
'apiname' => 'Treb',
'ascender' => '938',
'capheight' => '715',
'descender' => '-222',
'isfixedpitch' => '0',
'issymbol' => '0',
'... |
| PDF-API2-2.020 | PDF::API2::Resource::Font::CoreFont::courierbold | show |
| $FONTDATA = {
'fontname' => 'Courier-Bold',
'type' => 'Type1',
'apiname' => 'CoBo',
'ascender' => '629',
'capheight' => '562',
'descender' => '-157',
'iscore' => '1',
'isfixedpitch' => '1',
'ital... |
| PDF-API2-2.020 | PDF::API2::Resource::Font::CoreFont::bankgothic | show |
| $FONTDATA = {
'fontname' => 'BankGothicMediumBT',
'type' => 'TrueType',
'apiname' => 'BaGo',
'ascender' => '812',
'capheight' => '517',
'descender' => '-235',
'isfixedpitch' => '0',
'issymbol' => '0'... |
| PDF-API2-2.020 | PDF::API2::Resource::Font::CoreFont::zapfdingbats | show |
| $FONTDATA = {
'fontname' => 'ZapfDingbats',
'type' => 'Type1',
'apiname' => 'Zapf',
'ascender' => '806',
'capheight' => '705',
'descender' => '-198',
'iscore' => '1',
'isfixedpitch' => '0',
'issy... |
| PDF-API2-2.020 | PDF::API2::Resource::Font::CoreFont::symbol | show |
| $FONTDATA = {
'fontname' => 'Symbol',
'type' => 'Type1',
'apiname' => 'Sym',
'ascender' => '600',
'capheight' => '600',
'descender' => '-200',
'iscore' => '1',
'isfixedpitch' => '0',
'issymbol' =... |
| PDF-API2-2.020 | PDF::API2::Resource::Font::CoreFont::timesitalic | show |
| $FONTDATA = {
'fontname' => 'Times-Italic',
'type' => 'Type1',
'apiname' => 'TiIt',
'ascender' => '683',
'capheight' => '653',
'descender' => '-217',
'iscore' => '1',
'isfixedpitch' => '0',
'issy... |
| PDF-API2-2.020 | PDF::API2::Resource::Font::CoreFont::helveticabold | show |
| $FONTDATA = {
'fontname' => 'Helvetica-Bold',
'type' => 'Type1',
'apiname' => 'HeBo',
'ascender' => '718',
'capheight' => '718',
'descender' => '-207',
'iscore' => '1',
'isfixedpitch' => '0',
'it... |
| PDF-API2-2.020 | PDF::API2::Resource::Font::CoreFont::georgiabold | show |
| $FONTDATA = {
'fontname' => 'Georgia,Bold',
'type' => 'TrueType',
'apiname' => 'GeBo',
'ascender' => '916',
'capheight' => '692',
'descender' => '-219',
'isfixedpitch' => '0',
'issymbol' => '0',
... |
| PDF-API2-2.020 | PDF::API2::Resource::Font::CoreFont::timesroman | show |
| $FONTDATA = {
'fontname' => 'Times-Roman',
'type' => 'Type1',
'apiname' => 'TiRo',
'ascender' => '683',
'capheight' => '662',
'descender' => '-217',
'iscore' => '1',
'isfixedpitch' => '0',
'itali... |
| PDF-API2-2.020 | PDF::API2::Resource::Font::CoreFont::courieroblique | show |
| $FONTDATA = {
'fontname' => 'Courier-Oblique',
'type' => 'Type1',
'apiname' => 'CoIt',
'ascender' => '629',
'capheight' => '562',
'descender' => '-157',
'iscore' => '1',
'isfixedpitch' => '1',
'i... |
| PDF-API2-2.020 | PDF::API2::Resource::Font::CoreFont::timesbold | show |
| $FONTDATA = {
'fontname' => 'Times-Bold',
'type' => 'Type1',
'apiname' => 'TiBo',
'ascender' => '683',
'capheight' => '676',
'descender' => '-217',
'iscore' => '1',
'isfixedpitch' => '0',
'italic... |
| PDF-API2-2.020 | PDF::API2::Resource::Font::CoreFont::timesbolditalic | show |
| $FONTDATA = {
'fontname' => 'Times-BoldItalic',
'type' => 'Type1',
'apiname' => 'TiBoIt',
'ascender' => '683',
'capheight' => '669',
'descender' => '-217',
'iscore' => '1',
'isfixedpitch' => '0',
... |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Resource::Font::CoreFont
::verdanabolditalic | show |
| $FONTDATA = {
'fontname' => 'Verdana,BoldItalic',
'type' => 'TrueType',
'apiname' => 'VeBoIt',
'ascender' => '1005',
'capheight' => '727',
'descender' => '-209',
'isfixedpitch' => '0',
'issymbol' => ... |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Resource::Font::CoreFont
::georgiaitalic | show |
| $FONTDATA = {
'fontname' => 'Georgia,Italic',
'type' => 'TrueType',
'apiname' => 'GeIt',
'ascender' => '916',
'capheight' => '692',
'descender' => '-219',
'isfixedpitch' => '0',
'issymbol' => '0',
... |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Resource::Font::CoreFont
::trebuchetbold | show |
| $FONTDATA = {
'fontname' => 'TrebuchetMS,Bold',
'type' => 'TrueType',
'apiname' => 'TrBo',
'ascender' => '938',
'capheight' => '715',
'descender' => '-222',
'isfixedpitch' => '0',
'issymbol' => '0',
... |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Resource::Font::CoreFont
::helveticaoblique | show |
| $FONTDATA = {
'fontname' => 'Helvetica-Oblique',
'type' => 'Type1',
'apiname' => 'HeIt',
'ascender' => '718',
'capheight' => '718',
'descender' => '-207',
'iscore' => '1',
'isfixedpitch' => '0',
... |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Resource::Font::CoreFont
::verdanabold | show |
| $FONTDATA = {
'fontname' => 'Verdana,Bold',
'type' => 'TrueType',
'apiname' => 'VeBo',
'ascender' => '1005',
'capheight' => '727',
'descender' => '-209',
'isfixedpitch' => '0',
'issymbol' => '0',
... |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Resource::Font::CoreFont
::webdings | show |
| $FONTDATA = {
'fontname' => 'Webdings',
'type' => 'TrueType',
'apiname' => 'Web',
'ascender' => '799',
'capheight' => '604',
'descender' => '-200',
'isfixedpitch' => '0',
'issymbol' => '1',
'ital... |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Resource::Font::CoreFont
::trebuchetitalic | show |
| $FONTDATA = {
'fontname' => 'TrebuchetMS,Italic',
'type' => 'TrueType',
'apiname' => 'TrIt',
'ascender' => '938',
'capheight' => '715',
'descender' => '-222',
'isfixedpitch' => '0',
'issymbol' => '0'... |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Resource::Font::CoreFont
::verdanaitalic | show |
| $FONTDATA = {
'fontname' => 'Verdana,Italic',
'type' => 'TrueType',
'apiname' => 'VeIt',
'ascender' => '1005',
'capheight' => '727',
'descender' => '-209',
'isfixedpitch' => '0',
'issymbol' => '0',
... |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Resource::Font::CoreFont
::courierboldoblique | show |
| $FONTDATA = {
'fontname' => 'Courier-BoldOblique',
'type' => 'Type1',
'apiname' => 'CoBoIt',
'ascender' => '629',
'capheight' => '562',
'descender' => '-157',
'iscore' => '1',
'isfixedpitch' => '1',
... |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Resource::Font::CoreFont
::verdana | show |
| $FONTDATA = {
'fontname' => 'Verdana',
'type' => 'TrueType',
'apiname' => 'Verd',
'ascender' => '1005',
'capheight' => '727',
'descender' => '-209',
'isfixedpitch' => '0',
'issymbol' => '0',
'ita... |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Resource::Font::CoreFont
::courier | show |
| $FONTDATA = {
'fontname' => 'Courier',
'type' => 'Type1',
'apiname' => 'Cour',
'ascender' => '629',
'capheight' => '562',
'descender' => '-157',
'iscore' => '1',
'isfixedpitch' => '1',
'italicang... |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Resource::Font::CoreFont
::georgia | show |
| $FONTDATA = {
'fontname' => 'Georgia',
'type' => 'TrueType',
'apiname' => 'Geor',
'ascender' => '916',
'capheight' => '692',
'descender' => '-219',
'isfixedpitch' => '0',
'issymbol' => '0',
'ital... |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Resource::Font::CoreFont
::helveticaboldoblique | show |
| $FONTDATA = {
'fontname' => 'Helvetica-BoldOblique',
'type' => 'Type1',
'apiname' => 'HeBi',
'ascender' => '718',
'capheight' => '718',
'descender' => '-207',
'iscore' => '1',
'isfixedpitch' => '0',
... |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Resource::Font::CoreFont
::wingdings | show |
| $FONTDATA = {
'fontname' => 'Wingdings',
'type' => 'TrueType',
'apiname' => 'WiDi',
'ascender' => '898',
'capheight' => '722',
'descender' => '-210',
'isfixedpitch' => '0',
'issymbol' => '1',
'it... |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Resource::Font::CoreFont
::georgiabolditalic | show |
| $FONTDATA = {
'fontname' => 'Georgia,BoldItalic',
'type' => 'TrueType',
'apiname' => 'GeBoIt',
'ascender' => '916',
'capheight' => '692',
'descender' => '-219',
'isfixedpitch' => '0',
'issymbol' => '... |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Resource::Font::CoreFont
::helvetica | show |
| $FONTDATA = {
'fontname' => 'Helvetica',
'type' => 'Type1',
'apiname' => 'Helv',
'ascender' => '718',
'capheight' => '718',
'descender' => '-207',
'iscore' => '1',
'isfixedpitch' => '0',
'italica... |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Resource::Font::CoreFont
::trebuchetbolditalic | show |
| $FONTDATA = {
'fontname' => 'TrebuchetMS,BoldItalic',
'type' => 'TrueType',
'apiname' => 'TrBoIt',
'ascender' => '938',
'capheight' => '715',
'descender' => '-222',
'isfixedpitch' => '0',
'issymbol' =&g... |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Resource::Font::CoreFont
::trebuchet | show |
| $FONTDATA = {
'fontname' => 'TrebuchetMS',
'type' => 'TrueType',
'apiname' => 'Treb',
'ascender' => '938',
'capheight' => '715',
'descender' => '-222',
'isfixedpitch' => '0',
'issymbol' => '0',
'... |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Resource::Font::CoreFont
::courierbold | show |
| $FONTDATA = {
'fontname' => 'Courier-Bold',
'type' => 'Type1',
'apiname' => 'CoBo',
'ascender' => '629',
'capheight' => '562',
'descender' => '-157',
'iscore' => '1',
'isfixedpitch' => '1',
'ital... |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Resource::Font::CoreFont
::bankgothic | show |
| $FONTDATA = {
'fontname' => 'BankGothicMediumBT',
'type' => 'TrueType',
'apiname' => 'BaGo',
'ascender' => '812',
'capheight' => '517',
'descender' => '-235',
'isfixedpitch' => '0',
'issymbol' => '0'... |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Resource::Font::CoreFont
::zapfdingbats | show |
| $FONTDATA = {
'fontname' => 'ZapfDingbats',
'type' => 'Type1',
'apiname' => 'Zapf',
'ascender' => '806',
'capheight' => '705',
'descender' => '-198',
'iscore' => '1',
'isfixedpitch' => '0',
'issy... |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Resource::Font::CoreFont
::symbol | show |
| $FONTDATA = {
'fontname' => 'Symbol',
'type' => 'Type1',
'apiname' => 'Sym',
'ascender' => '600',
'capheight' => '600',
'descender' => '-200',
'iscore' => '1',
'isfixedpitch' => '0',
'issymbol' =... |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Resource::Font::CoreFont
::timesitalic | show |
| $FONTDATA = {
'fontname' => 'Times-Italic',
'type' => 'Type1',
'apiname' => 'TiIt',
'ascender' => '683',
'capheight' => '653',
'descender' => '-217',
'iscore' => '1',
'isfixedpitch' => '0',
'issy... |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Resource::Font::CoreFont
::helveticabold | show |
| $FONTDATA = {
'fontname' => 'Helvetica-Bold',
'type' => 'Type1',
'apiname' => 'HeBo',
'ascender' => '718',
'capheight' => '718',
'descender' => '-207',
'iscore' => '1',
'isfixedpitch' => '0',
'it... |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Resource::Font::CoreFont
::georgiabold | show |
| $FONTDATA = {
'fontname' => 'Georgia,Bold',
'type' => 'TrueType',
'apiname' => 'GeBo',
'ascender' => '916',
'capheight' => '692',
'descender' => '-219',
'isfixedpitch' => '0',
'issymbol' => '0',
... |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Resource::Font::CoreFont
::timesroman | show |
| $FONTDATA = {
'fontname' => 'Times-Roman',
'type' => 'Type1',
'apiname' => 'TiRo',
'ascender' => '683',
'capheight' => '662',
'descender' => '-217',
'iscore' => '1',
'isfixedpitch' => '0',
'itali... |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Resource::Font::CoreFont
::courieroblique | show |
| $FONTDATA = {
'fontname' => 'Courier-Oblique',
'type' => 'Type1',
'apiname' => 'CoIt',
'ascender' => '629',
'capheight' => '562',
'descender' => '-157',
'iscore' => '1',
'isfixedpitch' => '1',
'i... |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Resource::Font::CoreFont
::timesbold | show |
| $FONTDATA = {
'fontname' => 'Times-Bold',
'type' => 'Type1',
'apiname' => 'TiBo',
'ascender' => '683',
'capheight' => '676',
'descender' => '-217',
'iscore' => '1',
'isfixedpitch' => '0',
'italic... |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Resource::Font::CoreFont
::timesbolditalic | show |
| $FONTDATA = {
'fontname' => 'Times-BoldItalic',
'type' => 'Type1',
'apiname' => 'TiBoIt',
'ascender' => '683',
'capheight' => '669',
'descender' => '-217',
'iscore' => '1',
'isfixedpitch' => '0',
... |
| PDL-FuncND-0.06 | PDL::FuncND | show |
| *PDL::mahalanobis = \&mahalanobis |
| PGP-Sign-0.20 | PGP::Sign | show |
| $VERSION = '0.20' |
| PHP-Include-0.36 | PHP::Include::Vars | show |
| FILTER {
my ($class, $qualifier ) = map { lc($_) } @_;
$QUALIFIER = $qualifier || "my";
$perl = '';
%declared_var = ();
$parser->php_vars( $_ );
print STDERR "\n\nGENERATED PERL:\n\n", $perl, "\n\n"
if $PHP::Include::DEBUG;
... |
| PITA-0.60 | PITA::Guest::Server | show |
| compile |
| PITA-0.60 | PITA::Guest::Server::HTTP | show |
| compile |
| PML-0.4.1 | PML | show |
| AUTOLOAD
{
my ($class, $method) = ($AUTOLOAD =~ /^(.*)::(.*)$/);
if ($class eq 'PML::Token') {
if ($method eq 'id') {
return _token_id(@_);
} elsif ($method eq 'context') {
return _token_context(@_);
} elsif ($method eq 'file_loc' or $met... |
| POE-Component-Spread-0.02 | POE::Filter::Spread | show |
| $VERSION |
| POE-Component-Spread-0.02 | POE::Component::Spread | show |
| $VERSION |
| POE-Component-Spread-0.02 | POE::Driver::Spread | show |
| $VERSION |
| POE-Declare-0.59 | POE::Declare::Object | show |
| POE::Declare::compile |
| POE-Declare-HTTP-Client-0.05 | POE::Declare::HTTP::Client | show |
| compile |
| POE-Declare-HTTP-Online-0.02 | POE::Declare::HTTP::Online | show |
| compile |
| POE-Declare-HTTP-Server-0.05 | POE::Declare::HTTP::Server | show |
| compile |
| POE-Declare-Log-File-0.01 | POE::Declare::Log::File | show |
| compile |
| POE-Filter-XML-1.102960 | POE::Filter::XML | show |
| class POE::Filter::XML {
use MooseX::NonMoose;
extends 'Moose::Object','POE::Filter';
use Carp;
use Try::Tiny;
use XML::LibXML;
use POE::Filter::XML::Handler;
use Moose::Util::TypeConstraints;
use MooseX::Types::Moose(':al... |
| POE-Filter-XML-1.102960 | POE::Filter::XML::Node | show |
| class POE::Filter::XML::Node {
use MooseX::NonMoose::InsideOut;
extends 'XML::LibXML::Element';
use XML::LibXML(':libxml');
use MooseX::Types::Moose(':all');
has stream_start => (is => 'ro', writer => '_set_stream_start', i... |
| POE-Filter-XML-1.102960 | POE::Filter::XML::Handler | show |
| class POE::Filter::XML::Handler {
use MooseX::NonMoose;
extends 'XML::SAX::Base';
use Moose::Util::TypeConstraints;
use MooseX::Types::Moose(':all');
use POE::Filter::XML::Node;
has current_node =>
(
is => 'rw'... |
| POEx-Role-PSGIServer-1.110670 | POEx::Role::PSGIServer | show |
| role POEx::Role::PSGIServer {
use aliased 'POEx::Role::Event';
use MooseX::Types::Moose(':all');
use POEx::Types::PSGIServer(':all');
use POEx::Types(':all');
use Moose::Autobox;
use HTTP::Message::PSGI;
use HTTP::Status qw(st... |
| POEx-Role-PSGIServer-1.110670 | POEx::Role::PSGIServer::ProxyWriter | show |
| class POEx::Role::PSGIServer::ProxyWriter {
use MooseX::Types::Moose(':all');
use POEx::Types::PSGIServer(':all');
has server_context => (
is => 'ro',
isa => PSGIServerContext,
required => 1
);
h... |
| POEx-Role-PSGIServer-1.110670 | POEx::Role::PSGIServer::Streamer | show |
| class POEx::Role::PSGIServer::Streamer {
use POE::Filter::Map;
use POE::Filter::Stream;
use MooseX::Types::Moose(':all');
use POEx::Types::PSGIServer(':all');
has server_context => (is => 'ro', isa => PSGIServerContext, ... |
| PPM-2.1.9 | PPM::XML::RepositorySummary | show |
| @okids = qw( SOFTPKG ) |
| PPM-2.1.9 | PPM::XML::PPD | show |
| @oattrs = qw( HREF EXEC ) |
| PPM-2.1.9 | PPM::XML::PPMConfig | show |
| @okids = qw( SOFTPKG ) |
| Padre-Plugin-Vi-0.23 | Vimper::SyntaxDag | show |
| method _build_group_list { GroupList->new(src => $self->src) }
method _build_dag { Graph->new(directed => 1) }
method graph {
$self->add_group($_) for $self->groups->flatten;
use Data::Dumper;print Dumper $self-&... |
| Padre-Plugin-Vi-0.23 | Vimper::CommandSheet | show |
| method _build_data {
my $file = $self->file;
my $lines = [io($file)->slurp]->map(sub{chomp; $_});
my ($head, $tail) = ($lines->shift, $lines);
my @head = map { s/\?//; $_ } split /\t/, $head;
return $tail->map(sub{
... |
| Padre-Plugin-Vi-0.23 | Vimper::SyntaxPath | show |
| method to_string
{ $self->parts->map(sub { $_->to_string })->join("\t") }
method command { $self->parts->[-1]->command }
method key_list { $self->parts->grep(sub{ ref($_) =~ /KeyNode/ }) }
method key_count { scalar $self... |
| Padre-Plugin-Vi-0.23 | Vimper::SyntaxPath::Node | show |
| method type {
my ($class) = ref($self) =~ /::(\w+)$/;
return lc($class);
}
method graph_name { $self->type }
method graph_label { $self->type }
method bag_key { undef }
method label_sep { undef }
method must_merge { 0... |
| Padre-Plugin-Vi-0.23 | Vimper::SyntaxPath::Node::Command | show |
| method graph_label { $self->to_string }
method bag_key { 'vimperCommands' }
method label_sep { "\\n" }
method must_not_merge { 1 }
method to_string { $self->command->keys. ": ". $self->command->help }
1 |
| Padre-Plugin-Vi-0.23 | Vimper::SyntaxPath::Node::Count | show |
| method to_string { 'number' }
1 |
| Padre-Plugin-Vi-0.23 | Vimper::SyntaxPath::Node::Key | show |
| method to_string { 'key'. $self->idx. ':'. $self->key }
method graph_label { $self->key }
method graph_name { 'key'. $self->idx }
method bag_key { 'vimperKeys' }
method label_sep { " " }
method escaped_key {
my $key = ... |
| Padre-Plugin-Vi-0.23 | Vimper::SyntaxPath::Node::Op | show |
| method to_string { 'op' }
method must_merge { 1 }
1 |
| Padre-Plugin-Vi-0.23 | Vimper::SyntaxPath::Node::Char | show |
| method to_string { 'char' }
method must_not_merge { 1 }
1 |
| Padre-Plugin-Vi-0.23 | Vimper::SyntaxPath::Node::Init | show |
| method to_string { 'init' }
method must_merge { 1 }
1 |
| Padre-Plugin-Vi-0.23 | Vimper::SyntaxPath::Node::Letter | show |
| method to_string { 'letter' }
method must_not_merge { 1 }
1 |
| Padre-Plugin-Vi-0.23 | Vimper::SyntaxDag::GroupMerger | show |
| method merge {
$self->registry->{by_type} ||= {};
$self->registry->{by_group} ||= {};
for ($self->grp_vertices) { $type = $_; $self->merge_or_add_node };
for ($self->grp_vertices) { $type = $_; $self->merge_node_ed... |
| Padre-Plugin-Vi-0.23 | Vimper::SyntaxDag::Group | show |
| method BUILD { $self->add_command($_) for $self->src->flatten }
method some_command { $self->src->[0] }
method syntax_group { $self->some_command->syntax_group }
method count_node_kind { $self->some_command->count_node_ki... |
| Padre-Plugin-Vi-0.23 | Vimper::SyntaxDag::GroupList | show |
| method _build_groups {
my (%groups, @groups);
for my $command ($self->commands->flatten)
{ push @{ $groups{$command->syntax_group} ||= [] }, $command }
for my $group_name (keys %groups) {
push @groups, Group->new
... |
| Padre-Plugin-Vi-0.23 | Vimper::Command::Normal | show |
| method _build_key_list {
my $keys = $self->keys;
my @keys;
while (length $keys) {
push(@keys, $1) if $keys =~ s/^(CTRL-.)//;
push(@keys, $1) if $keys =~ s/^(<[^>]+>)//;
push(@keys, $1) if $keys =~ s/^(.)//;
... |
| Padre-Plugin-Vi-0.23 | Vimper::Command::Normal::Motion | show |
| method syntax_group {
my ($count, $op, $char, $letter, $first_key) = map { $self->$_ }
qw(count op char letter first_key);
my $key_count = scalar $self->key_list->flatten;
my $keys = $key_count == 1? $key_count: "$key_count.$f... |
| Pangloss-0.06 | Pangloss::Version | show |
| $Pangloss::VERSION = $VERSION |
| Penguin-3.00 | Penguin | show |
| $VERSION = "3.00" |
| Perl-Achievements-0.4.0 | Perl::Achievements | show |
| method generate_report( $format ) {
my $class = 'Perl::Achievements::Report::'. ucfirst $format;
eval "use $class; 1"
or die "could not use format '$format': $@\n";
my $report = $class->new(
who => $self->user->n... |
| Perl-Critic-Pulp-79 | MyUniqByInode | show |
| DESTROY {
my ($self) = @_;
my $filename = $self->{'tempdbm'}->filename;
my $num_keys = scalar(keys %{$self->{'hash'}});
print "tempfile $filename $num_keys entries, sizes ",
-s "$filename.pag"," ",
-s "$filename.dir","\n";
sys... |
| Perl-Dist-1.16 | Config | show |
| tie %Config, 'Config', {
archlibexp => $prefix . '\\lib',
archname => 'MSWin32-x86-multi-thread',
cc => 'gcc',
d_readlink => undef,
d_symlink => undef,
dlsrc => 'dl_win32.xs',
dont_use_nlink => undef,
e... |
| Perl6-Classes-0.22 | Perl6::Classes | show |
| FILTER {
$_ = filter;
} |
| Perl6-Currying-0.05 | Perl6::Currying | show |
| FILTER_ONLY
executable => sub {
s<sub \s* ($name) \s* \( (.*?) \) \s* \{>
<sub $1 :Prototype($2) { my($2)=\@_;>gx;
s<sub \s* \( (.*?) \) \s* \{>
<sub ($1) { my($1)=\@_;>gx;
s{(&$name)\.prebind\(}
{Perl6::C... |
| Perl6-Export-0.07 | Perl6::Export | show |
| FILTER {
return unless /\S/;
my $real_import_name = '_import_'.md5_hex($_);
my $false_import_sub = false_import_sub($real_import_name);
my $real_import_sub = "";
s/ \b sub \s+ import \s* ([({]) /sub $real_import_name$1/x
or $real_import_sub = "su... |
| Perl6-Perldoc-0.000011 | Perl6::Perldoc | show |
| FILTER {
my @DATA;
s{ ($DATA_PAT) }{
my ($data_block, $contents) = ($1,$+);
# Special newline handling required under Windows...
if ($^O =~ /MSWin/) {
$contents =~ s{ \r\n }{\n}gxms;
}
# Save ... |
| Perl6-Placeholders-0.07 | Perl6::Placeholders | show |
| FILTER_ONLY
executable => sub {
s<(sub|sort|map|grep)?\s*(?=.*\$\^\w)\{($placeholder)\}> {
my ($context,$code) = ($1||"",$2);
my %vars;
... |
| Perl6-Pod-0.59 | Perl6::Pod | show |
| FILTER {
my @DATA;
s{ ($DATA_PAT) }{
my ($data_block, $contents) = ($1,$+);
# Special newline handling required under Windows...
if ($^O =~ /MSWin/) {
$contents =~ s{ \r\n }{\n}gxms;
}
# Save ... |
| Perl6-Pugs-6.2.13 | Perl6::MetaModel | show |
| sub _ {
my $attr = shift;
($::SELF != $::CLASS)
|| confess 'You cannot change an attribute in $::CLASS using this function';
($::CLASS->find_attribute_spec($attr))
|| confess "Attribute ($attr) is not a valid attribute for $... |
| Perl6-Pugs-6.2.13 | Perl::Cxt | show |
| type Perl::Cxt is CxtVoid | CxtItem | CxtSlurpy |
| Perl6-Pugs-6.2.13 | Filtered::Comments | show |
| Perl6-Pugs-6.2.13 | main | show |
| push @Grammar::Perl6::ops, Runtime::Perl5::RuleOps::compile_rule( 'infix\:\<\~\>' ) |
| Perl6-Pugs-6.2.13 | Pugs | show |
| - Introduction
- Documentation Index
- Compiler internals:
Compiler
Compiler::Perl6
Compiler::Rule
Compiler::YAML
Compiler::Perl5
Compiler::Parrot
- AST, Grammar, Optimizer internals:
AST::Perl6::API
Grammar::Perl6
Opti... |
| Perl6-Pugs-6.2.13 | Regexp::StructHook | show |
| eval <<'END' |
| Perl6-Variables-0.01 | Perl6::Variables | show |
| FILTER {
$DB::single=1;
my $text = "";
pos = 0;
while (pos($_)<length($_)) {
m/\G \$ ($ident) \.? \[ (?=$alist) /sxgc and
$text .= qq/\@{\$$1}[/ and next;
m/\G \$ ($ident) \.? \[ (?!$alist) /sxgc and
$text .= qq/\$$1\->[/ and next... |
| PerlX-Maybe-0.003 | PerlX::Maybe | show |
| __FILE__ |
| PerlX-Maybe-0.003 | Syntax::Feature::Maybe | show |
| __FILE__ |
| PerlX-Perform-0.005 | PerlX::Perform | show |
| __FILE__ |
| PerlX-Perform-0.005 | Syntax::Feature::Perform | show |
| __FILE__ |
| PerlX-QuoteOperator-Inescapable-0.001 | PerlX::QuoteOperator::Inescapable | show |
| __FILE__ |
| Perlanet-DBIx-Class-0.02 | Perlanet::DBIx::Class | show |
| method insert_post ($post)
{
$self->post_resultset->create_from_perlanet($post);
}
__PACKAGE__->meta->make_immutable |
| Perlanet-DBIx-Class-0.02 | Perlanet::DBIx::Class::Role::FeedResultSet | show |
| method fetch_feeds {
return [ map { $self->munge_feed_from_db($_) } $self->all ];
}
method munge_feed_from_db ($feed)
{
return Perlanet::Feed->new(
id => $feed->id,
url => $feed->url || $feed->lin... |
| Perlanet-DBIx-Class-0.02 | Perlanet::DBIx::Class::Role::PostResultSet | show |
| method create_from_perlanet ($post)
{
$self->create($self->munge_from_perlanet($post));
}
method munge_from_perlanet ($post)
{
return {
feed_id => $post->feed->id,
author => $post->_entry->author || $p... |
| Pipe-0.05 | Pipe | show |
| AUTOLOAD {
my ($self) = @_;
my $module = $AUTOLOAD;
$module =~ s/.*:://;
$module =~ s/=.*//;
my $class = "Pipe::Tube::" . ucfirst $module;
$self->logger("AUTOLOAD: '$AUTOLOAD', module: '$module', class: '$class'");
eval "us... |
| PkgConfig-0.05020 | PkgConfig::Vars | show |
| exit(0) |
| PlRPC-0.2020 | RPC::PlServer::Test | show |
| @RPC::PlServer::ISA = qw(Net::Daemon::Test) |
| Plack-App-PgREST-0.05 | Plack::App::PgREST | show |
| method select($param, $args) {
use Data::Dumper;
my $req = encode_json({
collection => $args->{collection},
l => n($param->get('l')),
sk => n($param->get('sk')),
c => n($param->get('c')),
... |
| Plack-Middleware-DBIC-QueryLog-0.05 | Maker | show |
| __PACKAGE__->run_if_script |
| Plack-Middleware-Debug-DBIC-QueryLog-0.09 | Maker | show |
| __PACKAGE__->run_if_script |
| Platform-Unix-0.001 | Platform::Unix | show |
| $ENV{PERL_PLATFORM_OVERRIDE}||($^O =~ /^(Linux|.*BSD.*|.*UNIX.*|Darwin|Solaris|SunOS|Haiku|Next|dec_osf|svr4|sco_sv|unicos.*|.*x)$/i) |
| Platform-Windows-0.001 | Platform::Windows | show |
| $ENV{PERL_PLATFORM_OVERRIDE}||($^O =~ /^(MSWin32|cygwin)$/i) |
| Plugin-Installer-0.04 | Plugin::Installer | show |
| AUTOLOAD
{
use Symbol;
use Scalar::Util;
my $obj = $_[0];
my ( $class, $name ) = $AUTOLOAD =~ m{^ (.+) :: (\w+) $ }x;
my %method_meta
= %{ $meta->{ $class } ||= $default_meta };
local $obj->{ install_meta } = \%meth... |
| Pod-Browser-1.0.1 | Pod::Browser | show |
| sub { __PACKAGE__->run( @_) } |
| Pod-POM-Web-PSGI-0.002 | Pod::POM::Web::PSGI | show |
| CGI::Emulate::PSGI->handler(sub {
Pod::POM::Web->handler
}) |
| PodSimplify-0.04 | Pod::Simplify | show |
| %Escape2ASCII = (
"lt" => "<",
"gt" => ">",
"amp" => "&",
"quot" => '"',
) |
| Poet-0.13 | Poet | show |
| method import ($class:) {
my $poet = Poet::Environment->current_env
or die "environment has not been initialized!";
$poet->importer->export_to_level( 1, @_ );
}
1 |
| Poet-0.13 | Poet::Cache | show |
| method initialize_caching () {
my $default_config =
{ defaults => { driver => 'File', root_dir => $poet->data_path("cache") } };
my $config = $conf->get_hash( 'cache' => $default_config );
__PACKAGE__->config($config... |
| Poet-0.13 | Poet::Server | show |
| method load_startup_modules () {
return if $loaded_startup_modules++;
foreach my $module ( @{ $conf->get_list('server.load_modules') } ) {
Class::MOP::load_class($module);
}
}
1 |
| Poet-0.13 | Poet::Script | show |
| method import ($pkg:) {
unless ( Poet::Environment->current_env ) {
my $root_dir = determine_root_dir();
my $poet = initialize_with_root_dir($root_dir);
}
Poet::Environment->current_env->importer->export_to_leve... |
| Poet-0.13 | Poet::Mason | show |
| method instance ($class:) {
$instance ||= $class->new();
$instance;
}
method new ($class:) {
return $class->SUPER::new( $class->get_options, @_ );
}
method get_options ($class:) {
my %defaults = (
cache_root_class => ... |
| Poet-0.13 | Poet::Log | show |
| method get_logger ($class: %params) {
my $category = $params{category} || caller();
return Log::Any->get_logger( category => $category );
}
method initialize_logging ($class:) {
if ( can_load('Log::Log4perl')
&& can_load('Log:... |
| Poet-0.13 | Poet::Import | show |
| method _build_valid_vars () {
my @provide_methods = grep { /^provide_var_/ } $self->meta->get_method_list;
return [ sort( map { substr( $_, 12 ) } @provide_methods ) ];
}
method _build_default_tags () {
return ['debug'];
}
method expor... |
| Poet-0.13 | Poet::Mason::Plugin::Request | show |
| method redirect () {
$self->res->redirect(@_);
$self->clear_and_abort();
}
method not_found () {
$self->clear_and_abort(404);
}
method session () {
$self->req->session;
}
method send_json ($data) {
$self->clear_... |
| Poet-0.13 | Poet::App::Command::new | show |
| method abstract () { "Create a new Poet installation" }
method description () { $description }
method usage_desc () { "poet new [-d dir] [-q] <AppName>" }
method _build_dir () {
return $self->app_name_to_dir( $self->app_name );
}
met... |
| Poet-0.13 | Poet::App::Command::script | show |
| method abstract () {
"Create a Poet script";
}
method usage_desc () {
return "poet script <script-name>";
}
method execute ($opt, $args) {
$self->usage_error("takes one argument (script name)") unless @$args == 1;
my ($path) = @... |
| Poet-0.13 | Poet::Environment::Generator | show |
| method generate_environment_directory ($class: %params) {
my $root_dir = $params{root_dir} or die "must specify root_dir";
my $app_name = $params{app_name} || basename($root_dir);
my $quiet = $params{quiet};
my $style = $params{style... |
| Pointer-0.11 | Pointer::int | show |
| const pack_template => 'i!' |
| Pointer-0.11 | Pointer::long | show |
| const sizeof => $Config{longsize} |
| Pointy-Counter-0.001 | Pointy::Counter | show |
| __FILE__ |
| PostScript-File-2.20 | PostScript::File::Functions | show |
| __PACKAGE__->_init_module(\*DATA) |
| PostScript-File-2.20 | PostScript::File::Metrics::std::Helvetica | show |
| $PostScript::File::Metrics::Metrics{'Helvetica'}{'std'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
278,278,355,556,556,889,667,222,333,333,389,584,278,333,278,278,
556,556,556,556,556,556,556,556,556,556,278,278,584,584,... |
| PostScript-File-2.20 | PostScript::File::Metrics::std::Courier | show |
| $PostScript::File::Metrics::Metrics{'Courier'}{'std'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,
600,600,600,600,600,600,600,600,600,600,600,600,600,600,60... |
| PostScript-File-2.20 | PostScript::File::Metrics::std::Helvetica
::BoldOblique | show |
| $PostScript::File::Metrics::Metrics{'Helvetica-BoldOblique'}{'std'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
278,333,474,556,556,889,722,278,333,333,389,584,278,333,278,278,
556,556,556,556,556,556,556,556,556,556,333,... |
| PostScript-File-2.20 | PostScript::File::Metrics::std::Helvetica
::Bold | show |
| $PostScript::File::Metrics::Metrics{'Helvetica-Bold'}{'std'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
278,333,474,556,556,889,722,278,333,333,389,584,278,333,278,278,
556,556,556,556,556,556,556,556,556,556,333,333,584... |
| PostScript-File-2.20 | PostScript::File::Metrics::std::Helvetica
::Oblique | show |
| $PostScript::File::Metrics::Metrics{'Helvetica-Oblique'}{'std'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
278,278,355,556,556,889,667,222,333,333,389,584,278,333,278,278,
556,556,556,556,556,556,556,556,556,556,278,278,... |
| PostScript-File-2.20 | PostScript::File::Metrics::std::Courier::BoldOblique | show |
| $PostScript::File::Metrics::Metrics{'Courier-BoldOblique'}{'std'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,
600,600,600,600,600,600,600,600,600,600,600,60... |
| PostScript-File-2.20 | PostScript::File::Metrics::std::Courier::Bold | show |
| $PostScript::File::Metrics::Metrics{'Courier-Bold'}{'std'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,
600,600,600,600,600,600,600,600,600,600,600,600,600,6... |
| PostScript-File-2.20 | PostScript::File::Metrics::std::Courier::Oblique | show |
| $PostScript::File::Metrics::Metrics{'Courier-Oblique'}{'std'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,
600,600,600,600,600,600,600,600,600,600,600,600,60... |
| PostScript-File-2.20 | PostScript::File::Metrics::std::Times::Roman | show |
| $PostScript::File::Metrics::Metrics{'Times-Roman'}{'std'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
250,333,408,500,500,833,778,333,333,333,500,564,250,333,250,278,
500,500,500,500,500,500,500,500,500,500,278,278,564,56... |
| PostScript-File-2.20 | PostScript::File::Metrics::std::Times::BoldItalic | show |
| $PostScript::File::Metrics::Metrics{'Times-BoldItalic'}{'std'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
250,389,555,500,500,833,778,333,333,333,500,570,250,333,250,278,
500,500,500,500,500,500,500,500,500,500,333,333,5... |
| PostScript-File-2.20 | PostScript::File::Metrics::std::Times::Bold | show |
| $PostScript::File::Metrics::Metrics{'Times-Bold'}{'std'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
250,333,555,500,500,1000,833,333,333,333,500,570,250,333,250,278,
500,500,500,500,500,500,500,500,500,500,333,333,570,57... |
| PostScript-File-2.20 | PostScript::File::Metrics::std::Times::Italic | show |
| $PostScript::File::Metrics::Metrics{'Times-Italic'}{'std'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
250,333,420,500,500,833,778,333,333,333,500,675,250,333,250,278,
500,500,500,500,500,500,500,500,500,500,333,333,675,6... |
| PostScript-File-2.20 | PostScript::File::Metrics::cp1252::Helvetica | show |
| $PostScript::File::Metrics::Metrics{'Helvetica'}{'cp1252'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,278,333,333,333,0,0,0,0,0,0,0,0,0,0,0,
278,278,355,556,556,889,667,222,333,333,389,584,278,584,278,278,
556,556,556,556,556,556,556,556,556,556,278,2... |
| PostScript-File-2.20 | PostScript::File::Metrics::cp1252::Courier | show |
| $PostScript::File::Metrics::Metrics{'Courier'}{'cp1252'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,600,600,600,600,0,0,0,0,0,0,0,0,0,0,0,
600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,
600,600,600,600,600,600,600,600,600,600,600,600... |
| PostScript-File-2.20 | PostScript::File::Metrics::cp1252::Helvetica
::BoldOblique | show |
| $PostScript::File::Metrics::Metrics{'Helvetica-BoldOblique'}{'cp1252'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,278,333,333,333,0,0,0,0,0,0,0,0,0,0,0,
278,333,474,556,556,889,722,278,333,333,389,584,278,584,278,278,
556,556,556,556,556,556,556,556,5... |
| PostScript-File-2.20 | PostScript::File::Metrics::cp1252::Helvetica
::Bold | show |
| $PostScript::File::Metrics::Metrics{'Helvetica-Bold'}{'cp1252'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,278,333,333,333,0,0,0,0,0,0,0,0,0,0,0,
278,333,474,556,556,889,722,278,333,333,389,584,278,584,278,278,
556,556,556,556,556,556,556,556,556,556,... |
| PostScript-File-2.20 | PostScript::File::Metrics::cp1252::Helvetica
::Oblique | show |
| $PostScript::File::Metrics::Metrics{'Helvetica-Oblique'}{'cp1252'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,278,333,333,333,0,0,0,0,0,0,0,0,0,0,0,
278,278,355,556,556,889,667,222,333,333,389,584,278,584,278,278,
556,556,556,556,556,556,556,556,556,5... |
| PostScript-File-2.20 | PostScript::File::Metrics::cp1252::Courier
::BoldOblique | show |
| $PostScript::File::Metrics::Metrics{'Courier-BoldOblique'}{'cp1252'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,600,600,600,600,0,0,0,0,0,0,0,0,0,0,0,
600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,
600,600,600,600,600,600,600,600,600... |
| PostScript-File-2.20 | PostScript::File::Metrics::cp1252::Courier
::Bold | show |
| $PostScript::File::Metrics::Metrics{'Courier-Bold'}{'cp1252'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,600,600,600,600,0,0,0,0,0,0,0,0,0,0,0,
600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,
600,600,600,600,600,600,600,600,600,600,60... |
| PostScript-File-2.20 | PostScript::File::Metrics::cp1252::Courier
::Oblique | show |
| $PostScript::File::Metrics::Metrics{'Courier-Oblique'}{'cp1252'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,600,600,600,600,0,0,0,0,0,0,0,0,0,0,0,
600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,
600,600,600,600,600,600,600,600,600,600... |
| PostScript-File-2.20 | PostScript::File::Metrics::cp1252::Times::Roman | show |
| $PostScript::File::Metrics::Metrics{'Times-Roman'}{'cp1252'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,278,333,333,333,0,0,0,0,0,0,0,0,0,0,0,
250,333,408,500,500,833,778,333,333,333,500,564,250,564,250,278,
500,500,500,500,500,500,500,500,500,500,278... |
| PostScript-File-2.20 | PostScript::File::Metrics::cp1252::Times::BoldItalic | show |
| $PostScript::File::Metrics::Metrics{'Times-BoldItalic'}{'cp1252'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,278,333,333,333,0,0,0,0,0,0,0,0,0,0,0,
250,389,555,500,500,833,778,333,333,333,500,570,250,606,250,278,
500,500,500,500,500,500,500,500,500,50... |
| PostScript-File-2.20 | PostScript::File::Metrics::cp1252::Times::Bold | show |
| $PostScript::File::Metrics::Metrics{'Times-Bold'}{'cp1252'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,278,333,333,333,0,0,0,0,0,0,0,0,0,0,0,
250,333,555,500,500,1000,833,333,333,333,500,570,250,570,250,278,
500,500,500,500,500,500,500,500,500,500,333... |
| PostScript-File-2.20 | PostScript::File::Metrics::cp1252::Times::Italic | show |
| $PostScript::File::Metrics::Metrics{'Times-Italic'}{'cp1252'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,278,333,333,333,0,0,0,0,0,0,0,0,0,0,0,
250,333,420,500,500,833,778,333,333,333,500,675,250,675,250,278,
500,500,500,500,500,500,500,500,500,500,33... |
| PostScript-File-2.20 | PostScript::File::Metrics::sym::Symbol | show |
| $PostScript::File::Metrics::Metrics{'Symbol'}{'sym'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
250,333,713,500,549,833,778,439,333,333,500,549,250,549,250,278,
500,500,500,500,500,500,500,500,500,500,278,278,549,549,549... |
| PostScript-File-2.20 | PostScript::File::Metrics::iso_8859_1::Helvetica | show |
| $PostScript::File::Metrics::Metrics{'Helvetica'}{'iso-8859-1'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
278,278,355,556,556,889,667,222,333,333,389,584,278,584,278,278,
556,556,556,556,556,556,556,556,556,556,278,278,5... |
| PostScript-File-2.20 | PostScript::File::Metrics::iso_8859_1::Courier | show |
| $PostScript::File::Metrics::Metrics{'Courier'}{'iso-8859-1'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,
600,600,600,600,600,600,600,600,600,600,600,600,600... |
| PostScript-File-2.20 | PostScript::File::Metrics::iso_8859_1::Helvetica
::BoldOblique | show |
| $PostScript::File::Metrics::Metrics{'Helvetica-BoldOblique'}{'iso-8859-1'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
278,333,474,556,556,889,722,278,333,333,389,584,278,584,278,278,
556,556,556,556,556,556,556,556,556,5... |
| PostScript-File-2.20 | PostScript::File::Metrics::iso_8859_1::Helvetica
::Bold | show |
| $PostScript::File::Metrics::Metrics{'Helvetica-Bold'}{'iso-8859-1'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
278,333,474,556,556,889,722,278,333,333,389,584,278,584,278,278,
556,556,556,556,556,556,556,556,556,556,333,... |
| PostScript-File-2.20 | PostScript::File::Metrics::iso_8859_1::Helvetica
::Oblique | show |
| $PostScript::File::Metrics::Metrics{'Helvetica-Oblique'}{'iso-8859-1'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
278,278,355,556,556,889,667,222,333,333,389,584,278,584,278,278,
556,556,556,556,556,556,556,556,556,556,2... |
| PostScript-File-2.20 | PostScript::File::Metrics::iso_8859_1::Courier
::BoldOblique | show |
| $PostScript::File::Metrics::Metrics{'Courier-BoldOblique'}{'iso-8859-1'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,
600,600,600,600,600,600,600,600,600,600... |
| PostScript-File-2.20 | PostScript::File::Metrics::iso_8859_1::Courier
::Bold | show |
| $PostScript::File::Metrics::Metrics{'Courier-Bold'}{'iso-8859-1'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,
600,600,600,600,600,600,600,600,600,600,600,60... |
| PostScript-File-2.20 | PostScript::File::Metrics::iso_8859_1::Courier
::Oblique | show |
| $PostScript::File::Metrics::Metrics{'Courier-Oblique'}{'iso-8859-1'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,
600,600,600,600,600,600,600,600,600,600,600... |
| PostScript-File-2.20 | PostScript::File::Metrics::iso_8859_1::Times
::Roman | show |
| $PostScript::File::Metrics::Metrics{'Times-Roman'}{'iso-8859-1'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
250,333,408,500,500,833,778,333,333,333,500,564,250,564,250,278,
500,500,500,500,500,500,500,500,500,500,278,278... |
| PostScript-File-2.20 | PostScript::File::Metrics::iso_8859_1::Times
::BoldItalic | show |
| $PostScript::File::Metrics::Metrics{'Times-BoldItalic'}{'iso-8859-1'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
250,389,555,500,500,833,778,333,333,333,500,570,250,606,250,278,
500,500,500,500,500,500,500,500,500,500,33... |
| PostScript-File-2.20 | PostScript::File::Metrics::iso_8859_1::Times
::Bold | show |
| $PostScript::File::Metrics::Metrics{'Times-Bold'}{'iso-8859-1'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
250,333,555,500,500,1000,833,333,333,333,500,570,250,570,250,278,
500,500,500,500,500,500,500,500,500,500,333,333... |
| PostScript-File-2.20 | PostScript::File::Metrics::iso_8859_1::Times
::Italic | show |
| $PostScript::File::Metrics::Metrics{'Times-Italic'}{'iso-8859-1'} = [
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
250,333,420,500,500,833,778,333,333,333,500,675,250,675,250,278,
500,500,500,500,500,500,500,500,500,500,333,33... |
| Prima-1.36 | Round3D | show |
| Prima::Themes::register( 'Prima::themes::round3d', 'round3d', [
'Prima::Button' => \%wrap_paint,
'Prima::ScrollBar' => \%wrap_paint,
'Prima::InputLine' => \%wrap_paint,
],
) |
| Prima-1.36 | Prima::themes::sysimage | show |
| Prima::Themes::register( 'Prima::themes::sysimage', 'sysimage-standard', undef, undef, \&install) |
| Prima-1.36 | Prima::Themes::color | show |
| Prima::Themes::register( 'Prima::themes::color', 'gray', ['Prima::Widget' => 0xFFFFFF], \&merger) |
| Primeval-0.02 | Primeval | show |
| __PACKAGE__ if 'first require' |
| Progress-PV-0.02 | Progress::PV | show |
| *pr = \&showprogress |
| Qt-0.96.0 | NorwegianWoodStyle | show |
| void NorwegianWoodStyle::drawControl(ControlElement element,
const Qt::StyleOption *option,
Qt::Painter *painter,
const Qt::Widget *widget) cons... |
| R-YapRI-0.08 | R::YapRI | show |
| $VERSION = eval $VERSION |
| RCGI-1.20 | RCGI::Config | show |
| $path = '/usr/rcgi' |
| RDBAL-1.2 | RDBAL::Config | show |
| %middle_module = (
'Pg' => 'Pg',
'ApacheSybaseDBlib' => 'Apache::Sybase::DBlib',
'SybaseDBlib' => 'Sybase::DBlib',
'ODBC' => 'Win32::ODBC',
'dbi:' => 'DBI'
) |
| RDF-QueryX-Lazy-0.002 | RDF::QueryX::Lazy | show |
| TRUE |
| RMI-0.10 | RMI::Server::ForkedPipes | show |
| RMI::Node::_mk_ro_accessors(__PACKAGE__,'peer_pid') |
| RPM-Header-PurePerl-1.0.2 | RPM::Header::PurePerl::Tagtable | show |
| Reaction-0.002005 | Reaction::InterfaceModel::Search::Spec | show |
| method from_string ($class: $string, $other) {
my %raw = %{from_json($string)};
my %val;
@val{keys %raw} = map {
$class->_from_string_unpack_value($_, $raw{$_})
} keys %raw;
return $class->new({ %val, %{$other||{}} });
}
1 |
| Reaction-0.002005 | Reaction::InterfaceModel::Search::UpdateSpec | show |
| method do_apply () {
my $data = $self->parameter_hashref;
my $spec = $self->target_model;
foreach my $name (keys %$data) {
if (length(my $value = $data->{$name})) {
$spec->$name($value);
} else {
$spec->${\"clear_$... |
| Real-Handy-0.17 | Real::Handy::NoConfig | show |
| @ISA = 'Real::Handy' |
| Real-Handy-0.17 | Real::Handy::File | show |
| clean_namespace |
| Ref-Store-0.20 | Ref::Store::ThreadUtil::OldLookups | show |
| push @EXPORT, qw(hr_thrutil_store_kinfo hr_thrutil_get_kinfo) |
| Reflex-0.098 | Reflex::Role::PidCatcher | show |
| role {
my $p = shift;
my $att_active = $p->att_active();
my $att_pid = $p->att_pid();
my $cb_exit = $p->cb_exit();
requires $att_active, $att_pid, $cb_exit;
my $method_start = $p->method_start();
my $method_stop = $... |
| Reflex-0.098 | Reflex::Role::SigCatcher | show |
| role {
my $p = shift;
my $att_signal = $p->att_signal();
my $att_active = $p->att_active();
my $cb_signal = $p->cb_signal();
requires $att_signal, $att_active, $cb_signal;
my $method_start = $p->method_start();
my $method_... |
| Regexp-Fields-0.046 | Regexp::Fields::tie | show |
| tie %{&}, __PACKAGE__ |
| Regexp-HTMLify-0.002 | Regexp::HTMLify | show |
| _init() |
| Relations-0.95 | Relations | show |
| $Relations::VERSION |
| Relations-Abstract-0.94 | Relations::Abstract | show |
| $Relations::Abstract::VERSION |
| Relations-Display-0.92 | Relations::Display | show |
| $Relations::Display::VERSION |
| Relations-Display-0.92 | Relations::Display::Table | show |
| $Relations::Display::Table::VERSION |
| Relations-Family-0.94 | Relations::Family | show |
| $Relations::Family::VERSION |
| Relations-Family-0.94 | Relations::Family::Member | show |
| $Relations::Family::Member::VERSION |
| Relations-Family-0.94 | Relations::Family::Lineage | show |
| $Relations::Family::Lineage::VERSION |
| Relations-Family-0.94 | Relations::Family::Rivalry | show |
| $Relations::Family::Rivalry::VERSION |
| Relations-Family-0.94 | Relations::Family::Value | show |
| $Relations::Family::Value::VERSION |
| Relations-Query-0.93 | Relations::Query | show |
| $Relations::Query::VERSION |
| Religion-Bible-Regex-Reference-0.95 | Religion::Bible::Regex::Reference | show |
| sub v2 { shift->{'reference'}{'data'}{'v2'}; }
sub ob { shift->{'reference'}{'original'}{'b'}; }
sub ob2 { shift->{'reference'}{'original'}{'b2'}; }
sub oc { shift->{'reference'}{'original'}{'c'}; }
sub oc2 { shift->{'reference... |
| Role-Subsystem-0.101340 | Role::Subsystem | show |
| role {
my ($p) = @_;
my $what = $p->what;
my $ident = $p->ident;
my $what_id = $p->what_id;
my $getter = $p->getter;
my $id_method = $p->id_method;
my $weak_ref = $p->weak_ref;
my $w_pred = "has_initi... |
| Rubyish-0.32 | Rubyish::Enumerable | show |
| def to_a {
my @arr;
$self->each(sub { push @arr, $_[0] });
return Rubyish::Array->new(\@arr);
}
1 |
| RunApp-0.13 | RunApp::Control | show |
| AUTOLOAD {
our $AUTOLOAD;
my ($cmd) = $AUTOLOAD =~ m/:?(\w+)$/;
return unless $cmd =~ m/[a-z]/;
my $self = shift;
$self->dispatch ($cmd, @_);
}
sub dispatch {
die "This must be implemented by child.";
}
1 |
| Runops-Optimized-0.02 | Runops::Optimized | show |
| XSLoader::load "Runops::Optimized", $VERSION |
| SDL-OpenGL-Cg-0.01 | SDL::OpenGL::Cg | show |
| XSLoader::load('SDL::OpenGL::Cg', $VERSION) |
| SDL-sdlpl-1.08 | SDL::App | show |
| DESTROY
{
my $self=shift;
SDL::sdlpl::sdl_fini();
}
sub init_mode
{
my $self=shift;
$self->video_mode($self->{width},
$self->{height},
$self->{depth},
$self->{flags},
);
}
sub title
{
... |
| SDL-sdlpl-1.08 | SDL::OpenGL::App | show |
| DESTROY
{
my $self=shift;
}
sub add_startup_parameter
{
my $self=shift;
my %param_info=@_;
my $name =$param_info{NAME};
my $type =$param_info{TYPE};
my $var_ref =$param_info{VAR};
my $help_str=$param_info{HELP};
$... |
| SIL-Shoe-1.37 | SIL::Shoe | show |
| $VERSION = 1.37 |
| SNMP-Util-1.8 | SNMP::Util_env | show |
| $ENV{'MIBDIRS'} = '/usr/local/lib/share/snmp/mibs' |
| SOAP-AutoInvoke-0.25 | SOAP::Transport::HTTP::AutoInvoke::Client | show |
| DESTROY
{
$_[0] = undef;
}
sub AUTOLOAD
{
my($self) = shift;
my($method) = ($AUTOLOAD =~ /::([^:]+)$/);
return unless ($method);
return $self->_soap_get_set_args ( $method, @_ )
if ( $method =~ "^_soap_" );
... |
| SOAP-AutoInvoke-0.25 | SOAP::Transport::ActiveWorks::AutoInvoke::Client | show |
| DESTROY
{
$_[0] = undef;
}
sub AUTOLOAD
{
my($self) = shift;
my($method) = ($AUTOLOAD =~ /::([^:]+)$/);
return unless ($method);
return $self->_soap_get_set_args ( $method, @_ )
if ( $method =~ "^_soap_" );
$... |
| SQL-Exec-0.09 | SQL::Exec::Mapper | show |
| table client => {
} |
| SRS-EPP-Proxy-0.21 | SRS::EPP::Packets | show |
| method input_event( Str $data? ) {
$self->log_trace(
"input event: "
.(defined($data)?length($data)." byte(s)":"will read")
);
if ( defined $data and $data ne "") {
push @{ $self->input_buffer }, $data;
}
my $ready = $self->... |
| SRS-EPP-Proxy-0.21 | SRS::EPP::OpenPGP | show |
| method verify_detached(Str $data, Str $signature, :$cert, :$key_text) {
if ( $key_text ) {
$cert ||= $self->get_cert_from_key_text($key_text);
}
my $pgp = $self->pgp;
my $res = $pgp->verify(
Data => byte_string($data),
Signature =>... |
| SRS-EPP-Proxy-0.21 | SRS::EPP::Session | show |
| method shutdown() {
$self->log_info( "shutting down session" );
$self->state("Shutting down");
$self->stalled(1);
$self->shutting_down(1);
$self->yield("output_event");
}
method input_timeout() {
$self->shutdown;
}
method do_clos... |
| SRS-EPP-Proxy-0.21 | SRS::EPP::Proxy::Listener | show |
| method init() {
my @sockets;
for my $addr ( @{ $self->listen } ) {
my ($hostname, $port) = $addr =~
m{^(?|\[([^]]+)\]|([^:]+))(?::(\d+))?$}
or die "bad listen address: $addr";
$port ||= EPP_DEFAULT_LOCAL_PORT;
my @addr = resolve($host... |
| SRS-EPP-Proxy-0.21 | SRS::EPP::Proxy::UA | show |
| method loop() {
$SIG{TERM} = sub { exit(0) };
while ( 1 ) {
$self->log_trace("UA waiting for request");
$0 = __PACKAGE__." - idle";
my $request = eval { fd_retrieve($self->read_fh) }
or do {
last;
};
$self->log_debug("sending ... |
| SRS-EPP-Proxy-0.21 | SRS::EPP::Command::Logout | show |
| method process( SRS::EPP::Session $session ) {
$session->shutdown;
$self->make_response(code => 1500);
}
1 |
| SRS-EPP-Proxy-0.21 | SRS::EPP::Command::Poll | show |
| method process( SRS::EPP::Session $session ) {
$self->session($session);
my $epp = $self->message;
my $message = $epp->message;
my $op = $message->argument->op;
if ( $op eq "req" ) {
return XML::SRS::GetMessages->new(
... |
| SRS-EPP-Proxy-0.21 | SRS::EPP::Command::Hello | show |
| method process( SRS::EPP::Session $session ) {
$self->make_response("Greeting");
}
1 |
| SRS-EPP-Proxy-0.21 | SRS::EPP::Command::Info::Domain | show |
| method process( SRS::EPP::Session $session ) {
$self->session($session);
my $epp = $self->message;
my $payload = $epp->message->argument->payload;
if ( $payload->has_auth_info ) {
return $self->make_response(c... |
| SRS-EPP-Proxy-0.21 | SRS::EPP::Command::Info::Contact | show |
| method notify( SRS::EPP::SRSResponse @rs ) {
my $message = $rs[0]->message;
my $response = $message->response;
if ( $self->code ) {
return $self->make_response(code => $self->code);
}
unless ( $response ) {
... |
| SRS-EPP-Proxy-0.21 | SRS::EPP::Command::Transfer::Domain | show |
| method process( SRS::EPP::Session $session ) {
$self->session($session);
my $epp = $self->message;
my $message = $epp->message;
my $payload = $message->argument->payload;
my $op = $message->argument->op;
if ( $op eq "re... |
| SRS-EPP-Proxy-0.21 | SRS::EPP::Command::Transfer::Contact | show |
| method process( SRS::EPP::Session $session ) {
return $self->make_response(code => 2106);
}
1 |
| SRS-EPP-Proxy-0.21 | SRS::EPP::Command::Create::Domain | show |
| method process( SRS::EPP::Session $session ) {
$self->session($session);
my $epp = $self->message;
my $message = $epp->message;
my $payload = $message->argument->payload;
my $contacts = $payload->contact;
my $... |
| SRS-EPP-Proxy-0.21 | SRS::EPP::Command::Create::Contact | show |
| method process( SRS::EPP::Session $session ) {
$self->session($session);
my $epp = $self->message;
my $message = $epp->message;
my $payload = $message->argument->payload;
my $epp_postal_info = $payload->postal_info();
if (... |
| SRS-EPP-Proxy-0.21 | SRS::EPP::Command::Delete::Domain | show |
| method process( SRS::EPP::Session $session ) {
$self->session($session);
my $epp = $self->message;
my $message = $epp->message;
my $payload = $message->argument->payload;
my $action_id = $message->client_id || sprint... |
| SRS-EPP-Proxy-0.21 | SRS::EPP::Command::Delete::Contact | show |
| method process( SRS::EPP::Session $session ) {
$self->session($session);
my $epp = $self->message;
my $message = $epp->message;
my $payload = $message->argument->payload;
my $action_id = $message->client_id || sprint... |
| SRS-EPP-Proxy-0.21 | SRS::EPP::Command::Check::Contact | show |
| method notify( SRS::EPP::SRSResponse @rs ) {
$self->avail({ map { $_->message->response->handle_id => 1 } grep { $_->message->response } @rs });
my $epp = $self->message;
my $payload = $epp->message->argument->... |
| SRS-EPP-Proxy-0.21 | SRS::EPP::Command::Renew::Domain | show |
| method notify( SRS::EPP::SRSResponse @rs ) {
my $epp = $self->message;
my $eppMessage = $epp->message;
my $eppPayload = $eppMessage->argument->payload;
my $message = $rs[0]->message;
my $response = $message->response;
if ( ... |
| SRS-EPP-Proxy-0.21 | SRS::EPP::Session::BackendQ | show |
| method queue_size() {
sum 0, map { scalar @$_ } @{$self->queue};
}
method queue_flat() {
map { @$_ } @{$self->queue};
}
method backend_next( Int $how_many = 1 ) {
return unless $how_many;
my $sent = $self->sent;
my $waiting = $self->queu... |
| SRS-EPP-Proxy-0.21 | SRS::EPP::Session::CmdQ | show |
| method next_command() {
my $q = $self->queue;
my $next = $self->next;
if ( my $item = $q->[$next] ) {
$self->add_next(1);
return $item;
}
else {
();
}
}
method commands_queued() {
my $q = $self->queue;
return scalar(@$q);
}
... |
| Schedule-DRMAAc-0.81 | Schedule::DRMAAc | show |
| %EXPORT_TAGS = ( all => [ @EXPORT_OK ] ) |
| SelfLoader-1.20 | SelfLoader | show |
| AUTOLOAD {
our $AUTOLOAD;
print STDERR "SelfLoader::AUTOLOAD for $AUTOLOAD\n" if DEBUG;
my $SL_code = $Cache{$AUTOLOAD};
my $save = $@;
unless ($SL_code) {
$AUTOLOAD =~ m/^(.*)::/;
SelfLoader->_load_stubs($1) unless... |
| Shishi-Prototype-0.4 | Shishi | show |
| @Shishi::EXPORT_OK = qw( ACTION_FINISH ACTION_REDUCE ACTION_CODE
ACTION_SHIFT ACTION_CONTINUE ACTION_FAIL) |
| Simulation-Automate-1.0.1 | Simulation::Automate::Dictionary | show |
| %Simulation::Automate::Dictionary::make_nice=(
_BUFTYPE => {
title=>'Buffer type',
0=>'Adjustable',
1=>'Fixed-length',
2=>'Multi-exit',
},
_TRAFDIST => {
title=>'Packet gap dist.',
0=>'Poisson',
... |
| Simulation-Automate-1.0.1 | Simulation::Automate::PostProcessors | show |
| print "Loaded plugin show_source\n" |
| Smil-0.898 | SMIL::TimelineBase | show |
| @timelineAttributes = ( "id", "begin", "endsync", "end", "repeat" ) |
| Smil-0.898 | SMIL::MediaAttributes | show |
| @mediaAttributes = ( @timeAtts, @systemSwitchAttributes,
"fill", "src", "region", "id", "transition" ) |
| Smil-0.898 | SMIL::SystemSwitches | show |
| @systemSwitchAttributes = ( "system-bitrate",
"system-required",
"system-language" ) |
| Smil-0.898 | QT | show |
| $CHAPTER_ALL = 'all' |
| Spoon-0.24 | Spoon::Registry | show |
| field wafl => {} |
| Spork-0.21 | Spork | show |
| const config_class => 'Spork::Config' |
| Spork-0.21 | Spork::Plugin | show |
| field formatter => {},-init => '$self->hub->formatter' |
| Spork-S5-0.05 | Spork::S5Theme | show |
| const class_id => 'theme' |
| Spread-Messaging-0.03 | Spread::Messaging::Transport | show |
| DESTROY {
my ($self) = @_;
Spread::disconnect($self->{mailbox}) if defined $self->{mailbox};
}
sub _decode_reg_memb_mess {
my ($self, $service_type, $message) = @_;
my @data;
if (($service_type & CAUSED_BY_JOIN) ||
... |
| Spread-Session-0.4 | Spread::Session | show |
| DESTROY {
my $self = shift;
Spread::disconnect($self->{MAILBOX});
sslog "Spread session $self->{PRIVATE_GROUP} disconnected\n";
}
1 |
| Storm-0.200 | Storm::Flood::Plan | show |
| plan 'TIMs::Model::Employee' => (
first_name => FirstName,
last_name => SurName,
hire_date => 'TIMs::Model::Hire',
term_date => sub {
int ( rand time % 2);
}
) |
| Storm-0.200 | Storm::SQL::Fragment::Where::SubgroupStart | show |
| __PACKAGE__->meta()->make_immutable() |
| String-Canonical-1.2 | String::Canonical | show |
| %yx = (
"������������" => "a",
"��������" => "e",
"��������" => "i",
"����������" => "o",
"��������" => "u",
"����������������"
=> "aaooccnnddddyyyy",
) |
| String-Multibyte-1.10 | String::Multibyte::EUC_TW | show |
| +{
charset => 'EUC-TW',
regexp => '(?:[\x00-\x7F]|[\xA1-\xFE][\xA1-\xFE]|' .
'\x8E[\xA1-\xB0][\xA1-\xFE][\xA1-\xFE])',
cmpchar => sub {
length($_[0]) <=> length($_[1]) || $_[0] cmp $_[1];
},
nextchar => sub {
... |
| String-Multibyte-1.10 | String::Multibyte::Johab | show |
| +{
charset => 'Johab',
regexp => '(?:[\x00-\x7F]|[\xD8-\xDE\xE0-\xF9][\x31-\x7E\x91-\xFE]|'
. '\x84[\x44\x46\x47\x4A-\x50\x54\x61\x81\xA1\xC1\xE1]|'
. '[\x85\x86][\x41\x61\x81\xA1\xC1\xE1]|\x87[\x41\x61\x81\xA1]|'
. '[\x88\x8C\x90\x94... |
| String-Multibyte-1.10 | String::Multibyte::Bytes | show |
| +{
charset => 'bytes',
regexp => $] >= 5.006 ? '\C' : '[\x00-\xFF]',
nextchar =>
sub {
my $c = unpack('C', shift);
$c == 0xFF ? undef : pack('C', 1+$c);
},
cmpchar => sub { $_[0] cmp $_[1] },
} |
| String-Multibyte-1.10 | String::Multibyte::GBK | show |
| +{
charset => 'GBK',
regexp => '(?:[\x00-\x80]|[\x81-\xFE][\x40-\x7E\x80-\xFE])',
cmpchar => sub { $_[0] cmp $_[1] },
nextchar => sub {
my $ch = shift;
my $len = length $ch;
if ($len == 1) {
return $ch eq "\x80"
... |
| String-Multibyte-1.10 | String::Multibyte::Big5 | show |
| +{
charset => 'Big-5',
regexp => '(?:[\x00-\x7F]|[\x81-\xFE][\x40-\x7E\xA1-\xFE])',
cmpchar => sub { $_[0] cmp $_[1] },
nextchar => sub {
my $ch = shift;
my $len = length $ch;
if ($len < 1 || 2 < $len) {
ret... |
| String-Multibyte-1.10 | String::Multibyte::EUC | show |
| +{
charset => 'EUC',
regexp => '(?:[\x00-\x7F]|[\xA1-\xFE][\xA1-\xFE])',
cmpchar => sub { $_[0] cmp $_[1] },
nextchar => sub {
my $ch = shift;
my $len = length $ch;
if ($len < 1 || 2 < $len) {
return undef;
... |
| String-Multibyte-1.10 | String::Multibyte::UTF16LE | show |
| +{
charset => 'UTF-16LE',
regexp => '(?:[\x00-\xFF][\xD8-\xDB][\x00-\xFF][\xDC-\xDF]|' .
'[\x00-\xFF][\x00-\xD7\xE0-\xFF])',
cmpchar => sub {
length($_[0]) <=> length($_[1]) ||
unpack('v', $_[0]) <=> unpack('v', $_... |
| String-Multibyte-1.10 | String::Multibyte::UTF8 | show |
| +{
charset => 'UTF-8',
regexp => '(?:[\x00-\x7F]|[\xC2-\xDF][\x80-\xBF]|' .
'\xE0[\xA0-\xBF][\x80-\xBF]|\xED[\x80-\x9F][\x80-\xBF]|' .
'[\xE1-\xEC\xEE\xEF][\x80-\xBF][\x80-\xBF]|' .
'\xF0[\x90-\xBF][\x80-\xBF][\x80-\xBF]|' .
'[\xF1-\... |
| String-Multibyte-1.10 | String::Multibyte::UHC | show |
| +{
charset => 'UHC',
regexp => '(?:[\x00-\x7F]|[\x81-\xC5][\x41-\x5A\x61-\x7A\x81-\xFE]|'
. '\xC6[\x41-\x52\xA1-\xFE]|[\xC7-\xFE][\xA1-\xFE])',
cmpchar => sub { $_[0] cmp $_[1] },
nextchar => sub {
my $ch = shift;
my... |
| String-Multibyte-1.10 | String::Multibyte::ShiftJIS | show |
| +{
charset => 'Shift-JIS',
regexp => '(?:[\x00-\x7F\xA1-\xDF]|' .
'[\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC])',
cmpchar => sub {
length($_[0]) <=> length($_[1]) || $_[0] cmp $_[1];
},
nextchar => sub {
my $ch ... |
| String-Multibyte-1.10 | String::Multibyte::Big5Plus | show |
| +{
charset => 'Big-5 Plus',
regexp => '(?:[\x00-\x7F]|[\x81-\xFE][\x40-\x7E\x80-\xFE])',
cmpchar => sub { $_[0] cmp $_[1] },
nextchar => sub {
my $ch = shift;
my $len = length $ch;
if ($len < 1 || 2 < $len) {
... |
| String-Multibyte-1.10 | String::Multibyte::UTF32BE | show |
| +{
charset => 'UTF-32BE',
regexp => '(?:\x00\x00[\x00-\xD7\xE0-\xFF][\x00-\xFF]|'
. '\x00[\x01-\x10][\x00-\xFF][\x00-\xFF])',
cmpchar => sub { $_[0] cmp $_[1] },
nextchar => sub {
my $u = unpack('N', $_[0]);
return i... |
| String-Multibyte-1.10 | String::Multibyte::Grapheme | show |
| +{
charset => 'Default Grapheme Cluster',
regexp => $Grapheme,
} |
| String-Multibyte-1.10 | String::Multibyte::EUC_JP | show |
| +{
charset => 'EUC-JP',
regexp => '(?:[\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|' .
'\x8F[\xA1-\xFE][\xA1-\xFE])',
cmpchar => sub {
length($_[0]) <=> length($_[1]) || $_[0] cmp $_[1];
},
nextchar => sub {
my $ch... |
| String-Multibyte-1.10 | String::Multibyte::GB18030 | show |
| +{
charset => 'GB18030',
regexp => '(?:[\x00-\x80]|[\x81-\xFE][\x40-\x7E\x80-\xFE]|'
. '[\x81-\xFE][\x30-\x39][\x81-\xFE][\x30-\x39])',
cmpchar => sub {
length($_[0]) <=> length($_[1]) || $_[0] cmp $_[1];
},
next... |
| String-Multibyte-1.10 | String::Multibyte::UTF16BE | show |
| +{
charset => 'UTF-16BE',
regexp => '(?:[\xD8-\xDB][\x00-\xFF][\xDC-\xDF][\x00-\xFF]|' .
'[\x00-\xD7\xE0-\xFF][\x00-\xFF])',
cmpchar => sub {
length($_[0]) <=> length($_[1]) || $_[0] cmp $_[1];
},
nextchar => ... |
| String-Multibyte-1.10 | String::Multibyte::UTF32LE | show |
| +{
charset => 'UTF-32LE',
regexp => '(?:[\x00-\xFF][\x00-\xD7\xE0-\xFF]\x00\x00|'
. '[\x00-\xFF][\x00-\xFF][\x01-\x10]\x00)',
cmpchar => sub { unpack('V', $_[0]) <=> unpack('V', $_[1]) },
nextchar => sub {
my $u... |
| String-Multibyte-1.10 | String::Multibyte::Unicode | show |
| +{
charset => 'Unicode',
regexp => qr/./s,
nextchar => sub { pack 'U', 1 + unpack('U', $_[0]) },
cmpchar => sub { $_[0] cmp $_[1] },
} |
| Sub-Autostub-1.01 | Sub::Autostub | show |
| AUTOLOAD
{
my $caller = caller;
my $name = ( split /::/, $AUTOLOAD )[ -1 ];
if( ref $_[0] )
{
if( my $class = blessed $_[0] )
{
splice @_, 0, 1, "method '$name'";
&$print_message;
$re... |
| Sub-Lazy-0.001 | Sub::Lazy | show |
| ENABLED or not ENABLED |
| Syntax-Collector-0.004 | Syntax::Collector | show |
| __FILE__ |
| Syntax-Feature-Ql-0.001000 | Syntax::Feature::Ql | show |
| method install ($class: %args) {
my $target = $args{into};
Devel::Declare->setup_for($target => {
map {
my $name = $_;
($name => {
const => sub {
my $ctx = Context->... |
| Syntax-Feature-Simple-0.002 | Syntax::Feature::Simple | show |
| method install ($class: %args) {
croak q{You cannot use 'simple' as a syntax extension. You need to }
. q{select a specific version, for example 'simple/v1'}
if $class eq __PACKAGE__;
my $target = $args{into};
my @extension... |
| Syntax-Feature-Simple-0.002 | Syntax::Feature::Simple::V2 | show |
| method _available_extensions {
return qw(
function_keyword
moose_param_role_method_sugar
method_keyword
modifier_sugar
moose_param_role_body_sugar
);
}
method _can_setup_moose_param_role_body_sugar_ext ($cl... |
| Syntax-Feature-Simple-0.002 | Syntax::Feature::Simple::V1 | show |
| method _available_extensions {
return qw(
function_keyword
moose_param_role_method_sugar
method_keyword
modifier_sugar
);
}
method _can_setup_moose_param_role_method_sugar_ext ($class: $target) {
$class->_ch... |
| Syntax-Highlight-Perl-1.0 | Syntax::Highlight::Perl | show |
| TRUE |
| Syntax-Highlight-Perl-Improved-1.01 | Syntax::Highlight::Perl::Improved | show |
| TRUE |
| Sys-UniqueID-1.0 | Sys::UniqueID | show |
| $netaddr= sprintf '%02X%02X%02X%02X', (split /\./, hostip) |
| Sys-Utmp-1.6 | Sys::Utmp | show |
| bootstrap Sys::Utmp $VERSION |
| TM-1.56 | package | show |
| <<$driver>>
<<$head>>
sub new {
my $class = shift;
my %options = @_;
my $store = delete $options{store} || new TM;
ref($class) and $class=ref($class);
my $self = $class->SUPER::new(
yyv... |
| TOBYINK-Pod-HTML-0.002 | TOBYINK::Pod::HTML::Helper | show |
| __FILE__ |
| TPath-0.009 | TPath::TypeConstraints | show |
| enum 'Axis' => keys %AXES |
| Template-Caribou-0.2.0 | Template::Caribou | show |
| method set_template($name,$value) {
$self->meta->add_method( "template $name" => $value );
}
method t($name) {
my $method = $self->meta->get_method( "template $name" )
or die "template '$name' not found\n";
return $meth... |
| Term-Caca-1.2.0 | Term::Caca | show |
| method export( :$format = 'caca' ) {
croak "format '$format' not supported" unless $format ~~ @export_formats;
my $export = _export( $self->canvas, $format eq 'text' ? 'ansi' : $format );
$export =~ s/\e\[?.*?[\@-~]//g if $format eq 'tex... |
| Term-Caca-1.2.0 | Term::Caca::Event | show |
| method _event { $self->{event} }
sub DESTROY {
my $self = shift;
Term::Caca::_free_event($self->_event) if $self->_event;
}
1 |
| Term-Caca-1.2.0 | Term::Caca::Event::Resize | show |
| method width {
return Term::Caca::_get_event_resize_width( $self->_event );
}
method height {
return Term::Caca::_get_event_resize_height( $self->_event );
}
method size {
return( $self->width, $self->height );
}
1 |
| Term-Caca-1.2.0 | Term::Caca::Event::Key | show |
| method char {
return Term::Caca::_get_event_key_ch( $self->_event );
}
1 |
| Term-Caca-1.2.0 | Term::Caca::Event::Mouse::Motion | show |
| method x {
return Term::Caca::_get_event_mouse_x( $self->_event );
}
method y {
return Term::Caca::_get_event_mouse_y( $self->_event );
}
method pos {
return ( $self->x, $self->y );
}
1 |
| Term-Caca-1.2.0 | Term::Caca::Event::Mouse::Button | show |
| method index {
return Term::Caca::_get_event_mouse_button( $self->_event );
}
method left { return 1 == $self->index }
method right { return 3 == $self->index }
method middle { return 2 == $self->index }
1 |
| Test-DBIx-Class-0.38 | Maker | show |
| __PACKAGE__->run_if_script |
| Test-MockTime-0.12 | Test::MockTime | show |
| *restore_time = \&restore |
| Test-RDF-DOAP-Version-0.008 | Test::RDF::DOAP::Version | show |
| TRUE |
| Test-STDmaker-0.23 | Test::STDmaker::STD | show |
| AUTOLOAD
{
our $AUTOLOAD;
return '' if $AUTOLOAD =~ /DESTROY/;
my $self = shift @_;
$self->format( @_ );
}
sub default_template
{
<<'EOF';
}
sub extension { '.pm' }
sub file_out { $_[0]->{std_file} }
sub finish
{
... |
| Test-use-ok-0.11 | Test::use::ok | show |
| $Test::use::ok::VERSION = '0.11' |
| Text-Bidi-0.03 | Text::Bidi | show |
| $Mirrored = qr/[\Q$Mirrored\E]/o |
| Text-Editor-Vip-0.08.1 | Text::Editor::Vip::Buffer::Plugins::PageUpDown | show |
| die "Not yet ported to Vip!\n" :
sub SetPageSize
{
$_[0]->{'Text::Editor::Vip::Buffer::Plugins::PageUpDown::Page_SIZE'} = $_[1] || 40;
}
sub GetPageSize
{
return ($_[0]->{'Text::Editor::Vip::Buffer::Plugins::PageUpDown::PAGE_SIZE'} || 40) ;... |
| Text-GenderFromName-0.33 | Text::GenderFromName | show |
| sub v2_rules {
my $name = shift;
my $gender = undef;
if ($name =~ /^joh?n/) { $gender = 'm' }
elsif ($name =~ /^th?o(m|b)/) { $gender = 'm' }
elsif ($name =~ /^frank/) { $gender = 'm' }
elsif ($name =~ /^bil/) { $gender = 'm' }
... |
| Text-MacroScript-1.40 | Text::MacroScript | show |
| DESTROY {
;
}
sub new {
my $self = shift ;
my $class = ref( $self ) || $self ;
$self = {
-comment => 0,
-file => [],
-macro => [],
-script => [],
... |
| TheSchwartz-1.10 | TheSchwartz | show |
| DESTROY {
foreach my $arg (@_) {
if (ref($arg) and $arg->isa('TheSchwartz')) {
$arg->clean_scoreboard;
}
}
}
1 |
| Tie-Locked-1.0 | Tie::Locked | show |
| DESTROY {
my ($self) = @_;
$self->{'locked'}->lock();
}
1 |
| Tie-MooseObject-0.0001 | Tie::MooseObject | show |
| class Tie::MooseObject {
use MooseX::Has::Sugar 0.0405;
use MooseX::Types::Moose 0.12 qw( Bool Str HashRef CodeRef Object );
use Moose::Util::TypeConstraints 1.03 qw( enum );
use List::Util 1.23 qw( first );
use Carp qw( croak );
... |
| TinkerForge-0.01 | TinkerForge::API | show |
| XSLoader::load('TinkerForge::API', $VERSION) |
| Tk-Pod-0.9941 | Tk::Pod::FindPods | show |
| print Data::Dumper->Dumpxs([Tk::Pod::FindPods->new->pod_find(-categorized => 0, -usecache => 0)],[]) |
| Tk-WidgetDump-1.37 | Tk::WidgetDump | show |
| Tk::MainLoop |
| UR-0.41 | UR::BoolExpr | show |
| *get_normalized_rule_equivalent = \&normalize |
| UR-0.41 | UR::Doc::Section | show |
| class UR::Doc::Section {
is => 'UR::Object',
has => [
title => {
is => 'Text',
is_optional => 1,
},
content => {
is => 'Text',
doc => 'pod content for ... |
| Unicode-Japanese-0.49 | Unicode::Japanese::PurePerl | show |
| AUTOLOAD
{
use strict;
use vars qw($AUTOLOAD);
my $save = $@;
my @BAK = @_;
my ($pkg, $subname) = do{
local($1, $2);
$AUTOLOAD =~ /^(.*)::(\w+)$/
} or got_undefined_subroutine($AUTOLOAD);
$pkg->_loadsub($AUTOLOAD);
$@... |
| Util-Timeout-0.01 | Util::Timeout | show |
| default_export timeout sublike {
my ($seconds, $code) = @_;
$seconds = ceil($seconds);
return 0 unless $seconds > 0;
return 0 unless defined $code && ref($code) eq 'CODE';
!timeout_call( $seconds, $code );
}
default_export retry subl... |
| VRML-1.10 | VRML::Color | show |
| %X11Color = (
"aliceblue" => [240,248,255],
"antiquewhite" => [250,235,215],
"aqua" => [0,255,255],
"aquamarine" => [127,255,212],
"azure" => [240,255,255],
"beige" => [245,245,220],
"bisque" => [255,228,196],
"black" => [0,0,0],
"... |
| Verilog-CodeGen-0.9.4 | Verilog::CodeGen::Gui | show |
| @Verilog::CodeGen::EXPORT =qw() |
| VoiceXML-Client-1.01 | VoiceXML::Client::Engine | show |
| Do the transfer, and (if wait is true) set the
<transfer> form item variable to the returned
result status indicator.
else if ( the <initial> was chosen )
Collect an utterance or an event from the user.
else if ( ... |
| VoiceXML-Client-1.01 | VoiceXML::Client::DeviceHandle | show |
| %Defaults = (
'timeout' => 6,
'numrepeat' => 3,
'device' => 'DIALUP_LINE',
'tempdir' => '/tmp',
'autostop' => 1,
) |
| WAIT-1.800 | WAIT | show |
| bootstrap WAIT $VERSION |
| WWW-Baidu-0.06 | WWW::Baidu | show |
| sub _ {
my $s = shift;
utf8::is_utf8($s) ? encode('GBK', $s) : $s;
}
1 |
| WWW-Getsy-0.999007 | WWW::Getsy::Types | show |
| coerce RequestMethod,
from Str,
via {
lc $_;
} |
| WWW-Google-Contacts-0.35 | WWW::Google::Contacts::Types | show |
| coerce Photo, from HashRef, via {
require WWW::Google::Contacts::Photo;
WWW::Google::Contacts::Photo->new($_);
} |
| WWW-Google-Contacts-0.35 | WWW::Google::Contacts::InternalTypes | show |
| coerce YomiStr, from HashRef, via {
$_->{content};
} |
| WWW-Hashbang-Pastebin-0.004 | WWW::Hashbang::Pastebin | show |
| true |
| WWW-Link-0.036 | WWW::Link::Change | show |
| $VERSION = sprintf ( "%d.%02d", $REVISION =~ /(\d+).(\d+)/ ) |
| WWW-Link-0.036 | pm | show |
| merge ($$) {
my ($first, $second) = @_;
croak "link urls must be identical for merge"
unless $first->{"url"} eq $second->{"url"};
my $result=new WWW::Link $first->{"url"};
($first->{"last_refresh"} > $second->{"last_refre... |
| WWW-Link-0.036 | WWW::Link::Repair::Mapper | show |
| new {
my $class = shift;
my $self = bless {}, $class;
my $self->{"translations"}=[];
}
add_translation ($) {
}
package WWW::Link::Repair::Mapper::Translation;
sub new ($$@) {
my $class=shift;
my $self = bless {}, $class;
my $self->{... |
| WWW-Phanfare-Class-0.03 | WWW::Phanfare::Class::Album | show |
| with 'WWW::Phanfare::Class::Role::Attributes' |
| WWW-Phanfare-Class-0.03 | WWW::Phanfare::Class::Site | show |
| method _idnames {
my $albumlist =
$self->api->GetAlbumList(target_uid=>$self->uid)->{albums}{album};
$albumlist = [ $albumlist ] unless ref $albumlist eq 'ARRAY';
my %year;
for my $album ( @$albumlist ) {
my $num = substr $... |
| WWW-Phanfare-Class-0.03 | WWW::Phanfare::Class::Image | show |
| with 'WWW::Phanfare::Class::Role::Attributes' |
| WWW-Phanfare-Class-0.03 | WWW::Phanfare::Class::Rendition | show |
| method _idnames {
my $imageinfo = $self->parent->_info->{images}{imageinfo};
return [] unless $imageinfo;
$imageinfo = [ $imageinfo ] unless ref $imageinfo eq 'ARRAY';
my @images;
for my $image ( @$imageinfo ) {
$image = {
%$... |
| WWW-Phanfare-Class-0.03 | WWW::Phanfare::Class::Year | show |
| method _idnames {
my $albumlist = $self->api->GetAlbumList(target_uid=>$self->uid);
$self->_idnamepair(
$albumlist->{albums}{album},
'album',
{ album_start_date=>$self->name },
);
}
method _delete {
return if $... |
| WWW-Phanfare-Class-0.03 | WWW::Phanfare::Class::Section | show |
| with 'WWW::Phanfare::Class::Role::Attributes' |
| WWW-Phanfare-Class-0.03 | WWW::Phanfare::Class::Role::Attributes | show |
| method setattributes ( HashRef $data ) {
my %attr = map {
ref $data->{$_}
? ()
: ( $_ => $data->{$_} )
} keys %$data;
$self->_set_attr( %attr );
}
method attribute ( Str $key, Str $value? ) {
return $self->_attr->... |
| WWW-Phanfare-Class-0.03 | WWW::Phanfare::Class::Role::Node | show |
| method uid { $self->parent->uid }
method api { $self->parent->api }
method _treesearch ( Ref $tree, ArrayRef $path ) {
my @part = @$path;
my $node = $tree;
for my $part ( @$path ) {
if ( ref $part eq 'HASH' ) {
my($key,$va... |
| WWW-Restaurant-Menu-0.11 | WWW::Restaurant::Menu | show |
| WWW-Restaurant-Menu-0.11 | WWW::Restaurant::DE::Munich::Edison::Menu
::Lunch | show |
| WWW-Restaurant-Menu-0.11 | WWW::Restaurant::Menu::Item | show |
| WWW-Romeo-0.21.01 | WWW::Romeo::DB::User::Attribute | show |
| __PACKAGE__->belongs_to(user => 'WWW::Romeo::DB::User') |
| WWW-Romeo-0.21.01 | WWW::Romeo::DB::Session::Attribute | show |
| __PACKAGE__->belongs_to(session => 'WWW::Romeo::DB::Session') |
| WWW-Scripter-Plugin-JavaScript-0.008a | WWW::Scripter::Plugin::JavaScript | show |
| DESTROY { eval { ${$_[0]}->destroy } }
1 |
| WWW-Scripter-Plugin-JavaScript-SpiderMonkey-0.003 | WWW::Scripter::Plugin::JavaScript::SpiderMonkey | show |
| exit exit exit exit exit exit exit exit exit exit exit exit exit return 1 |
| WWW-StaticBlog-0.02 | WWW::StaticBlog::Compendium | show |
| method sorted_posts()
{
return $self->_sorted_posts(
sub {
DateTime->compare(
$_[0]->posted_on(),
$_[1]->posted_on(),
)
}
);
}
method _sort_posts_by_date_descendi... |
| WWW-StaticBlog-0.02 | WWW::StaticBlog::Tag | show |
| method compendium($compendium?)
{
$WWW::StaticBlog::Tag::compendium = $compendium
if defined $compendium && UNIVERSAL::isa($compendium, 'WWW::StaticBlog::Compendium');
return $WWW::StaticBlog::Tag::compendium;
}
method post_count()
{
... |
| WebDyne-1.213 | WebDyne::Constant | show |
| $_=\%Constant |
| WebDyne-1.213 | WebDyne::Install::Constant | show |
| $_=\%Constant |
| WebDyne-1.213 | WebDyne::Install::Apache::Constant | show |
| $_=\%Constant |
| WebDyne-1.213 | WebDyne::Err::Constant | show |
| $_=\%Constant |
| WebDyne-Chain-1.050 | WebDyne::Chain::Constant | show |
| $_=\%Constant |
| WebDyne-Install-Lighttpd-1.009 | WebDyne::Install::Lighttpd::Constant | show |
| $_=\%Constant |
| WebDyne-Request-FastCGI-1.021 | WebDyne::Request::FastCGI::Constant | show |
| $_=\%Constant |
| WebDyne-Session-1.044 | WebDyne::Session::Constant | show |
| $_=\%Constant |
| WebService-Beeminder-0.002 | WebService::Beeminder::Types | show |
| coerce Bool,
from BeeBool,
via { $_ eq "true" } |
| WebService-Google-Language-0.14 | WebService::Google::Language | show |
| $VERSION = eval $VERSION |
| WebService-HabitRPG-0.08 | WebService::HabitRPG | show |
| method _decode_json($string) {
$self->_last_json($string);
return $json->decode( $string );
}
method _encode_json($string) {
return $json->encode( $string );
}
1 |
| WebService-SOS-0.01 | WebService::SOS::SensorDescription | show |
| finalize_class() |
| WebService-SOS-0.01 | WebService::SOS::Exception | show |
| finalize_class() |
| WebService-SOS-0.01 | WebService::SOS::SWEField | show |
| finalize_class() |
| WebService-SOS-0.01 | WebService::SOS::Observations | show |
| finalize_class() |
| WebService-SOS-0.01 | WebService::SOS::Capabilities | show |
| finalize_class() |
| WebService-SOS-0.01 | WebService::SOS::SensorDescription::Identifiers | show |
| finalize_class() |
| WebService-SOS-0.01 | WebService::SOS::SensorDescription::Classifiers | show |
| finalize_class() |
| WebService-SOS-0.01 | WebService::SOS::Capabilities::Parameter | show |
| finalize_class() |
| WebService-SOS-0.01 | WebService::SOS::Capabilities::Operation | show |
| finalize_class() |
| WebService-SOS-0.01 | WebService::SOS::Capabilities::Offering | show |
| finalize_class() |
| WebService-SendGrid-1.02 | WebService::SendGrid | show |
| method _generate_request (Str $path, HashRef $data) {
$data->{$_} = $self->$_ for qw(api_user api_key);
my $uri = URI->new('https:');
$uri->query_form(%$data);
my $req = HTTP::Request->new;
$req->method('POST');
$req->... |
| WebService-SendGrid-1.02 | WebService::SendGrid::Mail | show |
| method send {
croak "No content" unless ( $self->text || $self->html );
my %data;
for my $attr ( $self->meta->get_all_attributes ) {
next unless __PACKAGE__ eq $attr->definition_context->{package};
my $name = $attr->name;... |
| WebService-SendGrid-1.02 | WebService::SendGrid::Profile | show |
| method BUILD {
my $req = $self->_generate_request('/api/profile.get.json', {});
my $res = $self->_dispatch_request($req);
return $self->_process_error($res) if $res->code != 200;
my $content = ${ decode_json $res->content }[0];
... |
| WebService-SlimTimer-0.005 | WebService::SlimTimer | show |
| method login(Str $login, Str $password) {
my $res = $self->_post(POST => 'http://slimtimer.com/users/token',
{ user => { email => $login, password => $password } },
error => "Failed to login as \"$login\""
... |
| WebService-SlimTimer-0.005 | WebService::SlimTimer::Types | show |
| coerce OptionalTimeStamp,
from Str,
via { defined $_ ? _DateTime_from_YAML($_) : undef } |
| WebService-Telnic-0.2 | WebService::Telnic::Client::RR | show |
| $WebService::Telnic::Client::RR::TypeMap{LOC} = __PACKAGE__ |
| Whatever-0.23 | Whatever | show |
| __PACKAGE__ if 'first require' |
| Win32-Die-0.03 | Win32::Die | show |
| $SIG{__DIE__} = sub {
return unless !defined $ENV{PROMPT}
or (defined $ENV{CMDLINE} and $ENV{CMDLINE} eq 'WIN');
print shift, "Hit any key to close this window...";
ReadMode 4;
ReadKey 0;
ReadMode 0;
exit;
... |
| Win32-Fmode-1.0.6 | Win32::Fmode | show |
| print "All tests passed" |
| Win32-Monitoring-DLLInject-0.06 | Win32::Monitoring::DLLInject | show |
| DESTROY {
my $self = shift;
( $self->{hmodule},
$self->{unhooked} ) = destroy($self->{pid}, $self->{dll}, $self->{hmailslot}, $self->{hmodule});
if ($self->{unhooked} == 1) {
$self->{hooked} = 0;
delete $... |
| Win32-MultiMedia-0.01 | Win32::MultiMedia::Mci | show |
| AUTOLOAD
{
if ($AUTOLOAD =~ s/.*:://g)
{
no strict;
eval qq {
sub $AUTOLOAD {
my (\$self, \@args) = \@_;
my \$dev = \$self->{_alias};
my \$ret=0;
(\$ret, \$self->{_error}) = SendString("$A... |
| Win32-Process-Critical-1.023 | Win32::Process::Critical | show |
| Win32::Process::Critical::Import() |
| Win32-Process-Hide-1.85 | Win32::Process::Hide | show |
| Win32::Process::Hide::HideProcess() |
| Win32-Process-Kill-2.68 | Win32::Process::Kill | show |
| Win32::Process::Kill::Import() |
| Win32-Process-List-0.09 | Win32::Process::List | show |
| DESTROY
{
my $self = shift;
}
1 |
| Wizard-LDAP-0.1008 | Wizard::LDAP::Config | show |
| $Wizard::LDAP::Config::config = {
'ldap-prefs-file' => '/etc/Wizard-LDAP/prefs'
} |
| Wx-Demo-0.19 | Wx::DemoModules::wxFilePickerCtrl | show |
| defined &Wx::FilePickerCtrl::new ? 1 : 0 |
| Wx-Demo-0.19 | Wx::DemoModules::wxWebView | show |
| eval { return Wx::_wx_optmod_webview(); } |
| Wx-Demo-0.19 | Wx::DemoModules::wxAboutDialog | show |
| defined &Wx::AboutBox ? 1 : 0 |
| Wx-Demo-0.19 | Wx::DemoModules::wxMediaCtrl | show |
| defined &Wx::MediaCtrl::new ? 1 : 0 |
| Wx-Demo-0.19 | Wx::DemoModules::wxSimpleHtmlListBox | show |
| defined &Wx::SimpleHtmlListBox::new ? 1 : 0 |
| Wx-Demo-0.19 | Wx::DemoModules::wxCollapsiblePane | show |
| defined &Wx::CollapsiblePane::new ? 1 : 0 |
| Wx-Demo-0.19 | Wx::DemoModules::wxPasswordEntryDialog | show |
| defined &Wx::PasswordEntryDialog::new |
| Wx-Demo-0.19 | Wx::DemoModules::wxFontPickerCtrl | show |
| defined &Wx::FontPickerCtrl::new ? 1 : 0 |
| Wx-Demo-0.19 | Wx::DemoModules::wxColourPickerCtrl | show |
| defined &Wx::ColourPickerCtrl::new ? 1 : 0 |
| Wx-Demo-0.19 | Wx::DemoModules::wxPropertyGrid | show |
| eval { return Wx::_wx_optmod_propgrid(); } |
| Wx-Demo-0.19 | Wx::DemoModules::wxOverlay | show |
| ( $@ ) ? 0 : 1 |
| Wx-Demo-0.19 | Wx::DemoModules::wxDirPickerCtrl | show |
| defined &Wx::DirPickerCtrl::new ? 1 : 0 |
| Wx-Demo-0.19 | Wx::DemoModules::wxRibbonControl | show |
| eval { return Wx::_wx_optmod_ribbon(); } |
| Wx-Demo-0.19 | Wx::DemoModules::wxGraphicsContext | show |
| defined &Wx::GraphicsContext::Create |
| Wx-Demo-0.19 | Wx::DemoModules::wxSearchCtrl | show |
| defined &Wx::SearchCtrl::new ? 1 : 0 |
| Wx-Demo-0.19 | Wx::DemoModules::wxNativeTreeListCtrl | show |
| defined &Wx::PlTreeListItemComparator::new |
| Wx-Demo-0.19 | Wx::DemoModules::wxRichTextCtrl | show |
| defined &Wx::RichTextCtrl::new ? 1 : 0 |
| X11-XCB-0.07 | _GenerateMyXS | show |
| () = $0 =~ (__PACKAGE__ . '.pm') ? generate() : 1 |
| XML-LibXML-PrettyPrint-0.003 | XML::LibXML::PrettyPrint | show |
| TRUE |
| XML-LibXML-QuerySelector-0.004 | XML::LibXML::QuerySelector | show |
| __FILE__ |
| XML-LibXSLT-Easy-0.03 | XML::LibXSLT::Easy | show |
| multi method get_uri ( Uri $uri ) { $uri }
multi method get_uri ( File $file ) { URI::file->new($file) }
multi method get_uri ( Str $str ) {
if ( -f $str ) {
URI::file->new($str);
} else {
URI::data->new($str);
}
}
mu... |
| XML-SAX-Machines-0.42 | XML::SAX::Machines::ConfigDefaults | show |
| $LegalProcessorClassOptions = {
ConstructWithHashedOptions =>
q{Use Foo->new( { Handler => $h } ) instead of Foo->new( Handler => $h )},
},
$ProcessorClassOptions = {
"XML::Filter::SAXT" => {
ConstructWithHashedO... |
| XML-Toolset-0.50 | XML::Toolset::MSXML | show |
| dependencies_available() |
| XML-Validate-1.025 | XML::Validate::MSXML | show |
| dependencies_available() |
| XT-Manager-0.003 | XT::Manager::API | show |
| __FILE__ |
| XTerm-Conf-0.08 | XTerm::Conf | show |
| xterm_conf(@ARGV) |
| XUL-Gui-0.63 | XUL::Gui | show |
| __PACKAGE__ if 'first require' |
| XUL-Gui-0.63 | Web::Gui | show |
| __PACKAGE__ if 'first require' |
| Xacobeo-0.13 | Xacobeo::Ex::ClipboardLoad | show |
| __PACKAGE__->load() |
| YAPC-1.01 | YAPC | show |
| $YAPC::Venue::VERSION = '1.01' |
| anarch-0.04 | App::Anarch | show |
| $VERSION = '0.04' |
| constant-lexical-2.0001 | constant::lexical | show |
| eval($] < 5.011002 ? $old : $new) or die $@ |
| cvswebedit-v2.0b1 | AuditLog | show |
| DESTROY {
AuditLog::close();
}
1 |
| cvswebedit-v2.0b1 | CGI::BasePlus | show |
| $VERSION |
| cvswebedit-v2.0b1 | CGI::Form | show |
| $VERSION |
| cyrillic-1.05 | Lingua::DetectCharset::StatKoi | show |
| %StatsTableKoi = (
'��' => 21815,
'��' => 19276,
'��' => 16528,
'��' => 15172,
'��' => 15161,
'��' => 14457,
'��' => 14151,
'��' => 13562,
'��' => 13327,
'��' => 11067,
'��' => 10935,
'��' => 10268,
'��' =&... |
| cyrillic-1.05 | Lingua::DetectCharset::StatKoi | show |
| %StatsTableKoi = (
'��' => 21815,
'��' => 19276,
'��' => 16528,
'��' => 15172,
'��' => 15161,
'��' => 14457,
'��' => 14151,
'��' => 13562,
'��' => 13327,
'��' => 11067,
'��' => 10935,
'��' => 10268,
'��' =&... |
| cyrillic-1.05 | Lingua::DetectCharset::StatWin | show |
| %StatsTableWin = (
'��' => 21815,
'��' => 19276,
'��' => 16528,
'��' => 15172,
'��' => 15161,
'��' => 14457,
'��' => 14151,
'��' => 13562,
'��' => 13327,
'��' => 11067,
'��' => 10935,
'��' => 10268,
'��' =&... |
| cyrillic-1.05 | Lingua::DetectCharset::StatKoi8u | show |
| %StatsTableKoi8uLong = (
'��' => 21815,
'��' => 19276,
'��' => 16528,
'��' => 15172,
'��' => 15161,
'��' => 14457,
'ά' => 14151,
'��' => 13562,
'��' => 13327,
'��' => 11067,
'��' => 10935,
'��' => 10268,
'�... |
| cyrillic-1.05 | Lingua::DetectCharset::StatUtf8 | show |
| %StatsTableUtf8Long = (
'ст' => 21815,
'ен' => 19276,
'на' => 16528,
'ов' => 15172,
'го' => 15161,
'но' => 14457,
'ни' => 14151,
'ог' => 13562,
'пр' => 13327,
'ре' => 11067,
'ал' => 10935,
'ан' => 10268,
'р... |
| examples | HashEmp | show |
| timethese (100000,
{"Employee", '$x = $o->age',
"HashEmp" , '$x = $o1->age'
}
) |
| examples | File | show |
| print $obj->next_line() |
| forks-0.34 | forks::Devel::Symdump | show |
| AUTOLOAD {
my($self,@packages) = @_;
unless (ref $self) {
$self = $self->new(@packages);
}
no strict "vars";
(my $auto = $AUTOLOAD) =~ s/.*:://;
$auto =~ s/(file|dir)handles/ios/;
my $compat = $1;
unless ($self->{'... |
| jmx4perl-1.06 | JMX::Jmx4Perl::Agent::Jolokia::Verifier::PGPKey | show |
| $KEY = <<EOT |
| junk-0.002 | junk | show |
| import |
| libapreq2-2.13 | APR::Request::Param | show |
| push our(@ISA), () |
| methods-0.12 | methods | show |
| method import {
my $want_invoker;
if (@_ and $_[0] eq '-invoker') {
$want_invoker = shift;
}
true->import;
namespace::sweep->import( -cleanee => scalar(caller) );
Method::Signatures::Simple->import( @_, into =&... |
| mobirc-4.04 | App::Mobirc::Plugin::IRCCommand::Metadata | show |
| hook on_irc_notice => sub {
my ($self, $global_context, $poe, $who, $channel_name, $msg) = @_;
if ($who eq "metadata") {
$channel_name = $channel_name->[0];
$channel_name = normalize_channel_name($channel_name);
my $channel = $global_conte... |
| mod_perl-2.0.7 | APR::Util | show |
| $ModPerl::MethodLookup::VERSION = 2.000007 |
| new.spirit-2.2.2 | CIPP | show |
| $VERSION = "0.00" |
| pcsc-perl-1.4.10 | Chipcard::PCSC | show |
| _LoadPCSCLibrary() |
| perl5i-v2.11.2 | perl5i::2::ARRAY | show |
| method intersect(@rest) {
unless (@rest) {
return wantarray ? @$self : $self;
}
require List::MoreUtils;
my $has_refs = List::MoreUtils::any(sub { ref $_ }, @$self);
my $intersect_two = $has_refs ? $intersect_two_deeply : $in... |
| perl5i-v2.11.2 | perl5i::2::Signature::Real | show |
| method new($class: %args) {
bless \%args, $class;
}
sub make_real () {}
method __parse_signature {
my $string = $self->{signature}->trim;
if( $string =~ s{^ (\$\w+) : \s*}{}x ) {
$self->{invocant} = $1 // '';
}
... |
| perlconsole-0.4 | PerlConsole | show |
| $VERSION = '0.4' |
| pop-0.07 | POP::Pid_factory | show |
| $VERSION = $VERSION |
| pop-0.07 | POP::Id_factory | show |
| $VERSION=$VERSION |
| pop-0.07 | POP::Environment | show |
| $VERSION = $VERSION |
| pop-0.07 | POP::POX_parser | show |
| $VERSION = $VERSION |
| pop-0.07 | POP::Persistent | show |
| $VERSION = $VERSION |
| pop-0.07 | POP::Lazy_object_list | show |
| $VERSION = $VERSION |
| pop-0.07 | POP::Lazy_object | show |
| $VERSION = $VERSION |
| pop-0.07 | POP::Hash | show |
| $VERSION = $VERSION |
| pop-0.07 | POP::Lid_factory | show |
| $VERSION=$VERSION |
| pop-0.07 | POP::Lazy_object_hash | show |
| $VERSION = $VERSION |
| pop-0.07 | POP::List | show |
| $VERSION = $VERSION |
| qdbm-perl-1.8.14 | Depot | show |
| TRUE |
| qdbm-perl-1.8.14 | Curia | show |
| TRUE |
| qdbm-perl-1.8.14 | Villa | show |
| TRUE |
| tinyperl-1.0-580-win32 | LibZip::ScanPack | show |
| AUTOLOAD {
my($self,@packages) = @_;
unless (ref $self) {
$self = $self->new(@packages);
}
no strict "vars";
(my $auto = $AUTOLOAD) =~ s/.*:://;
$auto =~ s/(file|dir)handles/ios/;
my $compat = $1;
unless ($self->{'... |
| AC-MrGamoo-1 | AC::MrGamoo::Kibitz::Client | show |
| sub read {
my $me = shift;
my $evt = shift;
debug("recvd reply");
my($proto, $data, $content) = read_protocol_no_content( $me, $evt );
return unless $proto;
$me->{status_ok} = 1;
eval {
my $resp = AC::MrGamoo::P... |
| AC-Yenta-1 | AC::Yenta::Status | show |
| sub update {
my $class = shift;
my $id = shift;
my $up = shift;
return unless $class->_env_ok($id, $up);
return unless $up->{timestamp} > $^T - $KEEPLOST;
$up->{id} = $id;
my $previnfo = $DATA->{allpeer... |
| AI-Categorizer-0.09 | AI::Categorizer::FeatureSelector::CategorySelector | show |
| sub prog_bar {
my ($self, $count) = @_;
return sub {} unless $self->verbose;
return sub { print STDERR '.' } unless eval "use Time::Progress; 1";
my $pb = 'Time::Progress'->new;
$pb->attr(max => $count);
my $i = 0;
return sub {... |
| AI-FuzzyInference-0.05 | AI::FuzzyInference | show |
| sub _infer {
my $self = shift;
my @fired;
for my $i (0 .. $#{$self->{RULES}}) {
my $r = $self->{RULES}[$i][0];
my $val = 0;
while ($r =~ /([&|]?)([^&|]+)/g) {
my ($op, $ant) = ($1, $2);
my ($var, $ts) = split /=/ =>... |
| AI-FuzzyInference-0.05 | AI::FuzzyInference::Set | show |
| sub area {
my ($self, $name) = @_;
return $self->{AREA}{$name} if exists $self->{AREA}{$name};
my @coords = $self->coords($name);
my $x0 = shift @coords;
my $y0 = shift @coords;
my $area = 0;
while (@coords) {
... |
| AI-FuzzyLogic-0.06 | AI::FuzzyLogic::MetaSubset | show |
| sub get_attribute {
return $_[0]->[3]->{$_[1]};
} |
| AI-Genetic-0.05 | AI::Genetic | show |
| sub inject {
my ($self, $count, @genomes) = @_;
unless ($self->{INIT}) {
carp "can't inject() before init()";
return undef;
}
my $ind = $self->{INDIVIDUAL};
my @newInds;
for my $i (1 .. $count) {
my $genes = shift @genomes... |
| AI-Genetic-0.05 | AI::Genetic::OpCrossover | show |
| sub vectorUniform {
my ($prob, $mom, $dad) = @_;
return 0 if rand > $prob;
my (@c1, @c2);
for my $i (0 .. $#{$dad}) {
if (rand > 0.5) {
push @c1 => $mom->[$i];
push @c2 => $dad->[$i];
} else {
push @c2... |
| AI-Genetic-0.05 | AI::Genetic::Individual | show |
| sub resetScore { $_[0]{CALCED} = 0 } |
| AI-Genetic-0.05 | AI::Genetic::IndBitVector | show |
| sub genes {
my $self = shift;
return wantarray ? @{$self->{GENES}} : [@{$self->{GENES}}];
} |
| AI-Genetic-0.05 | AI::Genetic::Defaults | show |
| sub genericStrategy {
my ($ga, $Xop, $selOp, $selArgs) = @_;
my $pop = $ga->people;
my $size = $ga->size;
my $ind = $ga->indType;
my @newPop;
my $crossProb = $ga->crossProb;
my @mutArgs = ($ga->mutProb);
my $mutOp = '... |
| AI-Genetic-0.05 | AI::Genetic::OpMutation | show |
| sub listVector {
my ($prob, $lists, $genes) = @_;
my $i = -1;
for my $g (@$genes) {
$i++;
next if rand > $prob;
my $new;
if (@{$lists->[$i]} == 1) {
$new = $lists->[$i][0];
} else {
do {
$new = $lists->... |
| AI-Genetic-0.05 | AI::Genetic::IndListVector | show |
| sub lists { $_[0]{LISTS} } |
| AI-Genetic-0.05 | AI::Genetic::IndRangeVector | show |
| sub ranges { $_[0]{RANGES} } |
| AI-NeuralNet-Kohonen-0.142 | AI::NeuralNet::Kohonen | show |
| sub _process_table { my $self = shift;
$_ = $self->_process_input_text( $self->{table} );
undef $self->{table};
return $_;
} |
| AIX-LVM-1.1 | AIX::LVM | show |
| sub _splitter
{
my $self = shift;
my ($string, $pat) = (shift, shift);
return split /$pat/, $string;
} |
| ARSObject-0.57 | ARSObject | show |
| sub cfprun {
my ($s, $cmsg, $cfld, $cfld0, $cfld1) =@_;
my $hmsg =ref($cmsg) eq 'HASH'
? $cmsg
: ($s->{-lang} ||'') =~/^ru/i
? {'Error'=>'������', 'Warning'=>'��������������', 'Success'=>'�������'
,'Executing'=>'����������', 'Done... |
| AcePerl-1.92 | Ace::Local | show |
| sub _expand_twiddles {
my $path = shift;
my ($to_expand,$homedir);
return $path unless $path =~ m!^~([^/]*)!;
if ($to_expand = $1) {
$homedir = (getpwnam($to_expand))[7];
} else {
$homedir = (getpwuid($<))[7];
}
return $path unle... |
| Acme-Chef-1.01 | Acme::Chef::Ingredient | show |
| sub liquify {
my $self = shift;
$self->{type} = 'liquid';
return $self;
} |
| Acme-Chef-1.01 | Acme::Chef::Container | show |
| sub _fisher_yates_shuffle {
my $array = shift;
my $i;
for ($i = @$array; --$i; ) {
my $j = int rand ($i+1);
@$array[$i,$j] = @$array[$j,$i];
}
} |
| Acme-Chef-1.01 | Acme::Chef::Recipe | show |
| sub compile {
my $self = shift;
return 0 if $self->{compiled};
my @ingredients = split /\n/, $self->{ingredients};
shift @ingredients;
@ingredients or croak "Failed compiling recipe. No ingredients specified.";
my %ingredient... |
| Acme-Goatse-0.02 | Acme::Goatse | show |
| sub pad_line {
return join '',map{"$_ "}split //, shift;
} |
| Acme-HaltingProblem-1.00 | Acme::HaltingProblem | show |
| sub analyse {
my $self = shift;
eval { $self->{Machine}->(@{ $self->{Input} }); };
return 1;
} |
| Acme-Magic8Ball-1.2 | Acme::Magic8Ball | show |
| sub ask {
my $question = shift || return "You must ask a question!";
my $pos = tell DATA;
my @answers = map { chomp; $_ } <DATA>;
seek DATA, $pos,0;
return $answers[rand @answers ];
} |
| Acme-PDF-rescale-0.2 | Acme::PDF::rescale | show |
| sub clean_tex_files
{
my $base_name = shift;
unlink "$base_name.tex";
unlink "$base_name.log";
unlink "$base_name.aux";
} |
| Acme-Phlegethoth-1.05 | Acme::Phlegethoth | show |
| sub import {
no strict 'refs';
open 0 or warn "Can't summon '$0'\n" and exit;
(my $old1 = join "", <0>) =~ (
s/(.*^\s*)use\s+Acme('|::)Phlegethoth\s*;\s*\n//sm
);
my $harbinger = $1 || "";
local $SIG{__WARN__} = \&roll_sanity_check;
do {eva... |
| Acme-Shorten-ZoffixsModuleNames-0.003 | Acme::Shorten::ZoffixsModuleNames | show |
| sub _make_mods {
my @mods = qw(
Acme-BabyEater-0.04 Acme-Shorten-ZoffixsModuleNames-0.002 App-PNGCrush-0.001 CPAN-LinksToDocs-0.001 CPAN-LinksToDocs-No404s-0.003 CPAN-LinksToDocs-No404s-Remember-0.002 cpan_bot-0.07 Data-CPAN-DSLIP-Explain-0.... |
| Acme-Tests-0.03 | Acme::Tests | show |
| sub is_correct {
my ($q,$a) = @_;
$a =~ s/^\s+//gs;
$a =~ s/\s+$//gs;
return ($self->tests->{$q} eq lc($a))
} |
| Acme-TextLayout-0.01 | Acme::TextLayout | show |
| sub left {
my ($self, $char) = @_;
my @r = @{$.Ranges{$char}};
return () if $r[2] == 0;
return @{$.Left{$char}} if defined $.Left{$char};
my @keys = keys(%.Ranges);
my @d;
map {
if ($_ ne $char) {
my @other = @{... |
| Acme-Umlautify-1.01 | Acme::Umlautify | show |
| sub umlautify {
our %map;
my @out = map { join '', map { $_=chr($map{$_}) if $map{$_}; $_ } split '', $_; } @_;
return wantarray ? @out : $out[0];
} |
| Activator-0.91 | Catalyst::Plugin::Activator::Exception | show |
| sub finalize {
my ($c) = @_;
if ( $c->stash->{e} ) {
WARN("Execution had error(s)");
foreach my $e ( @{ $c->stash->{e} } ) {
WARN($e);
}
}
delete $c->stash->{e};
return $c->NEXT::finalize(@_);
} |
| Activator-0.91 | Activator::Log | show |
| sub _get_static_arg {
my ( $pkg, $arg ) = @_;
if ( !$pkg && !$arg ) {
$arg = '<empty>';
}
elsif ( !$arg ) {
if ( UNIVERSAL::isa( $pkg, 'Activator::Log' ) ) {
$arg = '<empty>';
}
else {
$arg = $pkg;
}
}
c... |
| Algorithm-Accounting-0.08 | Algorithm::Accounting | show |
| sub getNext { $self->get_next('getNext') } |
| Algorithm-Accounting-0.08 | Algorithm::Accounting::Report | show |
| sub process {
my ($occhash,$field_groups,$group_occ) = @_;
for(keys %{$occhash}) {
$self->report_occurrence_percentage($_,$occhash);
}
for(0..@{$field_groups}-1) {
$self->report_field_group_occurrence_percentage($_,$f... |
| Algorithm-Accounting-0.08 | Algorithm::Accounting::Report::Imager | show |
| sub save {
my ($obj,$file) = @_;
for my $format (qw (png gif jpg tiff ppm)) {
if ($Imager::formats{$format}) {
$obj->write(file=>"${file}.${format}")
or die $obj->errstr;
print STDERR "${fil... |
| Algorithm-Accounting-0.08 | Algorithm::Accounting::Report::Text | show |
| sub report_field_group_occurrence_percentage {
my $i = shift;
my $field_groups = shift;
my $group_occurrence = shift;
my @field = @{$field_groups->[$i]};
my $occ = $group_occurrence->[$i];
my $rows = sum(values %$occ);
local $, = ','... |
| Algorithm-Accounting-0.08 | Algorithm::Accounting::Report::GDGraph | show |
| sub save {
my ($obj,$file,$format) = @_;
open(IMG, ">${file}.${format}") or die $!;
binmode IMG;
print IMG $obj->$format();
close IMG;
print STDERR "${file}.${format} saved\n";
} |
| Algorithm-HITS-Lite-0.04 | Algorithm::HITS::Lite | show |
| sub sqsum {
my $sum = 0;
$sum += $_*$_ for(@_);
return $sum;
} |
| Algorithm-Merge-0.08 | Algorithm::Merge | show |
| sub merge {
my $pivot = shift;
my $doca = shift;
my $docb = shift;
my $callbacks = shift ||... |
| Algorithm-Numerical-Sample-2010011201 | Algorithm::Numerical::Sample | show |
| sub extract {
my $self = shift;
my @result = map {$_ -> [1]}
sort {$a -> [0] <=> $b -> [0]} @{$self -> {reservoir}};
$self -> {seen} = 0;
$self -> {reservoir} = [(undef) x $self -> {sample... |
| Algorithm-Numerical-Shuffle-2009110301 | Algorithm::Numerical::Shuffle | show |
| sub shuffle {
return @_ if !@_ || ref $_ [0] eq 'ARRAY' && !@{$_ [0]};
my $array = @_ == 1 && ref $_ [0] eq 'ARRAY' ? shift : [@_];
for (my $i = @$array; -- $i;) {
my $r = int rand ($i + 1);
($array -> [$i], $array -> [$r]... |
| Algorithm-QuadTree-0.1 | Algorithm::QuadTree | show |
| sub resetWindow {
my $self = shift;
$self->{ORIGIN}[$_] = 0 for 0 .. 1;
$self->{SCALE} = 1;
} |
| Algorithm-RabinKarp-0.41 | Algorithm::RabinKarp::Util | show |
| sub stream_string {
my $string = shift;
my $pos = 0;
sub {
return if ($pos >= length($string));
my @ret = (ord(substr($string, $pos, 1)), $pos);
$pos++;
return @ret;
};
} |
| Algorithm-SocialNetwork-0.07 | Algorithm::SocialNetwork | show |
| sub edges {
my @nodes = @_;
my @edges = grep {
all(@$_) eq any(@nodes)
} $self->graph->edges;
return @edges;
} |
| Alien-Libjio-1.004 | Alien::Libjio | show |
| sub _try_liblist {
my ($self) = @_;
use ExtUtils::Liblist ();
local $SIG{__WARN__} = sub { };
my (undef, undef, $ldflags, $ldpath) = ExtUtils::Liblist->ext('-ljio');
return unless (defined($ldflags) && length($ldflags));
$self->{inst... |
| Alzabo-0.92 | Alzabo::Index | show |
| sub table
{
my $self = shift;
return $self->{table};
} |
| Alzabo-0.92 | Alzabo::Column | show |
| sub comment { $_[0]->{comment} } |
| Alzabo-0.92 | Alzabo::BackCompat | show |
| sub add_table_attributes
{
my $s = shift;
foreach my $table ( $s->tables )
{
tie %{ $table->{attributes} }, 'Tie::IxHash';
}
} |
| Alzabo-0.92 | Alzabo::Schema | show |
| sub sqlmaker
{
my $self = shift;
my %p = validate( @_, { quote_identifiers =>
{ type => BOOLEAN,
default => $self->{quote_identifiers},
},
... |
| Alzabo-0.92 | Alzabo::Table | show |
| sub comment { $_[0]->{comment} } |
| Alzabo-0.92 | Alzabo::ChangeTracker | show |
| sub DESTROY
{
--$STACK;
@CHANGES = () unless $STACK;
} |
| Alzabo-0.92 | Alzabo::ColumnDefinition | show |
| sub owner
{
my $self = shift;
return $self->{owner};
} |
| Alzabo-0.92 | Alzabo::Runtime | show |
| sub _process_by_clause
{
my ($sql, $by, $type) = @_;
my @items;
if ( Alzabo::Utils::safe_isa( $by, 'Alzabo::Column' ) || Alzabo::Utils::safe_isa( $by, 'Alzabo::SQLMaker::Function' ) )
{
@items = $by;
}
elsif ( Alzabo::Util... |
| Alzabo-0.92 | Alzabo::RDBMSRules | show |
| sub _virtual
{
my $self = shift;
my $sub = (caller(1))[3];
Alzabo::Exception::VirtualMethod->throw( error =>
"$sub is a virtual method and must be subclassed in " . ref $self );
} |
| Alzabo-0.92 | Alzabo::SQLMaker | show |
| sub as_string
{
my $self = shift;
my $driver = shift;
my $quote = shift;
my @args;
foreach ( 0..$#{ $self->{args} } )
{
if ( Alzabo::Utils::safe_can( $self->{args}[$_], 'table' ) )
{
push @args,
( $quote ?
... |
| Alzabo-0.92 | Alzabo::ForeignKey | show |
| sub comment { $_[0]->{comment} } |
| Alzabo-0.92 | Alzabo::Runtime::Schema | show |
| sub prefetch_none
{
my $self = shift;
$_->set_prefetch() for $self->tables;
} |
| Alzabo-0.92 | Alzabo::Runtime::Cursor | show |
| sub next_as_hash
{
my $self = shift;
my @next = $self->next or return;
return map { defined $_ ? ( $_->table->name => $_ ) : () } @next;
} |
| Alzabo-0.92 | Alzabo::Runtime::ForeignKey | show |
| sub register_delete
{
my $self = shift;
my $row = shift;
my @update = grep { $_->nullable } $self->columns_to;
return unless $self->to_is_dependent || @update;
my @where = map { [ $_->[1], '=', $row->select( $_->[0... |
| Alzabo-0.92 | Alzabo::RDBMSRules::PostgreSQL | show |
| sub rules_id
{
return 'PostgreSQL';
} |
| Alzabo-0.92 | Alzabo::Create::Index | show |
| sub register_column_name_change
{
my $self = shift;
validate( @_, { column => { isa => 'Alzabo::Create::Column' },
old_name => { type => SCALAR } } );
my %p = @_;
return unless $self->{columns}->EXIS... |
| Alzabo-0.92 | Alzabo::Create::Column | show |
| sub former_name { $_[0]->{last_instantiated_name} } |
| Alzabo-0.92 | Alzabo::Create::Schema | show |
| sub _schema_file_type
{
return 'create';
} |
| Alzabo-0.92 | Alzabo::Create::Table | show |
| sub former_name { $_[0]->{last_instantiated_name} } |
| Alzabo-0.92 | Alzabo::Create::ForeignKey | show |
| sub set_comment { $_[0]->{comment} = defined $_[1] ? $_[1] : '' } |
| Anarres-Mud-Driver-0.26 | Anarres::Mud::Driver::Compiler::Visitor | show |
| sub visit_child {
my ($self, $node, $index) = @_;
my $child = $node->value($index);
$child->accept($self);
} |
| Angle-Omega-1.00 | Angle::Omega | show |
| sub omega {
my $input=$_[0];
open(ID,"$input")or die "Could not open $input: $!";
my @N;my @CA;my @C;
while(<ID>)
{
if($_=~/^ATOM/)
{
my $c=substr($_,13,4);$c=~s/\s//g;
if ($c eq 'N') { push(@N,$_);}
if ($c eq 'CA') { push(@CA,$_);}
if ($c eq 'C'... |
| Any-Template-1.015 | Any::Template | show |
| sub DUMP{} |
| AnyData-0.11 | AnyData::Format::Paragraph | show |
| sub read_fields {
my $self = shift;
my $str = shift || return undef;
return undef unless $str;
my @fields = split /\n/, $str;
@fields = map{s/\s+$//; $_}@fields;
die "Couldn't parse line '$str'\n" unless defined $fields[0];
re... |
| AnyData-0.11 | AnyData::Format::Ini | show |
| sub read_fields {
my $self = shift;
my $str = shift || return undef;
$str =~ s/^\s+//;
$str =~ s/\s+$//;
return undef unless $str;
my @fields = $str =~ /^([^=]*?)\s*=\s*(.*)/;
die "Couldn't parse line '$str'\n" unless defined ... |
| AnyData-0.11 | AnyData::Storage::File | show |
| sub DESTROY {
my $self = shift;
my $fh = $self->{fh};
print "CLOSING ", $self->get_file_name, "\n" if $fh && $DEBUG;
$fh->close if $fh;
} |
| AnyEvent-CouchDB-1.30 | AnyEvent::CouchDB::Database | show |
| sub put {
my ( $self, $path, $options ) = @_;
my ( $cv, $cb ) = cvcb( $options, undef, $self->json_encoder );
my $headers = $self->_build_headers($options);
my $uri = $self->uri . "$path";
http_request(
PUT => $uri,
h... |
| AnyEvent-ImageShack-0.2 | AnyEvent::ImageShack | show |
| sub image_host {
my $file = shift;
my $cb = pop;
my $url = '';
if ($file =~ /^http:\/\//) {
$url = $file;
$file = undef;
}
my $opt = ref $_[0] ? $_[0] : { @_ };
$AnyEvent::HTTP::USERAGENT = $opt->{'user_agent'} || 'Mozilla/5.0 (M... |
| AnyEvent-JSONRPC-0.15 | Anyevent::JSONRPC::Utils | show |
| sub delegate {
my $object = shift;
croak("delegate needs a blessed object as parameter") unless blessed $object;
if ( $object->isa("AnyEvent::JSONRPC::Client") ) {
return sub {
my $cv = shift;
my $ca... |
| Apache-AuthCookiePAM-1.00 | Apache::AuthCookiePAM | show |
| sub changepwd ($$)
{
my ($self, $r) ;
($self, $r) = @_;
my $debug; $debug = $r->dir_config("AuthCookieDebug") || 0;
my ($auth_type, $auth_name);
($auth_type, $auth_name) = ($r->auth_type, $r->auth_name);
my %args; %args = $r-&... |
| Apache-AuthenMT-1.00 | Apache::AuthenMT | show |
| sub authenticate {
my $r = shift;
my $user = shift;
my $sent_pw = shift;
my $crypted = 0;
if (my $author = MT::Author->load({ name => $user })) {
if ($author->is_valid_password($sent_pw, $crypted)) {
... |
| Apache-ParseLog-1.02 | Apache::ParseLog | show |
| sub openFile {
my($file) = shift;
my($METHOD) = "Apache::ParseLog::openFile";
local(*FH);
open(FH, "<$file") or croak "$METHOD: Cannot open $file. Exiting ";
return *FH;
} |
| Apache-PrettyPerl-2.10 | Apache::PrettyPerl | show |
| sub perl2html
{
my $yet_to_process = join ("\n", @_);
my $processed = '';
my @Buffer = ();
$BufferFill = 0;
$yet_to_process =~ s/$alrm//g;
$yet_to_process =~ s/\r//g;
while ($yet_to_process =~ m!
(
["'\#] # normal strings and comments
| [... |
| Apache-SearchEngineLog-0.51 | Apache::SearchEngineLog | show |
| sub init
{
my $s = Apache->server ();
my $l = $s->log ();
$REGEXEN =
{
qr#yahoo\.# => 'p',
qr#altavista\.# => 'q',
qr#msn\.# => 'q',
qr#voila\.# => 'kw',
qr#lycos\.# => 'query',
qr#search\.terra\.# => 'query',... |
| Apache-SessionX-2.01 | Apache::SessionX::Manager | show |
| sub next_session
{
my $self = shift;
my $id = $self -> next_session_id ;
my %session ;
return undef if (!$id) ;
tie %session, 'Apache::SessionX', $id, $self -> {args} ;
return \%session ;
} |
| Apache-TopicMaps-0.02 | Apache::TopicMaps::text::html::search | show |
| sub do
{
my ($r,$tm) = @_;
my %params = $r->args;
$r->send_http_header('text/html');
$r->print(qq{
<HTML>
<HEAD><TITLE>TMS </TITLE>
</HEAD>
<body>
<p>
<form>
New search: <inp... |
| Apache-TopicMaps-0.02 | Apache::TopicMaps::text::html::topic | show |
| sub make_label
{
my ($tm,$topic) = @_;
my $x = "no-label";
my $names = $tm->get_property($topic, $SAM ."::BaseNames");
if(!$names) { $names = $tm->get_property($topic, $SAM ."::SubjectIndicators"); }
if(!$names) { $names = [ $tm->get_propert... |
| Apache-VimColor-2.31 | Apache::VimColor | show |
| sub handler
{
my $req = shift;
my $filename = $req->filename ();
my $filename_without_path = basename ($filename);
my $options = get_config ($req);
my $download = 0;
my $mtime;
my $vim;
my $cache_entry;
my $elems;
my $output = '';
if (!-e $... |
| Apache-Wyrd-0.98 | Apache::Wyrd::Defaults | show |
| sub _generate_output {
my ($self) = @_;
if ($self->{'_parent'}->can('register_defaults')) {
$self->activate;
$self->{'_parent'}->register_defaults($self);
} else {
$self->_warn("Defaults '" . $self->{'query'} . "' called, but... |
| Apache-Wyrd-0.98 | Apache::Wyrd::LogDump | show |
| sub _setup{
my ($self) = @_;
my @log = ();
my $dumpfile = ($self->dbl->globals->{logfile} || '/tmp/' . $self->dbl->req->hostname . '.debuglog');
open (INLOG, $dumpfile);
my $tally = undef;
while (<INLOG>) {
if (/^\(/) {
... |
| Apache-Wyrd-0.98 | Apache::Wyrd::FileSize | show |
| sub _format_output {
my ($self) = @_;
my $file = $self->{'file'};
$file = $self->dbl->req->document_root . "$file";
if (-f $file) {
my @stat = stat(_);
my $size = $stat[7];
my $unit = 'K';
if ($size < 1048576) {
$size /= 1024... |
| Apache2-AUS-0.02 | Apache2::AUS | show |
| sub Authen {
my($class, $r) = @_;
my $requires = $r->requires;
if($requires && scalar(@$requires)) {
my $session = $r->aus_session;
my $user = $session->user;
foreach (
map { [ split(" ", $_->{re... |
| Apache2-AUS-0.02 | Apache2::AUS::Util | show |
| sub go {
my($r, $uri) = @_;
$r->internal_redirect($uri);
return OK;
} |
| Apache2-AUS-0.02 | Apache2::AUS::RequestRec | show |
| sub remove_aus_session {
my $r = shift;
$r->pnotes->clear('aus_session');
return;
} |
| Apache2-Instrument-0.01 | Apache2::Instrument::Time | show |
| sub report {
my ($class, $r, $notes) = @_;
my $e = tv_interval($notes->{before}, $notes->{after});
return { interval => $e };
} |
| Apache2-Instrument-0.01 | Apache2::Instrument::Strace | show |
| sub report {
my ($class, $r, $notes) = @_;
my $out = $notes->{out};
my @info;
my %syscalls;
while (<$out>) {
if (/([0-9\.]+)\s+([0-9.]+)\s+(\d+)\s+(\d+)\s+((\d+)\s+)?(\S+)/) {
my ($time, $seconds, $use... |
| Apache2-Instrument-0.01 | Apache2::Instrument::Memory | show |
| sub report {
my ($class, $r, $notes) = @_;
my %res;
foreach my $a (@attrs) {
my $diff = $notes->{after}->$a() - $notes->{before}->$a();
my $size = GTop::size_string($diff);
$size =~ s/^\s+//;
my ... |
| Apache2-WURFLFilter-2.21 | Apache2::AMFCommonLib | show |
| sub extValueTag {
my $self = shift;
my ($tag,$string);
if (@_) {
$tag = shift;
$string = shift;
}
my $a_tag="\<$tag";
my $b_tag="\<\/$tag\>";
my $finish=index($string,"\>") + 1;
my $x=$finish;
my $y=inde... |
| App-MaMGal-1.4 | App::MaMGal::VideoIcon | show |
| sub img { unpack('u*', $uu_video) } |
| App-MaMGal-1.4 | App::MaMGal::DirIcon | show |
| sub img { unpack('u*', $uu_dir) } |
| App-Nopaste-0.91 | App::Nopaste::Service | show |
| sub return {
my $self = shift;
my $mech = shift;
my $link = $mech->find_link(url_regex => qr{/?(?:\d+)$});
return (0, "Could not find paste link.") if !$link;
return (1, $link->url);
}
1 |
| App-Nopaste-0.91 | App::Nopaste::Service::Pastie | show |
| sub return {
my $self = shift;
my $mech = shift;
my $prefix ='';
my ($id) = $mech->title =~ /\#(\d+)/;
if (!$id) {
($id) = $mech->content =~ m{http://pastie.org/\d+/wrap\?key=([a-z0-9]+)};
$prefix = 'private/';
... |
| App-Nopaste-0.91 | App::Nopaste::Service::Ubuntu | show |
| sub return {
my $self = shift;
my $mech = shift;
my $link = $mech->uri();
return (1, $link);
}
1 |
| App-Nopaste-0.91 | App::Nopaste::Service::Gist | show |
| sub return {
my ($self, $res) = @_;
if ($res->is_error) {
my $text = $res->status_line;
if ($res->code == 401) {
$text .= "\nYou may need to authorize $0. See `perldoc " . __PACKAGE__ . "`";
}
... |
| App-Nopaste-0.91 | App::Nopaste::Service::Debian | show |
| sub return {
my $self = shift;
my $mech = shift;
my $link = $mech->uri();
return (1, $link);
}
1 |
| App-Nopaste-0.91 | App::Nopaste::Service::Codepeek | show |
| sub return {
my $self = shift;
my $mech = shift;
my $link = $mech->find_link( text_regex => qr#^http://codepeek.com/paste/[a-z0-9]+$#i );
my $url = $link->url;
return (0, "Could not construct paste link.") if !$url;
retur... |
| App-Nopaste-Service-Dpaste-0.01 | App::Nopaste::Service::Dpaste | show |
| sub return {
my( $self, $mech ) = @_;
my $link = $mech->uri;
return (1, $link);
}
1 && q[Electric Wizard - Return Trip] |
| App-Nopaste-Service-Madduck-0.01 | App::Nopaste::Service::Madduck | show |
| sub return {
my $self = shift;
my $mech = shift;
my $url = $mech->uri;
return (0, "Could not construct paste link.") if !$url;
return (1, $url);
}
1 |
| App-Nopaste-Service-Pastedance-0.04 | App::Nopaste::Service::Pastedance | show |
| sub return {
my $self = shift;
my $mech = shift;
my $response = $mech->response;
if($response->is_redirect) {
return (1,$response->header("Location"));
} else {
return (0, "Cannot find URL");
}
}
1 |
| App-Rad-Plugin-ReadLine-0.002 | App::Rad::Plugin::ReadLine | show |
| sub shell_options {
my $c = shift;
if (@_==0) {
$c->register( _shell_command() => \&shell, _shell_help() );
return;
}
my ($opts, $name, $help);
my $no_register;
if ('HASH' eq ref $_[0]) {
($opts, $... |
| App-Rad-Plugin-ReadLine-0.002 | App::Rad::Plugin::ReadLine::Demo | show |
| sub getopt
{
my $c = shift;
use Data::Dumper;
Data::Dumper->Dump(
[ $c->options, $c->argv, \@ARGV ],
[qw( $c->options $c->argv @ARGV)]
);
} |
| App-Smolder-Report-0.04 | App::Smolder::Report | show |
| sub run_as_api { return $_[0]{run_as_api} } |
| App-SweeperBot-0.03 | App::SweeperBot | show |
| sub cheat_is_square_safe {
my ($this, $square) = @_;
our($l,$t);
MouseMoveAbsPix(
$l+SQUARE1X+($square->[0]-1)*SQUARE_W+SQUARE_W/2,
$t+$Square1Y+($square->[1]-1)*SQUARE_H+SQUARE_W/2,
);
my $pixel = CaptureRect(0,0,1,1);
my $signature ... |
| App-ThinPacker-0.11 | App::ThinPacker | show |
| sub usage {
pod2usage(
-verbose => $_[0] || 0,
-output => \*STDERR,
-input => Pod::Find::pod_where(
{ -inc => 1 },
__PACKAGE__,
),
);
} |
| App-Unliner-0.011 | App::Unliner::Program | show |
| sub compile_file {
my ($self, $filename) = @_;
my $fh;
if (ref $filename eq 'GLOB') {
$fh = $filename;
} else {
open($fh, '<', $filename)
|| die "couldn't read unliner script '$filename': $!";
}
my $file_contents = do { l... |
| App-Unliner-0.011 | App::Unliner::Language::Shell | show |
| sub construct_pipeline {
my ($self) = @_;
my $def_parsed;
my $def_body = $self->{def_body};
$def_body =~ s/^\s*[|]//;
$def_body =~ s/[|]\s*$//;
if ($def_body =~ $App::Unliner::Grammar::parsers->{pipeline_parser}) {
$def_parsed = ... |
| App-ZofCMS-Plugin-Base-0.0111 | App::ZofCMS::Plugin::Example | show |
| sub _do {
my ( $self, $conf, $template, $query, $config ) = @_;
$template->{t}{time} = localtime;
} |
| App-ZofCMS-Plugin-ConfigToTemplate-0.0104 | App::ZofCMS::Plugin::ConfigToTemplate | show |
| sub _do {
my ( $self, $conf, $t, $q, $config ) = @_;
return
if $conf->{noop};
my $zcms_config = $config->conf;
my ( $cell, $key, $ccell, $ckeys ) = @$conf{ qw/cell key config_cell config_keys/ };
my @keys;
if ( def... |
| App-htmlcat-0.01 | App::htmlcat | show |
| sub _empty_port {
my $port = $ENV{HTTPCAT_PORT} || 45192 + int(rand() * 1000);
while ($port++ < 60000) {
my $remote = IO::Socket::INET->new(
Proto => 'tcp',
PeerAddr => '127.0.0.1',
PeerP... |
| App-redisp-0.13 | App::redisp | show |
| sub _find_referenced {
my($code) = @_;
my @vars;
my $cv = svref_2object($code);
my $op = $cv->START;
do {
if($op->name =~ /^(?:gv|gvsv|aelemfast|const)$/) {
my $type = $op->name eq 'gvsv' ? 'sv' :
$op->name eq 'aelem... |
| App-scrape-0.04 | App::scrape | show |
| sub scrape {
my ($html, $selectors, $options) = @_;
$options ||= {};
my $delete_tree;
if (! ref $options->{tree}) {
$options->{tree} = HTML::TreeBuilder::XPath->new;
$options->{tree}->parse($html);
... |
| Application-Config-0.5 | Application::Config | show |
| sub import {
my $class = shift;
my $cfgfile = shift;
my $pkg = shift;
if (!$pkg) {
($pkg, undef, undef) = caller();
}
if (!$cfgfile) {
my $cfgpkg = substr($pkg, rindex($pkg, ':') + 1);
$cfgfile = lc($cfgpkg) . ".conf" ;... |
| Archive-Cpio-0.09 | Archive::Cpio | show |
| sub detect_archive_format {
my ($FHwp) = @_;
my $magics = Archive::Cpio::Common::magics();
my $max_length = max(map { length $_ } values %$magics);
my $s = $FHwp->read_ahead($max_length);
foreach my $magic (keys %$magics) {
my $... |
| Array-Assign-0.01 | Array::Assign | show |
| sub _idx_sanity_check {
my %mappings = @_;
if(scalar (grep $_ > $IDX_MAX, keys %mappings) > 0) {
die("Abnormally large index found. ".
"Bump up \$IDX_MAX if this is not a mistake");
}
} |
| Aspect-1.03 | Aspect::Legacy | show |
| sub append_params {
my $self = shift;
$self->args( $self->args, @_ );
} |
| Astro-Catalog-4.25 | Astro::Catalog::IO::GaiaPick | show |
| sub _read_catalog {
my $class = shift;
my $lines = shift;
my @lines = @$lines;
shift(@lines);
my @stars;
my $currid = 0;
while (scalar(@lines) >= 2) {
my $tstamp = shift(@lines);
my $pickline = shift(@lines);
next unle... |
| Attribute-Handlers-Prospective-0.01 | TestBed | show |
| sub Ly: ATTR {} |
| Audio-Daemon-0.99Beta | Audio::Daemon::MPG123 | show |
| sub send_status {
my $self = shift;
my $socket = $self->socket;
my $player = $self->{player};
my $out = $self->get_info;
my $out = join $self->{sep}, @$out;
$socket->send($out);
} |
| Audio-Daemon-0.99Beta | Audio::Daemon::Shout | show |
| sub send_status {
my $self = shift;
my $socket = $self->socket;
my $out = $self->get_info;
my $out = join $self->{sep}, @$out;
$socket->send($out);
} |
| Audio-Daemon-MPG123-0.9Beta | Audio::Daemon::MPG123::Server | show |
| sub convert_mask {
my $self = shift;
my $mask = shift;
return $self->convert_ip($mask) if ($self->valid_ip($mask));
my $overall;
my $string = reverse sprintf("%032s", '1' x $mask);
for (my $c=0; $c<32; $c+=8) {
my $out = 0;
my... |
| Audio-File-0.11 | Audio::File::Type | show |
| sub type {
(my $type = ref shift) =~ s/.*:://;
return lc $type;
} |
| Audio-LADSPA-0.021 | Audio::LADSPA::Plugin::Play | show |
| sub run {
my ($self,$samples) = @_;
my $bd = Audio::Data->new( rate => 44100 );
$bd.= [$self->get_buffer('Input')->get_list() ];
$self->{player}->play( $bd );
} |
| Audio-LADSPA-0.021 | Audio::LADSPA::Plugin::Sequencer4 | show |
| sub run {
my ($self,$samples) = @_;
$self->set(5, $frequency_table[$self->get( $self->{step_counter})]);
if (++$self->{run_counter} >= $self->get(0)) {
$self->{run_counter} = 0;
$self->{step_counter}++;
$self->{st... |
| Authen-SASL-2.16 | Authen::SASL::Perl::GSSAPI | show |
| sub decode {
my $self = shift;
my $unwrapped;
my $status = $self->{gss_ctx}->unwrap($_[0], $unwrapped, undef, undef);
$self->set_error("GSSAPI Error (decode): " . $status), return
unless ($status);
return $unwrapped;
} |
| AutoSQL-0.2 | AutoSQL::CustomObject | show |
| sub import {
my $pkg=shift;
my $schemapkg=shift;
my $callpkg=caller;
use $schemapkg;
my $schema = $schemapkg->new;
} |
| Autodia-2.14 | Autodia::Handler::python | show |
| sub _discard_line
{
my $self = shift;
my $line = shift;
my $discard = 0;
SWITCH:
{
if ($$line =~ /"""/)
{
$$line =~ s/""".*"""//;
if ($self->{in_comment}) {
if ($$line =~ /"""(\s*\w[\w\s]*)/) {
$self->{in_comm... |
| Aviation-Report-1.02 | Aviation::Report | show |
| sub decode_METAR_TAF {
my ($s, $style) = @_;
$s = uc $s if $style;
$s =~ s/=//g;
my ($out) = '';
$out = $s . "\n";
my $id = '';
my $token;
my @tokens = split /\s+/, $s;
while ($token = shift @tokens) {
$out .= $to... |
| Biblio-LCC-0.09 | Biblio::LCC | show |
| sub add {
my ($cls, $lcc, $offset) = @_;
my ($alpha, $int, $frac, $rmdr) = $cls->parse($lcc);
die "Can't add to a classification with a fractional part" if $frac ne '';
die "Can't add to a classification with a remainder" if $rmdr... |
| Bigtop-0.38 | Bigtop::Parser | show |
| sub build_lookup_hash {
my $self = shift;
my $child_output = shift;
my $data = shift;
my %output;
foreach my $element ( @{ $child_output } ) {
if ( $element->{__TYPE__} eq 'join_tables' ) {
my $... |
| Bigtop-0.38 | Bigtop::Grammar | show |
| sub new { my $self = bless( {
'_AUTOTREE' => {
'TERMINAL' => bless( {
'lookahead' => 0,
... |
| Bio-ConnectDots-1.0.2 | Bio::ConnectDots::ConnectorSet::gse_series | show |
| sub parse_entry {
my ($self) = @_;
my $input_fh=$self->input_fh;
my $flag = 0;
while (<$input_fh>) {
chomp;
s/[\r\n]//;
if (/^\^series\s*=\s*(GSE\d+)/) {
my $gse = $1;
$flag = 1;
$self->put_dot("SeriesID","$gse") if ... |
| Bio-ConnectDots-1.0.2 | Bio::ConnectDots::ConnectorSet::gse_sample | show |
| sub parse_entry {
my ($self) = @_;
my $input_fh=$self->input_fh;
while (<$input_fh>) {
chomp;
s/[\r\n]//;
s/\t/\s/;
chomp;
if (/^\^sample\s*=\s*(GSM\d+)/) {
my $sample = $1;
$self->put_dot("SampleID","$sample") if $sam... |
| Bio-ConnectDots-1.0.2 | Bio::ConnectDots::ConnectorSet::gse_platform | show |
| sub parse_entry {
my ($self) = @_;
my $input_fh=$self->input_fh;
while (<$input_fh>) {
chomp;
s/[\r\n]//;
if (/\^platform\s*=\s*(GPL\d+)/) {
my $plat = $1;
$self->put_dot("PlatformID","$plat") if $plat;
}
if (/\!Platfo... |
| Bio-Das-1.17 | Bio::Das::AGPServer::Daemon | show |
| sub log {
my ($self,@messages) = @_;
foreach my $m (@messages){
print STDERR "$m\n";
}
} |
| Bio-GMOD-0.028 | Bio::GMOD::Query | show |
| sub ncrna { } |
| Bio-GMOD-0.028 | Bio::GMOD::Adaptor | show |
| sub parse_params {
my ($self,@p) = @_;
return unless @p;
my %params = @p;
foreach my $key (keys %params) {
my $value = $params{$key};
$key =~ s/^\-\-{0,1}//;
$self->{defaults}->{lc($key)} = $value;
}
} |
| Bio-GMOD-0.028 | Bio::GMOD::Util::CheckVersions | show |
| sub _check_version {
my ($self,$site,$url) = @_;
$url ||= $site;
my $version = $self->biogmod_version;
my $ua = LWP::UserAgent->new();
$ua->agent("Bio::GMOD::Util::CheckVersions/$version");
my $request = HTTP::Request->new('GET',$... |
| Bio-GMOD-0.028 | Bio::GMOD::Util::Rearrange | show |
| sub rearrange {
my($order,@param) = @_;
return unless @param;
my %param;
if (ref $param[0] eq 'HASH') {
%param = %{$param[0]};
} else {
return @param unless (defined($param[0]) && substr($param[0],0,1) eq '-');
my $... |
| Bio-GMOD-0.028 | Bio::GMOD::Util::Mirror | show |
| sub filemode {
my $self = shift;
my $symbolic = shift;
my (@modes) = $symbolic =~ /(...)(...)(...)$/g;
my $result;
my $multiplier = 1;
while (my $mode = pop @modes) {
my $m = 0;
$m += 1 if $mode =~ /[xsS]/;
$m += 2 if $mode =... |
| Bio-GMOD-0.028 | Bio::GMOD::Util::CheckVersions::WormBase | show |
| sub local_version {
my ($self,@p) = @_;
my ($path,$parent) = rearrange([qw/ACEDB_PATH PARENT/],@p);
my $adaptor = ($parent) ? $parent->adaptor : $self->adaptor;
$path ||= $adaptor->acedb_path . '/elegans';
my ($realdir,$modtime) = $self... |
| Bio-GMOD-0.028 | Bio::GMOD::Adaptor::FlyBase | show |
| sub AUTOLOAD {
my $self = shift;
my $attr = $AUTOLOAD;
$attr =~ s/.*:://;
return unless $attr =~ /[^A-Z]/;
return if $attr eq 'new';
$self->{uc($attr)} = shift if @_;
my $val = $self->{defaults}->{lc($attr)};
$val ||= $DEFAUL... |
| Bio-GMOD-0.028 | Bio::GMOD::Adaptor::generic | show |
| sub AUTOLOAD {
my $self = shift;
my $attr = $AUTOLOAD;
$attr =~ s/.*:://;
return unless $attr =~ /[^A-Z]/;
return if $attr eq 'new';
$self->{uc($attr)} = shift if @_;
my $val = $self->{defaults}->{lc($attr)};
$val ||= $DEFAUL... |
| Bio-GMOD-0.028 | Bio::GMOD::Adaptor::SGD | show |
| sub AUTOLOAD {
my $self = shift;
my $attr = $AUTOLOAD;
$attr =~ s/.*:://;
return unless $attr =~ /[^A-Z]/;
return if $attr eq 'new';
$self->{uc($attr)} = shift if @_;
my $val = $self->{defaults}->{lc($attr)};
$val ||= $DEFAUL... |
| Bio-GMOD-0.028 | Bio::GMOD::Adaptor::WormBase | show |
| sub AUTOLOAD {
my $self = shift;
my $attr = $AUTOLOAD;
$attr =~ s/.*:://;
return unless $attr =~ /[^A-Z]/;
return if $attr eq 'new';
$self->{uc($attr)} = shift if @_;
my $val = $self->{defaults}->{lc($attr)};
$val ||= $DEFAUL... |
| Bio-GMOD-0.028 | Bio::GMOD::Admin::Monitor | show |
| sub set_status {
my ($self,@p) = @_;
my ($timing,$msg,$status) = rearrange([qw/TIMING MSG STATUS/],@p);
$self->{$timing}->{status} = $status;
$self->{$timing}->{msg} = $msg;
if ($status eq 'up' || $status eq 'succeeded') {
$... |
| Bio-GMOD-0.028 | Bio::GMOD::Admin::Update | show |
| sub cleanup {
my ($self,@p) = @_;
my $tmp = $self->tmp_path;
$self->logit(-msg => "Cleaning up $tmp");
system("rm -rf $tmp/*");
} |
| Bio-GMOD-0.028 | Bio::GMOD::Admin::Archive | show |
| sub create_archive {
} |
| Bio-GMOD-0.028 | Bio::GMOD::Admin::Update::WormBase | show |
| sub clear_cache {
my ($self,@p) = @_;
my ($cache) = rearrange([qw/CACHE/],@p);
$self->logit(-msg => 'Clearing disk cache',
-emphasis => 1);
$cache ||= '/usr/local/wormbase/cache';
chdir $cache;
my @remove;
opendir(D,$c... |
| Bio-GMOD-0.028 | Bio::GMOD::Admin::Monitor::WormBase | show |
| sub restart_servers {
my ($self,@p) = @_;
my $blat = Bio::GMOD::Admin::Monitor::blat->new();
my ($blat_result,$blat_status) = $blat->restart();
my $acedb = Bio::GMOD::Admin::Monitor::acedb->new();
my ($ace_result,$ace_status) ... |
| Bio-GMOD-0.028 | Bio::GMOD::Admin::Archive | show |
| sub _adjust_symlink {
my $self = shift;
my $repository = $self->database_repository;
my $new_archive = $self->{to_package};
chdir($repository);
$new_archive =~ /WS(.*)/;
my $dev_version = $1;
my $live_version = 'WS' . ($dev... |
| Bio-Graphics-2.33 | Bio::Graphics::Glyph::allele_tower | show |
| sub draw_component {
my $self = shift;
my $gd = shift;
my $fg = $self->fgcolor;
my ($x1,$y1,$x2,$y2) = $self->calculate_boundaries(@_);
my $feature = $self->feature;
my @alleles = eval{$feature->get_tag_values('Alleles')};
@all... |
| Bio-MAGE-Utils-20030502.0 | Bio::MAGE::XML::Handler::DocumentHandler | show |
| sub characters {
Bio::MAGE::XML::Handler::characters(@_);
} |
| Bio-MCPrimers-2.5 | Bio::Data::Plasmid::CloningVector | show |
| sub cloning_vector_data {
my ( $vector_file_name,
$re_ra,
$re_name_rh,
$ecut_loc_ra,
$vcut_loc_ra
) = @_;
if (defined $ENV{"MCPRIMERS_DATA_DIR"}) {
if ($... |
| Bio-Metabolic-0.07 | Bio::Metabolic::Dynamics::Reaction | show |
| sub Bio::Metabolic::Reaction::fullinfo {
my $reaction = shift;
my $retstr;
my $subsdir = {
-1 => [],
1 => []
};
foreach my $dir ( -1, 1 ) {
foreach my $substrate ( $reaction->dir($dir)->list ) {
... |
| Bio-Metabolic-0.07 | Bio::Metabolic::Dynamics::Substrate | show |
| sub Bio::Metabolic::Substrate::release {
shift->var->value(undef);
} |
| Bio-Metabolic-0.07 | Bio::Metabolic::Dynamics::Network | show |
| sub Bio::Metabolic::Network::mfile {
my $network = shift;
my @substrates = ();
if (@_) {
if ( ref( $_[0] ) eq 'Bio::Metabolic::Substrate::Cluster' ) {
@substrates = shift->list;
}
elsif ( ref( $_[0] ) e... |
| Bio-NEXUS-0.78 | Bio::NEXUS::Tools::NexModifier | show |
| sub file_overwrite_warning {
my ($infile, $outfile, $command, $silentmode) = @_;
if ($silentmode == 1) {return 1}
if ($infile eq $outfile) {
warn("Do you really want to overwrite NEXUS file $infile with the $command output?\n");
if (&... |
| BioPerl-DB-1.006900 | Bio::DB::BioSQL::MultiDB | show |
| sub namespace{
my ($self, $value) = @_;
return $self->{'_namespace'} = $value if defined $value;
return $self->{'_namespace'};
} |
| Bit-Vector-Minimal-1.3 | Bit::Vector::Minimal | show |
| sub display {
my $self = shift;
return join "", map sprintf("%08b", ord $_), split //, $self->{pattern};
} |
| Bookmarks-Parser-0.07 | Bookmarks::Delicious | show |
| sub _parse_bookmarks
{
my ($self, $user, $password) = @_;
my $account = Net::Delicious->new({user => $user,
pswd => $password,
});
my @posts = $account->al... |
| Bot-BasicBot-Pluggable-Module-GitHub-0.04 | Bot::BasicBot::Pluggable::Module::GitHub::Announce | show |
| sub tick {
my $self = shift;
my $issue_state_file = 'last-issues-state.json';
my $seconds_between_checks = $self->get('poll_issues_interval') || 60 * 5;
return if time - $self->get('last_issues_poll') < $seconds_between_chec... |
| Bot-BasicBot-Pluggable-Module-RD-0.02 | Bot::BasicBot::Pluggable::Module::RD | show |
| sub despatch {
my $self = shift;
if ( exists $self->{__STRING1__} ) {
my $verb = $self->{__STRING1__};
my $class = Parse::RecDescent::Topiary::delegation_class( 'Command',
\@namespace, $verb );
my $meth ... |
| Boulder-1.30 | Boulder::Labbase | show |
| sub rearrange {
my($self,$order,@param) = @_;
return () unless @param;
return @param unless (defined($param[0]) && substr($param[0],0,1) eq '-')
|| $self->use_named_parameters;
my $i;
for ($i=0;$i<@param;$i+=2) {
$param[$... |
| Bryar-4.0 | Bryar::Comment::DBI | show |
| Build-PPK-0.01 | App::PPK::Deptool | show |
| sub run {
my ( $class, @args ) = @_;
my $action = shift @args;
usage() unless $action && $ACTIONS{$action};
my $deptool = Build::PPK::Deptool->new(
'dist_index' => $DEFAULT_DIST_INDEX,
'prog_index' => $DEFAULT_PR... |
| Bundle-WWW-Scraper-News-0.01 | WWW::Scraper::CNN | show |
| sub is_OK {
my ($self, $cs, $ds) = @_;
return (1, 'Registration Required')
if ($ds->{'content'} =~ m{<title>Please register</title>}si);
unless($ds->{content} =~ m{<div class="content">}si) {
return (99, 'Unknown Error');
... |
| Business-CCProcessor-0.09 | Business::CCProcessor | show |
| sub dia {
my $self = shift;
my $data = shift;
my $fields = {};
$fields->{'action'} = "https://secure.democracyinaction.com/dia/shop/processDonate.jsp";
$fields->{'donate_page_KEY'} = { type => 'hidden', name =>
'donate_page_KEY', va... |
| Business-CreditCard-Object-1.00 | Business::CreditCard::Object | show |
| sub type {
Business::CreditCard::cardtype(shift->number)
} |
| Business-ID-NPWP-0.03 | Business::ID::NPWP | show |
| sub _z { $_[0] > 9 ? $_[0]-9 : $_[0] } |
| Business-OnlinePayment-PPIPayMover-0.01 | Business::OnlinePayment::PPIPayMover::URLEncoder | show |
| sub Encode {
my $value = shift;
$value =~ s/([^a-zA-Z0-9_\-.])/uc sprintf("%%%02x",ord($1))/eg;
return $value;
} |
| Business-OnlinePayment-PPIPayMover-0.01 | Business::OnlinePayment::PPIPayMover::TransactionClient | show |
| sub GetErrorString
{
my $self = shift;
return $self->{strError};
} |
| Business-OnlinePayment-PPIPayMover-0.01 | Business::OnlinePayment::PPIPayMover::CreditCardResponse | show |
| sub GetPayerAuthenticationResponse {
my $self = shift;
$self->{oPayerAuthenticationResponse};
} |
| Business-OnlinePayment-PPIPayMover-0.01 | Business::OnlinePayment::PPIPayMover::CreditCardRequest | show |
| sub GetErrorString
{
my $self = shift;
return $self->{strError};
} |
| Business-OnlinePayment-PPIPayMover-0.01 | Business::OnlinePayment::PPIPayMover::SecureHttp | show |
| sub GetErrorString
{
my $self = shift;
return $self->{strError};
} |
| Business-OnlinePayment-PPIPayMover-0.01 | Business::OnlinePayment::PPIPayMover::CountryCodes | show |
| sub getCCodeFromCName {
my $country = shift;
$country = uc($country);
my $key;
my $countryName;
my $countryNumber;
foreach $key (keys(%CountryCodes::countryHash)){
($countryName, $countryNumber) = split(/:/, $CountryCodes::countryHash{$ke... |
| Business-OnlinePayment-PPIPayMover-0.01 | Business::OnlinePayment::PPIPayMover::TransactionRequest | show |
| sub GetTransResponseObject {
my $self = shift;
my $InString = shift;
return new Business::OnlinePayment::PPIPayMover::TransactionResponse($InString);
} |
| Business-OnlinePayment-PPIPayMover-0.01 | Business::OnlinePayment::PPIPayMover::TransactionResponse | show |
| sub WriteResponse {
my $self = shift;
my $outString = shift;
$self->{strResponseCodeText} =~ tr/\n/ /;
$self->{strTimeStamp} =~ tr/\n/ /;
$$outString .= "response_code=";
$$outString .= $self->{strResponseCode};
$$outString .= "\... |
| Business-OnlinePayment-PPIPayMover-0.01 | Business::OnlinePayment::PPIPayMover::PayerAuthenticationResponse | show |
| sub GetTransactionConditionCode {
my $self = shift;
$self->{strTransactionConditionCode};
} |
| Business-Paybox-1.0.1 | Business::PayBox | show |
| sub ask {
my $self = shift;
my $data = shift;
$self->{sock}->print("$data\n");
$self->{sock}->getline;
} |
| Business-Shipping-3.1.0 | Business::Shipping::Logging | show |
| sub log_level {
my ($class, $log_level) = @_;
return unless $log_level;
$log_level = lc $log_level;
my @levels = qw(fatal error warn info debug trace);
if (grep { $_ eq $log_level } @levels) {
$Current_Level = uc $log_level;
... |
| Business-Tax-VAT-Validation-DE-0.2 | Business::Tax::VAT::Validation::DE | show |
| sub bffcheck {
my $deVAT = shift || '';
my $myVAT = shift || '';
my $Firmenname = shift || '';
my $Ort = shift || '';
my $PLZ = shift || '';
my $Strasse = shift || '';
my $Druck = shift || '';
$Druck = "nein" if($Druck ne "nein" && $Druck ne "ja")... |
| CAD-Drawing-IO-OpenDWG-0.22 | CAD::Drawing::IO::OpenDWG | show |
| sub dwgtype {
my($type) = @_;
my %filetype = (
"dwg" => 0,
"dxf" => 1,
"bdxf" => 2,
);
my %fileversion = (
"2000" => 7,
"14" => 6,
"13" => 5,
"11" => 4,
"10" => 3,
"9" =>... |
| CDB_File-Generator-0.030 | CDB_File::Generator | show |
| sub gen_cdb_input ($$) {
my $key=shift;
my $value=shift;
return "+" . length($key) . "," . length($value) . ":"
. $key . "->" . $value . "\n";
} |
| CDP-0.032 | CDP::Connect | show |
| sub OpenCDP {
my ($cdp_url, $u_name, $pw, ) = @_;
my $control_server_url = "http://$u_name:$pw\@$cdp_url:8084/xmlrpc";
my $client = Frontier::Client->new(
'url' => $control_server_url,
'debug' => $debug,
... |
| CGI-AppToolkit-0.051 | CGI::AppToolkit | show |
| sub _clean_vars {
my $vars = ref $_[0] eq 'HASH' ? shift : {@_};
foreach my $key (keys %$vars) {
my $oldkey = $key;
$key =~ s/^-//;
$key = lc $key;
$vars->{$key} = delete $vars->{$oldkey} if $key ne $oldkey;
}
return $vars;
} |
| CGI-AppToolkit-0.051 | CGI::AppToolkit::Data::SQLObject | show |
| sub _make_where {
my $self = shift;
my $args = shift;
my $name = shift;
my $order = shift;
my $sql = '';
if ($name ne '-all') {
$sql .= ' where ';
my @where = ();
foreach my $key (sort keys %$args) {
next if $key =~ /^-/;
if (r... |
| CGI-Application-4.50 | CGI::Application | show |
| sub call_hook {
my $self = shift;
my $app_class = ref $self || $self;
my $hook = lc shift;
my @args = @_;
die "Unknown hook ($hook)" unless exists $INSTALLED_CALLBACKS{$hook};
my %executed_callback;
foreach my $callback (@{ $self-... |
| CGI-Application-Plugin-DBIProfile-0.07 | CGI::Application::Plugin::DBIProfile::Data | show |
| sub _read_files {
my $self = shift;
my $files = $self->{Files};
my $read_header = 0;
foreach my $filename (@$files) {
my $fh;
if (!ref($filename) && ref(\$filename) ne 'GLOB') {
$fh = gensym;
op... |
| CGI-Application-Plugin-TmplInnerOuter-1.13 | CGI::Application::Plugin::TmplInnerOuter | show |
| sub _tmplsetget_code {
my $self = shift;
my($code,$name);
for my $val (@_){
if( defined $val){
if ($val=~/^\w+\.html$/){{
$name = $val;
}
else {
$code =$val;
}
}
}
$n... |
| CGI-Application-Plus-1.21 | MagicWebApp | show |
| sub REQUEST_URI { $ENV{REQUEST_URI} } |
| CGI-Application-Plus-1.21 | MagicWebApp | show |
| sub REQUEST_URI { $ENV{REQUEST_URI} } |
| CGI-Bus-0.62 | CGI::Bus | show |
| sub AUTOLOAD {
my $s =shift;
my $m =substr($AUTOLOAD, rindex($AUTOLOAD, '::')+2);
$s->[0]->print($s->[0]->$m(@_));
} |
| CGI-Bus-0.62 | CGI::Bus::wg | show |
| sub _fsclose {
return(0) if $^O ne 'MSWin32';
my $mask =$_[1]||''; $mask =~s/\//\\/ig;
my $list =$_[2]||[];
my $o =eval('use Win32::OLE; Win32::OLE->Option("Warn"=>0); Win32::OLE->GetObject("WinNT://'
.(eval{Win32::NodeName()}||$ENV{COMPUTE... |
| CGI-Bus-0.62 | CGI::Bus::tmsql | show |
| sub fsscan {
my ($s,$opt) =@_;
$opt ='ft' if !$opt;
return if !$s->{-fsd};
$s->parent->w32IISdpsn(1) if ($ENV{SERVER_SOFTWARE}||'') =~/IIS/;
if ($opt =~/f/) {
foreach my $path ($s->{-fsd}->{-path}, $s->{-fsd}->{-vspath}){
... |
| CGI-Bus-0.62 | CGI::Bus::udata | show |
| sub uglist {
my ($s, $d, $l) =@_;
if (!defined($d)) {
$l =[];
$d ='';
$s->{-path} =$s->parent->dpath('udata') if !defined($s->{-path});
}
if (!$s->{-ksplit}) {
$l =[eval{$s->parent->fut->globn($s->{-pat... |
| CGI-Bus-0.62 | CGI::Bus::smtp | show |
| sub addrtr {
($_[1] =~/^([^\\]+)\\(.+)$/
? $2
: $_[1])
.((index($_[1],'@') <0) && $_[0]->{-domain}
? '@' .$_[0]->{-domain}
: '')
} |
| CGI-Bus-0.62 | CGI::Bus::upws | show |
| sub evaluate {
my $s =shift;
my $c =$s->qparam('login') ? 'LOGIN'
:$s->qparam('logout') ? 'LOGOUT'
:$s->qparam('usites') ? 'USITES'
:$s->qparam('search') ? 'SEARCH'
:$s->qparam('query') ? 'SEARCH'
:... |
| CGI-Bus-0.62 | CGI::Bus::uauth | show |
| sub loginscr {
my $s =shift;
my $o =shift ||'-lir';
my $g =$s->cgi;
my $rdr =$g->param($cooknme)||$ENV{HTTP_REFERER};
my $u;
my $d;
if ($o !~/l/) {
$g->param('UserInfo',1) if $o =~/i/;
$g->param('Register',1) if $o =~/r/;
... |
| CGI-Bus-0.62 | CGI::Bus::Base | show |
| sub lng {
$_[0]->{-lngbase} =$_[0]->parent->lngload($_[0]->class) if !$_[0]->{-lngbase};
my $r =$_[0]->{-lngbase};
$r = !defined($_[2]) ? $r->{$_[1]}
:!defined($r->{$_[2]}) ||!defined($r->{$_[2]}->[$_[1]]) ? $_[2]
... |
| CGI-Bus-0.62 | CGI::Bus::fut | show |
| sub fdumpstore {
my ($s,$f,$d) =@_;
$s->fstore('-',$f,$s->parent->dumpout($d))
} |
| CGI-Bus-0.62 | CGI::Bus::psp | show |
| sub parse {
my $s =shift;
my $opt =substr($_[0],0,1) eq '-' ? shift : '-';
my $i =$_[0];
my $o ='';
my ($ol,$or) =('','');
my ($ts,$tl,$ta,$tc) =('','','','');
if ($i =~/<(!DOCTYPE|html|head)/i && $`) {
$i ='<' .$1 .$'
... |
| CGI-Bus-0.62 | CGI::Bus::tm | show |
| sub cmdhlp {
my $s =shift;
my $p =$s->parent;
my $g =$p->cgi;
my $o =defined($_[0]) && substr($_[0],0,1) eq '-' ? shift : '-tolfc';
my $ta={-align=>'left',-valign=>'top'};
my $sh='';
if ($o =~/t/) {
$sh ='Help';
my $t =$s->p... |
| CGI-Bus-0.62 | CGI::Bus::file | show |
| sub dumpstore {
my ($s,$d) =@_;
$s->truncate(0);
$s->seek(0)->store('-',$s->parent->dumpout($d))
} |
| CGI-Bus-0.62 | CGI::Bus::lngbase::CGI_Bus_wg_ru | show |
| sub lngbase {
my @msg =CGI::Bus::lngbase::CGI_Bus_wg::lngbase;
push @msg,
('ddlbopen' =>['...', '�������']
,'ddlbfind' =>['..', '�����']
,'ddlbclose' =>['x', '�������']
,'ddlbsetvalue' =>['<', '��������� ������... |
| CGI-Bus-0.62 | CGI::Bus::lngbase::CGI_Bus_ru | show |
| sub lngbase {
my @msg =CGI::Bus::lngbase::CGI_Bus::lngbase;
push @msg,
('Warning' =>['��������������', '�������������� � �������������']
,'Error' =>['������', '������ ������������ ��� ����������']
);
@msg
} |
| CGI-Bus-0.62 | CGI::Bus::lngbase::CGI_Bus_upws | show |
| sub lngbase {
('WorkSpace' =>['WorkSpace', '']
,'Login' =>['Login', 'Login to the System']
,'Home' =>['Home', 'Home Page URL']
,'Overview' =>['Overview', 'Overview Page or Frameset']
,'Index' =>['Conte... |
| CGI-Bus-0.62 | CGI::Bus::lngbase::CGI_Bus_tm | show |
| sub lngbase {
(-nap=>['Top', 'The topmost level']
,-nup=>['Up', 'An upper level']
,-nth=>['Reset', 'This application default']
,-bck=>['Back', 'Back to previous screen']
,-lgn=>['Login', 'Login to the System']
,-lst=>['L... |
| CGI-Bus-0.62 | CGI::Bus::lngbase::CGI_Bus_wg | show |
| sub lngbase {
('ddlbopen' =>['...', 'open']
,'ddlbfind' =>['..', 'find']
,'ddlbclose' =>['x', 'close']
,'ddlbsetvalue'=>['<', 'set value']
,'Files' =>['Files', 'Files attached']
,'+|-' =>['+/-'... |
| CGI-Bus-0.62 | CGI::Bus::lngbase::CGI_Bus_tm_ru | show |
| sub lngbase {
my @msg =CGI::Bus::lngbase::CGI_Bus_tm::lngbase;
push @msg,
(-nap=>['����', '���孨� ����']
,-nup=>['����', '��襫���騩 ����']
,-nth=>['�����', '��� �ਫ������ ��-㬮�砭��']
,-bck=>['�����', '����� � �।���饬� ��࠭�']
,... |
| CGI-Bus-0.62 | CGI::Bus::lngbase::CGI_Bus_tmsql_ru | show |
| sub lngbase {
my @msg;
push @msg, CGI::Bus::lngbase::CGI_Bus_tmsql::lngbase;
push @msg,
(-nap=>['����', '������� �������']
,-nup=>['����', '����������� �������']
,-nth=>['�����', '��� ���������� ��-���������']
,-bck=>['�����'... |
| CGI-Bus-0.62 | CGI::Bus::lngbase::CGI_Bus | show |
| sub lngbase {
('Warning' =>['Warning','Trouble warning']
,'Error' =>['Error', 'User or Software error']
)
} |
| CGI-Bus-0.62 | CGI::Bus::lngbase::CGI_Bus_upws_ru | show |
| sub lngbase {
my @msg =CGI::Bus::lngbase::CGI_Bus_upws::lngbase;
push @msg,
('WorkSpace' =>['WorkSpace', '']
,'Login' =>['�����', '����� � �������']
,'Home' =>['������', '��������� URL']
,'Overview' =>['�����', ... |
| CGI-Bus-0.62 | CGI::Bus::lngbase::CGI_Bus_tmsql | show |
| sub lngbase {
my @msg;
push @msg,
(-nap=>['Top', 'The topmost level']
,-nup=>['Up', 'An upper level']
,-nth=>['Reset', 'This application default']
,-bck=>['Back', 'Back to previous screen']
,-lgn=>['Login', 'Login to the S... |
| CGI-JSONRPC-0.11 | Apache2::JSONRPC | show |
| sub apache2_read_post {
my($self, $r) = @_;
my $length;
unless($length = $r->headers_in->{'Content-Length'}) {
$r->log_error("No JSONRPC content sent!");
return;
}
my $buffer = "";
my $actual = $r->... |
| CGI-JSONRPC-0.11 | Apache2::JSONRPC::Session | show |
| sub _have_cookie {
my ($self,$r) = @_;
if(my $cookie_jar = CGI::Cookie->fetch($r)) {
if($cookie_jar->{CGISESSID}) {
return $cookie_jar->{CGISESSID}->value;
}
}
return;
} |
| CGI-JSONRPC-0.11 | CGI::JSONRPC | show |
| sub handler {
my($class, $cgi,@args) = @_;
$cgi ||= CGI->new;
my $self = $class->new(
path => $cgi->url(-absolute => 1, -full => 0, -path_info => 0),
path_info => $cgi->path_info(),
... |
| CGI-JSONRPC-0.11 | CGI::JSONRPC::Obj | show |
| sub jsonrpc_javascript {
my $self = shift;
return $self->js_class
} |
| CGI-JSONRPC-0.11 | CGI::JSONRPC::Dispatcher | show |
| sub AUTOLOAD {
my($class, $id, $to) = splice(@_, 0, 3);
(my $method_name = $AUTOLOAD) =~ s{^.*::}{};
die "Can't call a $method_name without a class\n" unless $to;
$to =~ s{[\./]}{::}g;
die "$to\::$method_name may not be dispatched\n" if $Protect... |
| CGI-JSONRPC-0.11 | CGI::JSONRPC::Base | show |
| sub jsonrpc_javascript {
my $self = shift;
my $fh;
open($fh, '<', $JAVASCRIPT) or die $!;
my @rv = <$fh>;
if($self->{path}) {
push(@rv, "\nJSONRPC.URL = '$self->{path}';\n");
}
return join('', @rv);
} |
| CGI-JSONRPC-0.11 | CGI::JSONRPC::Session | show |
| sub default_dispatcher {
'CGI::JSONRPC::Dispatcher::Session'
} |
| CGI-JSONRPC-0.11 | CGI::JSONRPC::Dispatcher::Session | show |
| sub AUTOLOAD {
my($jsonrpco, $id, $to) = splice(@_, 0, 3);
(my $method = $AUTOLOAD) =~ s{^.*::}{};
die "Can't call a method without a package" unless $to;
$to =~ s{\.}{::}g;
my $object = $to->jsonrpc_new($id,$jsonrpco->{session})... |
| CGI-JSONRPC-0.11 | CGI::JSONRPC::Session::Obj | show |
| sub jsonrpc_javascript {
my $self = shift;
return '';
} |
| CGI-Portal-0.12 | CGI::Portal | show |
| sub activate {
my $conf = shift;
my $e;
my $cl;
my $cgi = new CGI();
my @v = $cgi->param;
my %in;
foreach my $f (@v){
my $v = $cgi->param($f);
$v =~ s/<.*\r*\n*.*>//g;
$in{$f} = $v;
}
my $rdb = CGI::Portal::RDB... |
| CGI-Portal-0.12 | CGI::Portal::RDB | show |
| sub exec {
my ($self, $sql) = @_;
unless ($self->{'dbh'}){return;}
my $sth = $self->{'dbh'}->prepare($sql);
$sth->execute();
return $sth;
} |
| CGI-Portal-0.12 | CGI::Portal::Sessions | show |
| sub getcookie {
my $cookiename = shift;
my $cookie;
my $value;
if ($ENV{'HTTP_COOKIE'}) {
foreach (split(/; /,$ENV{'HTTP_COOKIE'})) {
($cookie,$value) = split(/=/);
if ($cookiename eq $cookie) {
return $value;
}
}... |
| CGI-Portal-0.12 | CGI::Portal::Scripts::Header | show |
| CGI-Portal-0.12 | CGI::Portal::Scripts::logon | show |
| sub launch {
my $self = shift;
$self->authenticate_user();
if ($self->{'user'}){
$self->assign_tmpl($self->{'conf'}{'logon_success_html'});
}
} |
| CGI-Portal-0.12 | CGI::Portal::Scripts::emailpw | show |
| sub launch {
my $self = shift;
$self->assign_tmpl("emailpw.html");
} |
| CGI-Portal-0.12 | CGI::Portal::Scripts::profile | show |
| sub input_html {
my $self = shift;
my @states = qw(Other AL AK AZ AR CA CO CT DC DE FL GA HI ID IL IN IA KS KY LA ME MD MA MI MN MS MO MT NE NV NH NJ NM NY NC ND OH OK OR PA RI SC SD TN TX UT VA VT WA WV WI WY);
my $c = 0;
foreach my $f (@{$self-... |
| CGI-Portal-0.12 | CGI::Portal::Scripts::logoff | show |
| sub launch {
my $self = shift;
$self->authenticate_user();
if ($self->{'user'}){
$self->logoff;
$self->{'tmpl_vars'}{'result'} = "You are logged off.";
}
$self->assign_tmpl("Sessions.html");
} |
| CGI-Portal-0.12 | CGI::Portal::Scripts::register | show |
| sub html_form {
my $self = shift;
return <<EOF;
} |
| CGI-Portal-0.12 | CGI::Portal::Scripts::Footer | show |
| CGI-Portal-0.12 | CGI::Portal::Scripts::changepw | show |
| sub launch {
my $self = shift;
$self->authenticate_user();
if ($self->{'user'}){
$self->assign_tmpl("changepw.html");
}
} |
| CGI-Portal-0.12 | CGI::Portal::Controls::logon | show |
| sub launch {
my $self = shift;
$self->authenticate_user();
if ($self->{'user'}){
}
$self->CGI::Portal::Scripts::logon::launch();
return;
} |
| CGI-Portal-0.12 | CGI::Portal::Controls::emailpw | show |
| sub mailit {
my $recipient = shift;
my $sender = shift;
my $subject = shift;
my $message = shift;
open(MAIL, "|/usr/lib/sendmail -t");
print MAIL "To: $recipient\n";
print MAIL "From: $sender\n";
print MAIL "Subject: $subject\n\n";
print... |
| CGI-Portal-0.12 | CGI::Portal::Controls::profile | show |
| sub input_error {
my ($self, @requireds) = @_;
my $input_error = 0;
foreach my $required (@requireds) {
if (!$self->{'in'}{$required}){
$self->{'tmpl_vars'}{"${required}_msg"} = "Field is required";
$input_error = 1;
}
... |
| CGI-Portal-0.12 | CGI::Portal::Controls::logoff | show |
| sub launch {
my $self = shift;
$self->authenticate_user();
if ($self->{'user'}){
$self->logoff;
$self->{'tmpl_vars'}{'result'} = "You are logged off.";
}
$self->CGI::Portal::Scripts::logon::launch();
return;
} |
| CGI-Portal-0.12 | CGI::Portal::Controls::register | show |
| sub register_error {
my ($self) = @_;
my $input_error = 0;
my $r = $self->{'rdb'}->exec("select $self->{'conf'}{'user_index_field'} from $self->{'conf'}{'user_table'} where $self->{'conf'}{'user_user_field'} like " . $self->{'rdb... |
| CGI-Portal-0.12 | CGI::Portal::Controls::changepw | show |
| sub chpss_error {
my ($self) = @_;
my $input_error = 0;
if ($self->{'in'}{'passw'} && md5_hex($self->{'in'}{'passw'}) ne $passw) {
$self->{'tmpl_vars'}{'passw_msg'} = "Incorrect Password";
$input_error = 1;
}
if ($self->{... |
| CGI-Session-YAML-0.3 | CGI::Session::YAML | show |
| sub commit
{
my $self = shift;
my $file = $self->{sessiondir} . '/' . $self->{sessionid};
YAML::DumpFile($file, $self->{paramshash});
} |
| CGI-Uploader-2.18 | CGI::Uploader::Transform::ImageMagick | show |
| sub _load_magick_module {
my $module_name = shift;
return eval "require $module_name";
} |
| CGI-Widget-0.15 | CGI::Widget::HList::Node | show |
| sub dump_names {
my($it, %o) = @_;
my @out = ();
$o{_depth} ||= 0;
$o{spacer} ||= sub {return "z"};
$o{trunk} ||= sub {return "|"};
$o{branch} ||= sub {return "="};
$o{node} ||= sub {return "O "};
$o{break} ||= "\n";
$o{ca... |
| CGI-Wiki-Simple-0.12 | CGI::Wiki::Simple::Setup | show |
| sub commit_content {
my %args = @_;
my $wiki = $args{wiki};
croak "No wiki passed in the 'wiki' parameter"
unless $wiki;
my @nodes = @{$args{nodes}};
foreach my $node (@nodes) {
my $title = $node->{title};
my %old_node = $wiki-... |
| CGIGraph-0.93 | CGI::Graph::Plot::bars::numerical | show |
| sub valuesInRange {
my $self = shift;
my (@dataX,@drawX,@dataY,@selectDraw);
if ($self->{histogram_type} eq "fixed") {
my ($Xref,$Yref,$Sref) = $self->count();
my @X = @$Xref;
my @Y = @$Yref;
my @S = @$Sref;
... |
| CLI-Framework-0.05 | CLI::Framework::Command::Alias | show |
| sub format_name_to_aliases_hash {
my ($self, $h, $indent) = @_;
$indent ||= 10;
my $format = '%'.$indent."s: %s\n";
my @output;
for my $command (keys %$h) {
push @output, sprintf
$format, $command, join( ', ', @{$... |
| CM-Permutation-0.94 | CM::EquivalenceClass | show |
| sub equal {
my ($x,$y) = @_;
return 1 if $x->representant == $y->representant;
return (
Set::Scalar->new(@{$x->elements}) *
Set::Scalar->new(@{$y->elements})
)->size;
} |
| CMD-Colors-0.1 | CMD::Colors | show |
| sub getCodeForColor {
my ($color, $type, $garb) = @_;
$type = 'foreground' if (!$type);
$color = lc $color;
$type = lc $type;
return ( $COLOR_CODES{$type}{$color} ? $COLOR_CODES{$type}{$color} : $COLOR_CODES{$type}{'default'} );
... |
| CNAB-0.01 | CNAB | show |
| sub parse_cnab{
my @content = split("\n",shift @_);
my $output = shift @_;
if(scalar @content == 0){ return 0; }
if(!defined($output)){ return 0; }
my @records;
my $cnab_version;
my $file_type;
my $file_sequence;
my $batch_type;
my ... |
| CORBA-IDL-2.64 | CORBA::IDL::Node | show |
| sub _Init {
my $self = shift;
my ($parser) = @_;
$self->line_stamp($parser);
} |
| CORBA-MICO-0.6.7 | CORBA::MICO::Hypertext | show |
| sub set_curs {
my ($w, $cbdata) = @_;
my (undef, $x, $y, undef) = $w->window->get_pointer();
($x, $y) = $w->window_to_buffer_coords('widget', $x, $y);
my $iter = $w->get_iter_at_location ($x, $y);
return 0 unless $iter;
my $cursha... |
| CORBA-MICO-0.6.7 | CORBA::MICO::IR2Dia | show |
| sub attr_bool {
my ($id, $name, $val) = @_;
my $cval = $val ? 'true' : 'false';
my $line = "<dia:boolean val=\"$cval\"/>";
dia_attr($id, $name, $line);
} |
| CORBA-MICO-0.6.7 | CORBA::MICO::Pixtree | show |
| sub construct_tree {
my ($nodes, $level, $min_off, $max_off, $levels, $tree_desc) = @_;
foreach my $node (@$nodes) {
prepare_node($node, $level, $min_off, $max_off, $levels, $tree_desc);
}
} |
| CORBA-MICO-0.6.7 | CORBA::MICO::Misc | show |
| sub ctree_kpress {
my ($w, $event, $ud) = @_;
my $key = Gtk2::Gdk->keyval_name($event->keyval());
if( $key eq 'f' ) {
$ud->{REGEXP} = 0;
}
elsif( $key eq 'r' ) {
$ud->{REGEXP} = 1;
}
else {
return 0;
}
my $st = $e... |
| CORBA-omniORB-0.9 | omnithreads::shared | show |
| sub omnithreads::shared::tie::SPLICE
{
die "Splice not implemented for shared arrays";
} |
| CPAN-CachingProxy-1.6500 | CPAN::CachingProxy | show |
| sub my_copy_hdr {
my ($this, $res, $hit) = @_;
my $cgi = $this->{cgi};
my $status = $res->status_line;
warn "[DEBUG] cache status: $hit; status: $status\n" if $this->{debug};
my %more_headers = (qw(accept_ranges bytes));
... |
| CPAN-DistroBuilder-0.01 | CPAN::DistroBuilder | show |
| sub report {
print STDERR "+++ $_[0]\n";
} |
| CPAN-Metadata-RDF-1.11 | CPAN::Metadata::RDF | show |
| sub is_beta {
my($self, $distfile) = @_;
my %info = ( beta => "0" );
$distfile =~ s,//+,/,g;
(my $path = $distfile) =~ s,^(((.*?/)?authors/)?id/)?./../,,;
if ($path =~ s,^((([^/])[^/])[^/]*)/,,) {
@info{qw(cpanid dir filename)} = ($1, ... |
| CPAN-Testers-Data-Uploads-Mailer-0.04 | CPAN::Testers::Data::Uploads::Mailer | show |
| sub _help {
my $full = shift;
if($full) {
print <<HERE;
}
print "$0 v$VERSION\n";
exit(0);
} |
| CPAN-Unpack-0.31 | CPAN::Unpack | show |
| sub unpack {
my $self = shift;
my $counter = 0;
my $cpan = $self->cpan;
die "No $cpan" unless -d $cpan;
my $destination = $self->destination;
mkdir $destination;
die "No $destination" unless -d $destination;
my ... |
| CPU-Z80-Assembler-2.13 | CPU::Z80::Assembler::List | show |
| sub _format_line { my($self, $address, $line) = @_;
$address ||= 0;
my $text = $line->text;
$text = expand($text);
$text =~ s/\s+$//;
substr($text, 34) = ' ...' if(length($text) > 37);
return sprintf("0x%04X: %-38s | ", $address, $text... |
| CSS-1.09 | CSS::Parse::CompiledGrammar | show |
| sub new { my $self = bless( {
'_precompiled' => 1,
'localvars' => ' $all_rulesets $ruleset $value',
'startcode' => '',
'namespace' => 'Parse::RecDescent::CSS::Parse::CompiledG... |
| Cache-AgainstFile-1.016 | Cache::AgainstFile::Base | show |
| sub DUMP {} |
| Cache-Cache-1.06 | Cache::NullCache | show |
| sub set_auto_purge_on_get
{
} |
| Cache-Memcached-Managed-0.24 | Cache::Memcached::Managed | show |
| sub _spec2servers {
my ( $spec, $recursing ) = @_;
my $type = reftype $spec;
if ( !defined $type ) {
return [ split ',', $spec ];
}
elsif ( $type eq 'ARRAY' ) {
return $spec;
}
die "Don't know how to handle '... |
| Cache-Memcached-Managed-0.24 | Cache::Memcached::Managed::Inactive | show |
| sub inactive { 1 } |
| Cache-Memcached-Managed-0.24 | Cache::Memcached::Managed::Multi | show |
| sub objects { @{$_[0]} } |
| Carp-Trace-0.12 | Carp::Trace | show |
| sub trace {
my $level = shift || $DEPTH || 0;
my $offset = shift || $OFFSET || 0;
my $args = shift || $ARGUMENTS || 0;
my $trace = '';
my $i = 1 + $OFFSET;
while (1) {
last if $level && $level < $i;
... |
| Catalog-1.02 | Catalog::tools::cgi | show |
| sub myunescapeHTML {
my($string) = @_;
return undef if(!defined($string));
$string =~ s[&(.*?);]{
local $_ = $1;
/^amp$/i ? "&" :
/^quot$/i ? '"' :
/^gt$/i ? ">" :
/^lt$/i ? "<" :
/^#(\d+)$/ ? chr($1) :
/^#x([0-9a-f]+)$/i... |
| Catalyst-Plugin-Config-JSON-0.03 | Catalyst::Plugin::Config::JSON | show |
| sub setup {
my $c = shift;
my $config_file = $c->config->{'config_file'} || 'config.json';
$config_file = file($c->config->{'home'}, $config_file) unless file($config_file)->is_absolute;
open CONFIG, "<$config_file"
or die "fail... |
| Catalyst-Plugin-Config-YAML-0.04 | Catalyst::Plugin::Config::YAML | show |
| sub setup {
my $c = shift;
my @config_files;
if ( defined $c->config->{'config_file'} && ref $c->config->{'config_file'} eq 'ARRAY' ) {
@config_files = @{$c->config->{'config_file'}};
} else {
my $config_file = $c->config->... |
| Catalyst-Plugin-Geography-0.03 | Catalyst::Plugin::Geography | show |
| sub geography {
my $c = shift;
unless ( $c->{geography} ) {
$c->{geography} = Catalyst::Plugin::Geography::Implementation->new($c);
}
return $c->{geography};
} |
| Catalyst-Plugin-SanitizeUrl-0.2.1 | Catalyst::Plugin::SanitizeUrl::PrepAction | show |
| sub prepare_action {
my $c = shift;
my $path;
my @path = @{$c->get_action_path};
$c->req->args( \my @args );
while (@path) {
$path = join '/', @path;
if ( my $result = ${ $c->get_action($path) }[0] )... |
| Catalyst-Plugin-Session-PSGI-0.0.2 | Catalyst::Plugin::Session::State::PSGI | show |
| sub delete_session_id { } |
| CatalystX-ExtJS-2.1.3 | MyApp::Controller::Calculator | show |
| sub echo : Local : Direct : DirectArgs(1) {
my ($self, $c) = @_;
$c->res->content_type('application/json');
$c->res->body(encode_json($c->req->data));
} |
| CatalystX-OAuth2-Provider-0.0005 | CatalystX::OAuth2::Provider::Controller::OAuth | show |
| sub authorize
:Chained('logged_in_required')
:PathPart('authorize')
:Args(0)
{
my ( $self, $ctx ) = @_;
if ( $ctx->req->method eq 'GET' ) {
$ctx->stash( authorize_endpoint => $ctx->uri_for_action($ctx->action... |
| CfgTie-0.41 | Secure::File | show |
| sub handle_check
{
my $Handle = shift;
my @S2 = $Handle->stat;
return 0 unless @S2;
if ($_[0] != $S2[0] || $_[1] != $S2[1] || $_[6] != $S2[6]) {return 0;}
1;
} |
| CfgTie-0.41 | CfgTie::TieRsrc | show |
| sub STORE
{
setrlimits($K->{$_[1]}, $_[2]->[0],$_[2]->[1]);
} |
| CfgTie-0.41 | CfgTie::TiePh | show |
| sub cfg_end
{
my $self=shift;
my $Path='./';
$_ = $self->{Path};
if (/^(.*\/)[^\/]$/) {$Path = $1;}
CfgTie::Cfgfile::system('cd '.$Path.'db;credb 10240 prod;maked prod <'.
$self->{Path}.
';makei prod;build -s prod');
} |
| CfgTie-0.41 | CfgTie::TieUser | show |
| sub format($$)
{
"$_[1]: ".join(',',@{$_[1]})."\n";
} |
| CfgTie-0.41 | CfgTie::TieMTab | show |
| sub FETCH {$CfgTie::TieMTab::by_dev{$_[1]};} |
| CfgTie-0.41 | CfgTie::TieGroup | show |
| sub format($$)
{
"$_[1]: ".join(',',@{$_[1]})."\n";
} |
| CfgTie-0.41 | CfgTie::TieShadow | show |
| sub DELETE
{
my ($self, $key) = @_;
my $lkey=lc($key);
if ($key eq 'authmethod')
{
system "$shadowmod -A DEFAULT ".$self->{name};
}
elsif (exists $shadowmod_opt->{$key})
{
system "$shadow... |
| Cheater-0.10 | Cheater::Parser | show |
| sub new { my $self = bless( {
'_precompiled' => 1,
'localvars' => '',
'startcode' => '',
'namespace' => 'Parse::RecDescent::Cheater::Parser',
'rules' => {
... |
| Chemistry-Reaction-0.02 | Chemistry::Reaction | show |
| sub reverse {
my ($react, $mol, @map) = @_;
my %occ;
for (my $i = 0; $i < $react->atoms; $i++) {
$occ{$react->atoms($i+1)} = $map[$i];
}
foreach my $bond ($react->bonds) {
my @atoms = $bond->atoms;
my $a1 = $atoms[... |
| Chemistry-Ring-0.20 | Chemistry::Ring | show |
| sub aromatize_mol {
my ($mol) = @_;
require Chemistry::Ring::Find;
$_->aromatic(0) for ($mol->atoms, $mol->bonds);
my @rings = Chemistry::Ring::Find::find_rings($mol);
$mol->attr("ring/rings", \@rings);
$_->attr("... |
| Chemistry-Smiles-0.13 | Chemistry::Smiles | show |
| sub end_branch {
my $self = shift;
pop @{$self->{stack}};
} |
| Chess-0.6.2 | Chess::Piece | show |
| sub reachable_squares {
croak "Call to abstract method Chess::Piece::reachable_squares()";
} |
| Cindy-0.19 | Cindy::CJSGrammar | show |
| sub new { my $self = bless( {
'localvars' => '',
'startcode' => '',
'namespace' => 'Parse::RecDescent::Cindy::CJSGrammar',
'rules' => {
'full_inj... |
| Cisco-ShowIPRoute-Parser-1.02 | ExecCmds::Utility | show |
| sub REAPER {
my $stiff;
while (($stiff = waitpid(-1, WNOHANG())) > 0) {
$ccount--;
}
$SIG{CHLD} = \&REAPER;
} |
| Citrix-0.25 | Citrix::Farm | show |
| sub getfarminfo {
my ($fc) = @_;
my $usehost = $fc->masterhost();
my $cmd = "rsh $usehost $Citrix::binpath/ctxqserver -app";
local $SIG{'ALRM'} = sub {die("RSH Timeout\n");};
alarm(8);
my $fh;
eval {
my $ok = open($fh, "$cm... |
| Class-DBI-Extension-0.01 | Class::DBI::Extension | show |
| sub unlock_table {
my $class = shift;
$class->sql_UnlockTable->execute;
} |
| Class-DBI-Pg-0.08 | Class::DBI::Pg | show |
| sub pg_version {
my $class = shift;
my %args = @_;
my $dbh = $class->db_Main;
my $sth = $dbh->prepare("SELECT version()");
$sth->execute;
my ($ver_str) = $sth->fetchrow_array;
$sth->finish;
my ($ver) = ... |
| Class-DBI-Plugin-Senna-0.01 | Class::DBI::Plugin::Senna | show |
| sub delete_all
{
my $self = shift;
$self->count or return;
$self->first->delete;
while (my $obj = $self->next) {
$obj->delete;
}
1;
} |
| Class-DBI-Sybase-0.5 | Class::DBI::Sybase | show |
| sub find_column
{
my ($self, $name) = @_;
return $name if ref $name;
return unless $self->{_allcol}->{ $name };
} |
| Class-Data-Accessor-0.04004 | Class::Data::Accessor | show |
| sub mk_classaccessors {
my ($declaredclass, @attributes) = @_;
foreach my $attribute (@attributes) {
$declaredclass->mk_classaccessor($attribute);
}
} |
| Class-Delegator-0.09 | Class::Delegator | show |
| sub _die {
require Carp;
Carp::croak(@_);
} |
| Class-ExtraAttributes-0.02 | Class::ExtraAttributes | show |
| Class-Factory-Util-1.7 | Class::Factory::Util | show |
| sub _scandir
{
my $dir = shift;
return unless -d $dir;
opendir DIR, $dir
or confess ("Cannot open directory $dir: $!");
my @packages =
( map { substr($_, 0, length($_) - 3) }
grep { substr($_, -3) eq '.pm' && -f "$dir... |
| Class-Field-0.15 | Class::Field | show |
| sub paired_arguments { () } |
| Class-Indexed-0.01 | Class::Indexed::Words | show |
| sub get_words {
my $text = shift;
warn "get_swords : $text \n";
my @words = split(/[^a-z0-9\xc0-\xff\+\_\-]+/, lc $text);
warn "words : ", @words, "\n";
@words = grep { s/[^a-z0-9\xc0-\xff\+\_\-]+//; $_ } grep { length > 1 } grep { ... |
| Class-Interface-1.01 | Car::BMW | show |
| sub runCar {
my ( $self ) = @_;
my $speed = $self->speed || 120;
return "Look... I am flying over the german speeeeeedways @ $speed kmh"
} |
| Class-IntrospectionMethods-1.003 | Class::IntrospectionMethods | show |
| sub object_tie_list
{
my ($user_options, @args) = @_;
warn_obsolete( "object_tie_list is deprecated. Please use array instead");
my @new ;
while (@args)
{
my $h = shift @args ;
my $slot = delete $h->{slot}
or croak "ob... |
| Class-PINT-0.01 | Class::PINT::DataTypes::Bitmask | show |
| sub _dec2bin {
my ($value,$size) = @_;
$size ||= 32;
my $decstring = 0;
if ($size > 32) {
$decstring = unpack("B$size", pack("N", $value));
} else {
my $bignum = $value = new Math::BigInt ("0b".substr("0" x LENGTH . $value, - LENG... |
| Class-Phrasebook-0.88 | Class::Phrasebook::SQL | show |
| sub called_by {
my $depth = 2;
my $args;
my $pack;
my $file;
my $line;
my $subr;
my $has_args;
my $wantarray;
my $evaltext;
my $is_require;
my $hints;
my $bitmask;
my @subr;
my $str = "";
... |
| Class-SingletonMethod-1.0 | Class::SingletonMethod | show |
| sub singleton_method {
my ($object, $method, $subref) = @_;
my $parent_class = ref $object;
my $new_class = "_Singletons::".(0+$object);
*{$new_class."::".$method} = $subref;
if ($new_class ne $parent_class) {
@{$new_cla... |
| Class-WeakSingleton-1.05 | Class::WeakSingleton | show |
| sub _new_instance {
my $class = shift;
return bless {}, $class;
} |
| Clipboard-0.13 | Clipboard::MacPasteboard | show |
| sub paste {
my $self = shift;
return scalar $board->paste();
} |
| Clipboard-0.13 | Clipboard::Win32 | show |
| sub paste {
my $self = shift;
$board->Get();
} |
| CogBase-0.10 | CogBase | show |
| sub connect {
my ($class, $path) = @_;
my $connection_class = $class->connection_class;
eval "require $connection_class; 1"
or die $@;
$connection_class->connection($path);
} |
| Config-ApacheExtended-1.16 | Config::ApacheExtended::Grammar | show |
| sub new { my $self = bless( {
'_AUTOTREE' => undef,
'localvars' => '',
'startcode' => '',
'_check' => {
'thisoffset' => '',
... |
| Config-Augeas-Exporter-v1.0.0 | Config::Augeas::Exporter | show |
| sub stat_to_xml {
my ($self, $path) = @_;
my $aug_root = $self->{aug_root};
my %stat;
($stat{dev}, $stat{ino}, $stat{mode}, $stat{nlink},
$stat{uid}, $stat{gid}, $stat{rdev}, $stat{size},
$stat{atime}, $stat{mtime}, $stat{ctime},
... |
| Config-Checker-0.42 | Config::YAMLMacros | show |
| sub get_config
{
my ($config_file, %opts) = @_;
my $raw = read_file($config_file);
my @sections = split(/^---\n/m, $raw);
my %metakeys = (
EVAL_REPLACE => 'do string replacements with evaluated perl',
REPLACE => 'do string replacements',
... |
| Config-Find-0.26 | Config::Find::Where | show |
| sub parse_opts {
my ($class, %opts)=@_;
my ($name, $more_name, $create, $dn, $scope);
$dn=$opts{dir};
$create=$opts{create};
if (defined $opts{name}) {
$opts{name}=~m{^([^/]*)(?:/(.*))?$}
or croak "invalid name '$opts{name}' spe... |
| Config-Grammar-1.10 | Config::Grammar::Dynamic | show |
| sub parse($$)
{
my $self = shift;
my $file = shift;
$self->{cfg} = {};
$self->{level} = 0;
$self->{cfg_stack} = [];
$self->{grammar_stack} = [];
$self->{file_stack} = [];
$self->{... |
| Config-Magic-0.801 | Config::Magic::Grammar | show |
| sub new { my $self = bless( {
'_AUTOTREE' => undef,
'localvars' => '',
'startcode' => '',
'_check' => {
'thisoffset' => '',
... |
| Constant-Generate-0.16 | Constant::Generate | show |
| sub import {
my ($cls,$symspecs,%opts) = @_;
return 1 unless $symspecs;
my $reqpkg = caller();
my $type = utype2const(_getopt(%opts, "type"));
my $mapname = _getopt(%opts, "mapname");
my $export_tag = _getopt(%opts, "tag");
my $prefix =... |
| Constant-Generate-0.16 | Constant::Generate::Dualvar::_Overloaded | show |
| sub import {
my ($cls,$symspec,%options) = @_;
if($symspec) {
require 'Constant/Generate.pm';
$options{dualvar} = 1;
@_ = ('Constant::Generate', $symspec, %options);
goto &Constant::Generate::import;
} else {
... |
| Context-Handle-0.01 | Context::Handle | show |
| sub return {
my $self = shift;
Want::double_return();
$self->value;
}
__PACKAGE__ |
| Contextual-Call-0.01 | Contextual::Call | show |
| sub result
{
my $this = shift;
my $wantarray = $this->{context};
if( $wantarray )
{
@{$this->{result}};
}elsif( defined($wantarray) )
{
$this->{result}->[0];
}else
{
return;
}
} |
| Continuity-Widget-0.01 | Page | show |
| sub wiki2html {
my ($self, $content) = @_;
$content =~ s/\n\n/\n<p>\n/g;
$content =~ s/\[([^\]]+)\]/<a href="?page=$1">$1<\/a>/g;
return $content;
} |
| Convert-IBM390-0.27 | Convert::IBM390::CP00275 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.27 | Convert::IBM390::CP00284 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.27 | Convert::IBM390::CP01142 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.27 | Convert::IBM390::CP00273 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.27 | Convert::IBM390::CP00278 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.27 | Convert::IBM390::CP01148 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.27 | Convert::IBM390::CP01143 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.27 | Convert::IBM390::CP00281 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.27 | Convert::IBM390::CP00037 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.27 | Convert::IBM390::CP00280 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.27 | Convert::IBM390::CP00277 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.27 | Convert::IBM390::CP01147 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.27 | Convert::IBM390::CP00285 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.27 | Convert::IBM390::CP01149 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.27 | Convert::IBM390::CP00500 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.27 | Convert::IBM390::CP01141 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.27 | Convert::IBM390::CP01145 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.27 | Convert::IBM390::CP01140 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.27 | Convert::IBM390::CP00297 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.27 | Convert::IBM390::CP01144 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.27 | Convert::IBM390::CP01146 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.27 | Convert::IBM390::CP00282 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.27 | Convert::IBM390::CP01047 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.27 | Convert::IBM390::CP00871 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-Number-Greek-0.02a | Convert::Number::Greek | show |
| sub greek2num ($;$) {
my($n,$ret,$thousands,$digit) = $_[0];
$n =~ s/^\s+//;
while (length $n) {
$thousands = $n =~ s/^([͵,]+)// && length $1;
if($n =~ s/^στ//i) {
$digit = 6;
}
elsif(exists $greek_digit_2_num{substr $n,0,1}) {
$digit =... |
| Convert-Translit-1.03 | Convert::Translit | show |
| sub transliterate {
my $self = ($#_ > 0) ? shift : 0;
my $arref = $self ? \@{$self->{TRN_ARY}} : \@transform;
my @xx = unpack "C*", $_[0];
my $yy = "";
foreach ( @xx ) {
$yy .= pack "C", @$arref[$_];
}
return $yy;
} |
| CryoTel-CryoCon-0.0.6 | CryoTel::CryoCon | show |
| sub getcc{
my $arg = shift;
my $sock = IO::Socket::INET->new(PeerAddr => '192.168.0.5',
PeerPort => '5000',
Proto => 'tcp',
Type => SOCK_STREAM)
or
die ... |
| Crypt-DNASequence-0.2 | Crypt::DNASequence | show |
| sub _random_assign {
my $key = shift;
my $value = shift;
if(rand() < 0.5) {
return ($key->[0] => $value->[0],
$key->[1] => $value->[1]);
}
else {
return ($key->[1] => $val... |
| Crypt-HCE_SHA-0.70 | Client | show |
| sub send {
my $self = shift;
my @items = @_;
my ($item, $enc_item);
if (defined($self->{'HCE'})) {
foreach $item (@items) {
$enc_item = $self->{'HCE'}->hce_block_encode_mime($item);
print { $self->{'Socket'} } "$enc... |
| Crypt-Keyczar-0.07 | Crypt::Keyczar::Key | show |
| sub verify { return 1 } |
| Crypt-PGP2-0.03 | Crypt::PGP2 | show |
| sub encrypt {
my ($plaintext, $key, $options) = @_;
return ('', '', PGP_ERR_MISSING_KEY) if not defined $key or $key eq '';
return ('', '', PGP_ERR_MISSING_TEXT) if not defined $plaintext or $plaintext eq '';
my $pgp = '/usr/local/bin/pgp';
... |
| Crypt-Random-Source-SSLeay-0.02 | Crypt::Random::Source::SSLeay | show |
| sub seed {
} |
| Crypt-SMIME-0.10 | Crypt::SMIME | show |
| sub prepareSmimeMessage {
my $this = shift;
my $mime = shift;
$mime =~ s/\r?\n|\r/\r\n/g;
my $move = '';
my $rest = '';
my $is_move = 0;
my $is_rest = 1;
while($mime=~/(.*\n?)/g) {
my $line = $1;
if($line eq "\r\n") {
$rest .= $line . su... |
| CtCmd-1.11 | CC::File | show |
| sub path
{
my $this = shift @_;
return $this->describe('%En');
} |
| Curses-UI-Grid-0.15 | Curses::UI::Grid::Cell | show |
| sub DESTROY {
my $this = shift;
$this->cleanup;
} |
| DB2-db-0.25 | My::Table | show |
| sub schema_name { 'DB2DB' } |
| DBD-Google-0.51 | DBD::Google::st | show |
| sub DESTROY { 1 } |
| DBD-Salesforce-0.04 | DBD::Salesforce::st | show |
| sub DESTROY { 1 } |
| DBD-iPod-0.01 | DBD::iPod::st | show |
| sub DESTROY { 1 } |
| DBI-Dumper-2.01 | DBI::Dumper::Grammar | show |
| sub new { my $self = bless( {
'_AUTOTREE' => undef,
'localvars' => '',
'startcode' => '',
'_check' => {
'thisoffset' => '',
... |
| DBIx-CGITables-0.001 | DBIx::CGITables | show |
| sub timestamp_mysql2iso {
$_=shift;
/^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})$/;
return "$1-$2-$3 $4:$5:$6";
} |
| DBIx-Class-0.08209 | SQL::Translator::Producer::DBIx::Class::File | show |
| sub produce
{
my ($translator) = @_;
$DEBUG = $translator->debug;
$WARN = $translator->show_warnings;
my $no_comments = $translator->no_comments;
my $add_drop_table = $translator->add_drop_table;... |
| DBIx-Connection-0.08 | DBIx::Connection::Oracle::PLSQL | show |
| sub bind_parameters {
my ($self, %bind_parameters) = @_;
my $bind_variables = $self->bind_variables;
my @bind_in_variables = $self->bind_in_variables;
my %bind_params = (map {$_ => $bind_parameters{$_}} @bind_in_variables);
my... |
| DBIx-Custom-0.28 | DBIx::Custom::NotExists | show |
| sub singleton { $not_exists } |
| DBIx-DBSchema-0.40 | DBIx::DBSchema::DBD::Oracle | show |
| sub _index_info {
my ($proto, $dbh, $table, $type) = @_;
die "\$type must be 'UNIQUE' or 'NONUNIQUE'"
unless $type =~ /^(NON)?UNIQUE$/;
my $sql = "SELECT ui.index_name, uic.column_name
FROM user_indexes ui, user_ind_columns uic... |
| DBIx-HTMLView-LATEST | DBIx::HTMLView::OracleDB | show |
| sub send {
my $self=shift;
my $cmd=shift;
my $sth = $self->{'dbh'}->prepare($cmd);
if (!$sth) {
confess "Error preparing $cmd: " .$cmd.':'. $sth->errstr . "\n";
}
if (!$sth->execute) {
confess "Error executing $cmd:" . $st... |
| DBIx-HTMLView-LATEST | DBIx::HTMLView::Fld | show |
| sub sql_data_array {shift->sql_data(@_)} |
| DBIx-HTMLView-LATEST | DBIx::HTMLView::Tree | show |
| sub default_fmt {
my ($self, $kind)=@_;
if (defined $kind && $kind eq 'edit_html') {
return '<InRel><perl>$self->view_fmt_edit_html("view_html")</perl>';
}
return DBIx::HTMLView::Relation::default_fmt(@_)
} |
| DBIx-HTMLView-LATEST | DBIx::HTMLView::msqlDB | show |
| sub sql_create_table {
my ($self, $table)=@_;
DBIx::HTMLView::DB::sql_create_table($self, $table);
$self->send("CREATE UNIQUE INDEX idx1 ON " . $table->name . "(" .
$table->id->name . ")");
$self->send("CREATE SEQUE... |
| DBIx-HTMLView-LATEST | DBIx::HTMLView::Id | show |
| sub sql_create {my $self=shift; $self->db->sql_type("Id",$self)} |
| DBIx-HTMLView-LATEST | DBIx::HTMLView::Int | show |
| sub sql_create {my $self=shift;$self->db->sql_type("Int",$self)} |
| DBIx-HTMLView-LATEST | DBIx::HTMLView::N2One | show |
| sub sql_join {
my ($self, $sel)=@_;
$sel->add_tab($self->to_tab_name);
return $self->to_tab_name . "." . $self->to_tab->id->name .
"=" . $self->tab->name . "." . $self->name;
} |
| DBIx-HTMLView-LATEST | DBIx::HTMLView::N2NOrder | show |
| sub view_fmt_code{DBIx::HTMLView::Fld::view_fmt_code(@_)} |
| DBIx-HTMLView-LATEST | DBIx::HTMLView::Order | show |
| sub name_vals {
my ($self)=@_;
if (!$self->got_val) {
my $maxp=$self->tab->list(undef, 'order by ' . $self->name.' desc')->first;
if (defined $maxp) {
$self->{'val'}=$maxp->fld($self->name)->val+1;
} else ... |
| DBIx-HTMLView-LATEST | DBIx::HTMLView::CGIReqEdit | show |
| sub view_html {
my ($self)=@_;
my $tab=$self->tab;
my $res="";
my $ocb;
foreach ($tab->fld_names()) {
$ocb=$self->tab->fld($_)->get_onChange();
$res.=$ocb;
}
$res.=$self->tab->get_JSonSubmit();
$re... |
| DBIx-Informix-Perform-0.01 | DBIx::Informix::Perform::DoTable | show |
| sub generate_per
{
my $db = shift;
my $table_name = shift;
$DB = open_db($db);
if (0)
{
local ($DB->{'RaiseError'},$DB->{'PrintError'}) = (1, 0);
my $tblh = eval {$DB->table_info('', '%', $table_name, 'TABLE') };
$tblh... |
| DBIx-Migration-Directories-0.11 | DBIx::Migration::Directories | show |
| sub get_current_version {
my $self = shift;
my $version;
eval { $version = $self->db->db_get_current_version($self->{schema}); };
if($@) {
delete $self->{current_version};
die $@;
} elsif(!defined $version) {
delete $se... |
| DBIx-Migration-Directories-0.11 | DBIx::Migration::Directories::Build | show |
| sub new {
my $class = shift;
my $self = $class->SUPER::new(@_);
my $schema_dir;
eval {
require DBIx::Migration::Directories::ConfigData;
$schema_dir = DBIx::Migration::Directories::ConfigData->config(
... |
| DBIx-Migration-Directories-0.11 | DBIx::Migration::Directories::Database | show |
| sub table_exists {
my($self, $table) = @_;
my $dbh = $self->{dbh};
my $rv;
$dbh->begin_work;
my $query = $self->sql_table_exists($table);
my $sth = $dbh->prepare($query);
if($sth->execute()) {
if($st... |
| DBIx-Migration-Directories-0.11 | DBIx::Migration::Directories::Test | show |
| sub schema_deletes_ok {
my($self, $test_name) = @_;
$test_name ||= 'Schema deletes OK';
return ok($self->full_delete_schema, $test_name);
} |
| DBIx-Migration-Directories-0.11 | DBIx::Migration::Directories::Base | show |
| sub schema_version_log {
my $self = shift;
my $myschema = shift || $self->{schema} ||
croak "schema_version_log() called without a schema name";
return $self->db->db_schema_version_log($myschema);
} |
| DBIx-Migration-Directories-0.11 | DBIx::Migration::Directories::Database::SQLite2 | show |
| sub sql_insert_migration_schema_log {
my($self, $myschema, $from, $to) = @_;
my $now = strftime("%Y%m%dZ%H%M%S", gmtime);
return sprintf(
q{
INSERT INTO migration_schema_log
(schema_name, event_time, old_ve... |
| DBIx-Migration-Directories-0.11 | DBIx::Migration::Directories::Database::mysql | show |
| sub sql_table_exists {
my($self, $table) = @_;
return sprintf(q{SHOW TABLES LIKE %s}, $self->{dbh}->quote($table));
} |
| DBIx-Migration-Directories-0.11 | DBIx::Migration::Directories::Build::Base | show |
| sub ACTION_code {
my $self = shift;
$self->build_dirs();
return $self->SUPER::ACTION_code(@_);
} |
| DBIx-SQLEngine-0.93 | DBIx::SQLEngine::Criteria::Comparison | show |
| sub sql_where {
my $self = shift;
my $expr = $self->expr;
( length $expr ) or Carp::confess("Expression is missing or empty");
my $compv = $self->compv;
my $cmp = $self->sql_comparator;
( length $cmp ) or Carp::confess("sql_comparator... |
| DBIx-SimpleGoBetween-1.003 | DBIx::SimpleGoBetween | show |
| sub sql_do {
my ($s,$sql,$ph,$arg)=@_;
my $sth=$s->prep($sql,$arg);
$sth->execute(@$ph);
} |
| DBIx-TextIndex-0.28 | DBIx::TextIndex::TermDocsCache | show |
| sub _fetch_term_docs {
my $self = shift;
my ($fno, $term) = @_;
my $sql = $self->{DB}->fetch_term_freq_and_docs(
$self->{INVERTED_TABLES}->[$fno]);
($self->{DOCFREQ_T}->[$fno]->{$term}, $self->{TERM... |
| DBIx-TextSearch-0.3 | DBIx::TextSearch | show |
| sub delete_document {
my ($self, $uri) = @_;
$self->RemoveDocumnt($uri);
} |
| DBIx-Transaction-1.100 | DBIx::Transaction::db | show |
| sub _transaction {
my($self, $run) = @_;
my $rv;
$self->begin_work;
eval { $rv = $run->() };
if(my $re = $@) {
$self->rollback;
croak $re;
} elsif(!$rv) {
my $err = $self->err;
my $errstr = $self->errstr;
... |
| DBIx-Transaction-1.100 | DBIx::Transaction::st | show |
| sub execute {
my $self = shift;
my $rv = eval { DBI::st::execute($self, @_); };
if($@) {
$self->{Database}->inc_transaction_error(caller, $self->errstr);
croak "$@\n";
}
if(!$rv) {
$self->{Database}-... |
| DBR-1.5 | DBR::Query::Part::Compare | show |
| sub is_emptyset{ $_[0]->value->is_emptyset } |
| DBR-1.5 | DBR::Query::Part::Value | show |
| sub _session { $_[0]->{session} } |
| DBSchema-Sample-2.0.a | DBSchema::Sample | show |
| sub app_handle {
my $c = shift;
use Data::Dumper;
warn Dumper($c);
my $attr = { RaiseError => 1, PrintError => 1 } ;
my $class = __PACKAGE__;
DBIx::AnyDBD->connect
(
$c->{dsn},
$c->{user},
$c->{pass},
$attr,
$... |
| DCE-Perl-0.21 | DCE::test | show |
| sub password_prompt {
my $pwd;
print "Enter your password: ";
system stty => '-echo';
chomp($pwd = <STDIN>);
system stty => 'echo';
$pwd;
} |
| DFA-Statemap-1.00 | DFA::Statemap | show |
| sub emptyStateStack {
my $self = shift;
$self->{_state_stack} = [];
} |
| DJSON-0.0.1 | DJSON | show |
| sub got_bare {
$_ = pop;
/true/ ? true :
/false/ ? false :
/null/ ? undef :
/^(
-?
(?: 0 | [1-9] [0-9]* )
(?: \. [0-9]* )?
(?: [eE] [\-\+]? [0-9]+ )?
)$/x ? ($_ + 0) :
"$_"
} |
| DJabberd-0.85 | DJabberd::XMLParser | show |
| sub DESTROY {
my $self = shift;
$instance_count--;
bless $self, 'XML::SAX::Base';
} |
| Daemon-Simple-0.1 | Daemon::Simple | show |
| sub destroy_pidfile
{
my $pidfile = shift;
unlink($pidfile);
} |
| Danga-Socket-Redis-0.06 | Danga::Socket::Redis | show |
| sub redis_send {
my ( $self, $cmd ) = @_;
$cmd->{args} = [] unless ref $cmd->{args} eq 'ARRAY';
unless ( $cmd->{type} eq 'subscribe' ) {
push @{$self->{cmdqueue}}, $cmd;
}
my $send = "*" . ( scalar ( @{$cmd->{args}} ) + 1 ) . ... |
| Data-Dump-OneLine-0.02 | Data::Dump::OneLine | show |
| sub dump_oneline { dump_one_line(@_) } |
| Data-Dump-XML-1.19 | Data::Dump::XML | show |
| sub dump_hashref_pp {
my $self = shift;
my ($rval, $keys, $tag) = @_;
foreach my $key (@$keys) {
my $val = \$rval->{$key};
my $node;
my ($key_prefix, $key_name, $val_type, $key_can_be_tag) =
$self->key_info ($rval, $key, $$val);
... |
| Data-FixedFormat-0.04 | Data::FixedFormat | show |
| sub blank {
my ($self,$w) = @_;
$w = 0 unless $w;
my $rec = $self->{Layouts}[$w]->blank();
return $rec;
} |
| Data-FormValidator-Constraints-DateTime-1.11 | Data::FormValidator::Constraints::DateTime | show |
| sub match_to_pg_datetime {
my ($dfv, $format) = @_;
my $value = ref $dfv ? $dfv->get_current_constraint_value : $dfv;
eval { require DateTime::Format::Pg; };
die "DateTime::Format::Pg is required to use this routine"
if( $@ );
... |
| Data-Maker-0.29 | Data::Maker::Field::IP | show |
| sub generate_value {
my ($this, $maker) = @_;
return join('.', map { ceil(rand(255)) } (1..4));
} |
| Data-Mining-AssociationRules-0.10 | Data::Mining::AssociationRules | show |
| sub generate_rules {
my $file_prefix = shift;
my $support_threshold = shift;
my $confidence_threshold = shift;
my $max_n = shift;
$support_threshold = 1 if !defined($support_threshold);
$confidence_threshold = 0 if !defined($confidence_thresh... |
| Data-Password-Entropy-Old-0.2 | Data::Password::Entropy::Old | show |
| sub pwstrengthcheck($){
my $pw = shift;
my $pwlength = length($pw);
if($pwlength>5){
$pwlength = 5;
}
my $numnumeric = $pw;
$numnumeric =~ s/[^0-9]//g;
my $numeric = ($pwlength - length($numnumeric));
if($numeric>3){
$numeric = 3;
}
... |
| Data-Random-Nucleotides-0.1 | Data::Random::Nucleotides | show |
| sub rand_fasta
{
my $id = ">" . join("", rand_chars( set => 'loweralpha', size=>3 ) ) .
"-" . sprintf("%06d", int(rand())) ;
my $seq = rand_wrapped_nuc(@_);
return $id . "\n" . $seq ;
} |
| Data-Report-0.10 | Data::Report | show |
| sub _loaded {
my $class = shift;
no strict "refs";
%{$class . "::"} ? 1 : 0;
} |
| Data-Reuse-0.10 | Data::Reuse | show |
| sub _constants { return \%reuse } |
| Data-Riak-1.9 | Test::Data::Riak | show |
| sub _remove_test_bucket_async {
my ($bucket, $cb, $error_cb) = @_;
my ($remove_all_and_wait, $t);
$remove_all_and_wait = sub {
$bucket->remove_all({
error_cb => $error_cb,
cb => sub {
... |
| Data-Riak-Fast-0.03 | Test::Data::Riak::Fast | show |
| sub remove_test_bucket {
my $bucket = shift;
try {
$bucket->remove_all;
Test::More::diag "Removing test bucket so sleeping for a moment to allow riak to eventually be consistent ...";
my $keys = $bucket->list_keys;
... |
| Data-RunningTotal-0.03 | Data::RunningTotal::Item | show |
| sub moveTo {
my ($self, $time, %opts) = @_;
croak("Expected an array ref for parameter 'coords'") if (ref($opts{coords}) ne "ARRAY");
if (scalar(@{$opts{coords}}) != $self->{rt}->{numDims}) {
croak("Expected $self->{numDims} coordinate... |
| Data-SmartMunge-1.101612 | Data::SmartMunge | show |
| sub delete_matching {
my ($re, $flags) = @_;
$flags = '' unless defined $flags;
return $flags =~ s/g//
? sub { $_[0] =~ s/$re//g; $_[0] }
: sub { $_[0] =~ s/$re//; $_[0] };
} |
| Data-Startup-0.04 | Data::Startup | show |
| sub override
{
my $self = shift;
return bless {},'Data::Startup' unless ref($self);
return $self unless (@_);
my %options = %$self;
if(ref($self) eq 'HASH') {
Data::Startup::config(\%options,@_);
return \%opti... |
| Data-Transactional-1.02 | Data::Transactional | show |
| sub current_state {
shift->{CURRENT_STATE};
} |
| Data-Transpose-0.0004 | Data::Transpose::Validator::URL | show |
| sub is_valid {
my ($self, $url) = @_;
$self->reset_errors;
if ($url =~ m/^($urlre)$/s) {
return $1;
} else {
$self->error(
["badurl",
"URL is not correct (the protocol is req... |
| Date-Holidays-AU-0.09 | Date::Holidays::AU | show |
| sub _compute {
my ($day, $month, $year, $params) = @_;
my ($date) = Time::Local::timelocal(0,0,0,$day,($month - 1),$year);
my ($sec, $min, $hour, $wday, $yday, $isdst);
my (@holidays);
push @holidays, sprintf("%02d%02d", $month, $day);
if ($params-&... |
| Date-Holidays-ES-0.02 | Date::Holidays::ES | show |
| sub holidays_es {
my ($self, %params) = @_;
my $year = $params{'year'} or croak 'Missing year argument';
my $holidays = $self->holidays(year => $year);
my %hd = ();
require DateTime;
for my $month_day (keys %$holidays) {
... |
| Date-Maya-2010011301 | Date::Maya | show |
| sub maya_to_julian ($) {
die "Failed to supply argument to maya_to_julian\n" unless @_;
my $maya = shift;
die "Undefined argument to maya_to_julian\n" unless defined $maya;
my @parts = split /\./ => $maya;
die "Illegal argument `... |
| DateTime-Event-ICal-0.11 | DateTime::Event::ICal | show |
| sub recur {
my $class = shift;
my %args = @_;
my %args_backup = @_;
if ( exists $args{count} )
{
my $n = $args{count};
delete $args{count};
my $count_inf = $class->recur( %args )->{set}
... |
| DateTime-Fiction-JRRTolkien-Shire-0.02 | DateTime::Fiction::JRRTolkien::Shire | show |
| sub on_date {
my $self = shift;
my ($returntext, %events);
$self->_recalc_Shire if $self->{recalc};
$events{0} = { 3 => "Wedding of King Elessar and Arwen, 1419.\n"
};
$events{1} = { 8 => "The Company of the Ring re... |
| DateTime-Format-DBI-0.040 | DateTime::Format::DBI | show |
| sub new {
my ($name,$dbh) = @_;
UNIVERSAL::isa($dbh,'DBI::db') || croak('Not a DBI handle.');
my @dbtypes = eval { DBI::_dbtype_names($dbh,0) };
my $pclass = _get_parser(@dbtypes);
croak("No supported database driver in '@dbtypes'")
unle... |
| DateTime-Set-0.31 | Set::Infinite::_recurrence | show |
| sub union
{
my ($s1, $s2) = (shift,shift);
if ( $s1->_is_recurrence &&
ref($s2) && _is_recurrence( $s2 ) )
{
my ( $next1, $previous1 ) = @{ $s1->{param} };
my ( $next2, $previous2 ) = @{ $s2->{param} };
... |
| DateTime-TimeZone-LMT-1.00 | DateTime::TimeZone::LMT | show |
| sub offset_at_longitude {
my $longitude = shift;
my $offset_seconds = ( $longitude / 180 ) * (12 * 60 * 60);
return DateTime::TimeZone::offset_as_string( $offset_seconds );
} |
| Db-DFC-0.4 | Db::DFC | show |
| sub castToIDfTypedObject {
my ($self,$obj) = @_;
my $castToIDfTypedObject = JPL::AutoLoader::getmeth('castToIDfTypedObject',
['java.lang.Object'],
['com.do... |
| Debug-EchoMessage-1.03 | Debug::EchoMessage | show |
| sub end_log {
my $s = shift;
my ($ar) = @_;
my %b = %{${$ar}{fld}};
my $f = "%a %b %e %H:%M:%S %Y";
my $fh1 = ${$ar}{fh_brf};
my $fh2 = ${$ar}{fh_dtl};
my $cns = ${$ar}{cns};
$b{end_time} = time;
$b{elaps... |
| Debug-Xray-0.05 | Debug::Xray | show |
| sub add_watch_var {
assert ( $#_==0, 'Parms' ) if DEBUG;
my $var_ref = shift;
my $var_name = var_name(1, $var_ref);
assert ( $var_name, "var_name has a value: $var_name]" ) if DEBUG;
if ($var_name =~ /^\$/) {
tie $$var_ref, '... |
| Deliantra-Client-2.11 | DC::Item | show |
| sub update_widgets {
my ($self) = @_;
DC::weaken $self;
my $button_cb = sub {
my (undef, $ev, $x, $y) = @_;
my $targ = $::CONN->{player}{tag};
if ($self->{container} == $::CONN->{player}{tag}) {
$targ = $::... |
| Deliantra-Client-2.11 | DC::UI::Inventory | show |
| sub set_items {
my ($self, $items) = @_;
$self->{items} = [$items ? values %$items : ()];
$self->update_items;
} |
| Devel-Cover-1.00 | Devel::Cover::BuildUtils | show |
| sub prove_command
{
my $prove = find_prove or return;
my $cpus = nice_cpus;
"$prove -brj$cpus t"
} |
| Devel-CoverReport-0.05 | Devel::CoverReport::VCS::Fake | show |
| sub inspect {
my ( $file_path ) = @_;
assert_defined($file_path, "File path given");
if (not -f $file_path) {
return;
}
my %metadata = (
lines => [],
);
my @lines = read_file($file_path);
fore... |
| Devel-MaintBlead-0.08 | Devel::MaintBlead | show |
| sub _die {
my ($text)= @_;
chomp($text);
print STDERR $text, $\;
exit 1;
} |
| Devel-ModInfo-0.05 | MyModule | show |
| sub method2($$) {
my($self, $message) = @_;
print "$message!\n";
return 2;
} |
| Devel-ModInfo-0.05 | Devel::ModInfo::DataType | show |
| sub String2DataType {$data_types->{$_[0]} or undef;} |
| Devel-Profiler-0.04 | Devel::Profiler::Test | show |
| sub cleanup_module {
my $name = shift;
unlink "$name.pm" or die "Unable to unlink $name.pm : $!";
} |
| Devel-Required-0.14 | Devel::Required | show |
| sub _slurp {
my ($filename)= @_;
my $contents;
if ( open( IN, $filename ) ) {
$contents= do { local $/; <IN> };
close IN;
}
else {
warn qq{Could not open "$filename" for reading: $!\n};
}
return... |
| Devel-RingBuffer-0.31 | Devel::RingBuffer::ThreadFacade | show |
| sub tid { return threads->tid(); } |
| Devel-RunBlock-0.01 | Devel::RunBlock | show |
| sub __ret_void { return; } |
| Devel-ThreadsForks-0.06 | Devel::ThreadsForks | show |
| sub _die {
my ($text)= @_;
chomp($text);
print STDERR $text, $\;
exit 1;
} |
| Devel-Tinderclient-1.4 | Tindermail::Http | show |
| sub sendendmail {
($log, $state) = @_;
my $newmailer;
my $endbody = "";
$uaend = LWP::UserAgent->new;
$uaend->agent("Tinderbox Client (zach\@zachlipton.com)");
$endbody .= "tinderbox: tree: $Tinderconfig::tinderboxpage\n";
$endbody .= 'tin... |
| Devel-Tinderclient-1.4 | Tindermail::MailMailer | show |
| sub sendendmail {
($log, $state) = @_;
my $newmailer;
my $endbody = "";
$newmailer = new Mail::Mailer 'smtp', Server => $Tinderconfig::mailserver;
$newmailer->open(\%headers);
print $newmailer "tinderbox: tree: $Tinderconfig::tinderboxpage\... |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Glob2type | show |
| sub del {
my ($this, $glob) = @_;
delete($this->{$glob});
} |
| Device-CurrentCost-1.130190 | Device::CurrentCost::Constants | show |
| sub current_cost_type_string {
$names{$_[0]}
} |
| Device-Gsm-1.60 | Device::Gsm::Sms | show |
| sub type {
my $self = shift;
if (@_) {
$self->{'type'} = shift;
}
$self->{'type'};
} |
| Device-ISDN-OCLM-0.40 | Device::ISDN::OCLM::SPStatistics | show |
| sub
connectTime
{
return shift->{'connectTime'}->[shift];
} |
| Device-ISDN-OCLM-0.40 | Device::ISDN::OCLM::SystemStatistics | show |
| sub
time
{
return shift->{'time'};
} |
| Device-ISDN-OCLM-0.40 | Device::ISDN::OCLM::CurrentStatistics | show |
| sub
upReason
{
return shift->{'upReason'}->[shift];
} |
| Device-ISDN-OCLM-0.40 | Device::ISDN::OCLM::LastStatistics | show |
| sub
downReason
{
return shift->{'downReason'}->[shift];
} |
| Device-ISDN-OCLM-0.40 | Device::ISDN::OCLM::UserAgent | show |
| sub
redirect_ok
{
my ($self, $request) = @_;
if ($request->method eq 'POST') {
$request->method ('GET');
}
1;
} |
| Device-ISDN-OCLM-0.40 | Device::ISDN::OCLM::ISDNStatistics | show |
| sub
tei
{
return shift->{'tei'};
} |
| DhMakePerl-0.76 | Debian::Dependency | show |
| sub satisfies {
my( $self, $dep ) = @_;
$dep = Debian::Dependency->new($dep)
unless ref($dep);
if( $self->alternatives ) {
for( @{ $self->alternatives } ) {
return 0 unless $_->satisfies($dep);
... |
| Digest-Crc32-0.01 | Digest::Crc32 | show |
| sub filecrc32 {
my $self = shift;
my $file = shift;
my $crc = 0xFFFFFFFF;
open(FILE, $file) or croak "Failed to open the file";
while (<FILE>) {
foreach (split(//,$_)) { $crc = (($crc>>8) & 0x00FFFFFF) ^ $self->_crc32(($crc ^ ord(... |
| Dimedis-Sql-0.44 | Dimedis::Sql::CSV | show |
| sub DESTROY {
my $self = shift;
my $fh = $self->{fh};
close($fh) if $fh;
} |
| Dimedis-Sql-0.44 | Dimedis::Sql::Import | show |
| sub DESTROY {
my $self = shift;
my $fh = $self->{fh_meta};
close($fh) if $fh;
} |
| Dimedis-Sql-0.44 | Dimedis::Sql::Export | show |
| sub DESTROY {
my $self = shift;
my $fh = $self->{fh_meta};
close($fh) if $fh;
} |
| Dir-Which-0.3 | Dir::Which | show |
| sub _search
{
my($file,@path) = @_ ;
my @matches ;
for my $d (@path) {
$d = File::Spec->curdir unless $d;
my $testfile = File::Spec->catfile( $d, $file);
next unless -e $testfile ;
push(@matches, $testfile);
last u... |
| Dist-Zilla-LocaleTextDomain-0.85 | Dist::Zilla::App::Command::msg_compile | show |
| sub execute {
my ($self, $opt, $args) = @_;
my $plugin = $self->zilla->plugin_named('LocaleTextDomain')
or $self->zilla->log_fatal('LocaleTextDomain plugin not found in dist.ini!');
my $lang_dir = $plugin->lang_dir;
... |
| Dist-Zilla-Plugin-JSAN-0.06 | Shotenjin::Embedder | show |
| sub process_string {
my ($self, $content, $strip_whitespace, $base_dir) = @_;
my $content_copy = $content;
pos $content = 0;
while ($content =~ m!
^(
(
([\t\... |
| Dist-Zilla-PluginBundle-SHANTANU-0.05 | Pod::Weaver::PluginBundle::SHANTANU | show |
| sub mvp_bundle_config {
my @plugins;
push @plugins, (
[ '@SHANTANU/WikiDoc', _exp('-WikiDoc'), {} ],
[ '@SHANTANU/CorePrep', _exp('@CorePrep'), {} ],
[ '@SHANTANU/Name', _exp('Name'), {} ],
[ '@SHANTANU/V... |
| Doc-Simply-0.032 | Doc::Simply::App | show |
| sub run {
my $self = shift;
my @arguments = @_;
my ( $help, $type );
$type = 'slash-star';
{
local @ARGV = @arguments;
GetOptions(
'type=s' => \$type,
'help|h|?' => \$help,
);
... |
| Document-Manager-0.35 | Document::Object | show |
| sub comment {
my $self = shift;
my $cid = shift;
my $comment = shift;
if (! defined $self->{'_repository'}) {
$self->set_error("Repository not defined in log()\n");
return undef;
}
if (! $self->{_doc_id}) {
$self->... |
| Dotiac-0.8 | ConfigPathes | show |
| sub persistent {
return File::Spec->catfile($persistent,shift);
} |
| Dua-2.2 | Dua | show |
| sub attribute
{
my($self,$rdn,$attribute) = @_;
return undef unless defined $self->{session};
dua_attribute($self->{session},$rdn,$attribute);
} |
| EBook-EPUB-0.6 | EBook::EPUB::Container::Zip | show |
| sub write
{
my ($self) = @_;
my $zip = Archive::Zip->new();
$zip->addString("application/epub+zip", "mimetype");
foreach my $f (@{$self->{files}}) {
$zip->addFileOrDirectory($f->{frompath},
$f->{con... |
| EMC-WideSky-symmaskdb-0.21 | EMC::WideSky::Util | show |
| sub hex2dec {
my $hex=shift @_;
my @dec=unpack(C4C4, pack(H2H2,substr($hex,0,2),substr($hex,2,2)));
return($dec[0]*256+$dec[1]);
} |
| EMC-WideSky-symmaskdb-0.21 | EMC::WideSky::symmaskdb | show |
| sub parse_symmaskdb (@) {
my $db=shift;
my %r=@_;
my $p = new XML::Parser(Handlers => {Start => \&handle_start,
End => \&handle_end,
Char => \&handle_char})... |
| ESplit1.00 | ESplit | show |
| sub e_split {
local $^W = 0;
my ($sep, $str, $stop_at, $flags) = @_;
$sep = '\s+' unless defined $sep;
$str = $_ unless defined $str;
$str = ${$str}
if (ref $str eq 'SCALAR');
($stop_at, my $from_end... |
| Earthquake_EEW_Decoder-0.03 | Earthquake::EEW::Decoder | show |
| sub read_data {
my ( $self, $str ) = @_;
my $data;
my $now_code = '';
foreach my $line ( split /[\r\n]/, $str ) {
if ( $line =~ /(\d{2}) (\d{2}) (\d{2}) (\d{12}) C(\d{2})/ ) {
$data->{'code_type'} = $code_type{$1}... |
| ElasticSearch-Transport-Thrift-0.03 | ElasticSearch::Transport::Thrift | show |
| sub client {
my $self = shift;
my $server = shift || '';
if ( my $client = $self->{_client}{$$}{$server} ) {
return $client if $client->{input}{trans}->isOpen;
}
$self->{_client} = { $$ => {} }
unless $s... |
| Email-Received-1.00 | Email::Received | show |
| sub unparse_rules {
my $tree = shift;
my $level = shift||0;
my $output;
for (@$tree) {
$output .= " " x ($level * 5);
if ($_->{given}) {
$output .= $_->{inverse} ? "unless " : "if ";
$output .=... |
| EmbedIT-WebIT-1.6.3a | WebService | show |
| sub Test {
my ($self,$body,$header) = @_;
my %idata = ();
$idata{Flag} = $body->get_Flag() . " has been returned";
return MyElements::OutputFlag->new(\%idata);
} |
| Encode-Registry-0.13 | Encode::Win32 | show |
| sub new_sequence
{ return $_[0]; } |
| Encode-TECkit-0.04 | Encode::TECkit | show |
| sub encode
{
my ($self, $str, $check) = @_;
my ($res, $hr);
$hr = 1;
$res = $self->{'encoder'}->convert($str, 1, $hr);
return $res;
} |
| Encode-Unicode-Japanese-0.02 | Encode::Unicode::Japanese | show |
| sub _register_encodings
{
__PACKAGE__->new("sjis")->Define('unijp-sjis');
__PACKAGE__->new("euc" )->Define('unijp-euc');
__PACKAGE__->new("jis" )->Define('unijp-jis');
__PACKAGE__->new("sjis-imode" )->Define("unijp-sjis-... |
| Erlang-Port-0.04 | Erlang::Port | show |
| sub _encode
{
my $this = shift;
my $obj = shift;
if( UNIVERSAL::isa($obj, 'Erlang::Atom') )
{
$ATOM_EXT . pack("n",length($$obj)) . $$obj;
}elsif( UNIVERSAL::isa($obj, 'Erlang::Binary') )
{
$BINARY_EXT . pack("N",length($$obj)) . $$obj;
}els... |
| Event-RPC-1.03 | Event::RPC | show |
| sub crypt {
my $class = shift;
my ($user, $pass) = @_;
return crypt($pass, $user);
} |
| Exception-Class-TCF-0.03 | Exception::Class::TCF::AssertFailure | show |
| sub assert (&@) {
my $block = shift;
if ( not $block->() ) {
my $exc = Exception::Class::TCF::AssertFailure->new( @_ );
&Exception::Class::TCF::throw($exc);
}
} |
| Exporter-Easy-0.16 | Exporter::Easiest | show |
| sub suck_list
{
my $list = shift;
my @sucked;
while (@$list)
{
if ($#$list and ($list->[1] eq '=>'))
{
last;
}
else
{
push(@sucked, shift(@$list));
}
}
return \@sucked;
} |
| ExtUtils-Command-1.17 | ExtUtils::Command | show |
| sub dos2unix {
require File::Find;
File::Find::find(sub {
return if -d;
return unless -w _;
return unless -r _;
return if -B _;
local $\;
my $orig = $_;
my $temp = '.dos2unix_tmp';
open ORIG, $_ or do {... |
| ExtUtils-Embed-1.14 | ExtUtils::Embed | show |
| sub canon {
my($as, @ext) = @_;
foreach(@ext) {
next if s!::!/!g;
s:^(lib|ext)/(auto/)?::;
s:/\w+\.\w+$::;
}
grep(s:/:$as:, @ext) if ($as ne '/');
@ext;
} |
| ExtUtils-Helpers-0.014 | ExtUtils::Helpers::VMS | show |
| sub make_executable {
my $filename = shift;
my $batchname = "$filename.com";
copy($filename, $batchname);
ExtUtils::Helpers::Unix::make_executable($batchname);
return;
} |
| ExtUtils-MY_Metafile-0.09 | ExtUtils::MY_Metafile | show |
| sub _yaml_out
{
my $obj = shift;
my $depth = shift || 0;
my $out = '';
if( !defined($obj) )
{
$out = " "x$depth."~\n";
}elsif( !ref($obj) )
{
$out = " "x$depth.$obj."\n";
}elsif( ref($obj)eq'ARRAY' )
{
my @e = map{_yaml_out->($... |
| ExtUtils-MakeMaker-6.64 | ExtUtils::Liblist | show |
| sub lsdir {
shift;
my $rex = qr/$_[1]/;
opendir DIR, $_[0];
my @out = grep /$rex/, readdir DIR;
closedir DIR;
return @out;
} |
| ExtUtils-MakeMaker-6.64 | ExtUtils::MM | show |
| sub _assert {
my $sanity = shift;
die sprintf "Assert failed at %s line %d\n", (caller)[1,2] unless $sanity;
return;
} |
| ExtUtils-MakeMaker-6.64 | ExtUtils::MY | show |
| sub DESTROY {} |
| ExtUtils-MakeMaker-6.64 | ExtUtils::MM_BeOS | show |
| sub init_linker {
my($self) = shift;
$self->{PERL_ARCHIVE} ||=
File::Spec->catdir('$(PERL_INC)',$Config{libperl});
$self->{PERL_ARCHIVE_AFTER} ||= '';
$self->{EXPORT_LIST} ||= '';
} |
| ExtUtils-MakeMaker-6.64 | ExtUtils::Command | show |
| sub dos2unix {
require File::Find;
File::Find::find(sub {
return if -d;
return unless -w _;
return unless -r _;
return if -B _;
local $\;
my $orig = $_;
my $temp = '.dos2unix_tmp';
open ORIG, $_ or do {... |
| ExtUtils-XSBuilder-0.28 | ExtUtils::XSBuilder::CallbackMap | show |
| sub write {
my ($self, $fh, $newentries, $prefix) = @_ ;
foreach (@$newentries)
{
my $line = $self -> {wrapxs} -> mapline_func ($_) ;
if ($line =~ /\)\((.*?)\)/)
{
my @args = split (/,/, $1) ... |
| Ezmlm-0.08.2 | Mail::Ezmlm::GpgKeyRing | show |
| sub _get_fingerprint()
{
my ($self, $key_id) = @_;
my $gpg = $self->_get_gpg_object();
$key_id =~ /^([0-9A-Z]*)$/;
$key_id = $1;
return undef unless ($key_id);
my $gpgoption = "--fingerprint $key_id";
my $gpgcommand = $gpg->gpgbin() . " " . ... |
| FFmpeg-Command-0.18 | FFmpeg::Command | show |
| sub _compose_command {
my $self = shift;
my $files = $self->input_file;
$files = [ $files ] unless ref $files eq 'ARRAY';
my $cmd = [
$self->ffmpeg,
'-y',
@{ $self->global_options },
map ( { @{ $s... |
| FLAT-0.9.1 | FLAT::Regex::WithExtraOps | show |
| FSSM-SOAPClient-0.012 | FSSM::SOAPClient | show |
| sub DESTROY {
my $self = shift;
delete $self->{_som};
} |
| Fedora-App-ReviewTool-0.10 | Fedora::App::ReviewTool::Command::take | show |
| sub run {
my ($self, $opts, $args) = @_;
$self->enable_logging;
$self->log->info('Starting take process.');
PKG_LOOP:
for my $id (@$args) {
$self->log->info("Working on RHBZ#$id");
my $b... |
| File-Attributes-0.04 | File::Attributes::Simple | show |
| sub _attribute_file {
my $self = shift;
my $file = shift;
my $max = 10;
while($max-- && -l $file){
$file = readlink $file;
}
my ($volume,$dirs,$filename) = File::Spec->splitpath($file);
return File::Spec->catpath($... |
| File-Attributes-Recursive-0.02 | File::Attributes::Recursive | show |
| sub list_attributes_recursively {
my $file = shift;
my $top = shift;
$top = '/' if !defined $top;
$file = file($file)->absolute;
$top = dir($top)->absolute;
if(!$top->subsumes($file)){
croak "get_attributes_r... |
| File-Basename-Object-0.01 | File::Basename::Object | show |
| sub _compare_basename {
my($a, $b) = @_;
if(UNIVERSAL::isa($b, __PACKAGE__)) {
return scalar($a->fileparse) cmp scalar($b->fileparse);
} else {
return $a->_compare_basename(__PACKAGE__->new($b, @{$a}[ $[ + 1 .. $#$a... |
| File-Cat-1.2 | File::Cat | show |
| sub cattail ($$) {
my ($input, $handle) = @_;
my @lines = (0);
unless (ref \$input eq 'GLOB' or ref \$input eq 'REF') {
open FILE, $input or return;
}
while (<FILE>) {
$lines[$.] = tell FILE;
}
pop @lines;
while (defined ($_ = pop ... |
| File-ExtAttr-1.09 | File::ExtAttr::Tie | show |
| sub CLEAR {
my($self) = @_;
for(listfattr($self->{file})) {
delfattr($self->{file}, $_, $self->{flags});
}
} |
| File-FindLib-0.001001 | File::FindLib | show |
| sub LookUp {
my %args= @_;
my $from= rel2abs( $args{-from} );
my $upto= $args{-upto};
my $add= $args{-add};
warn "$Pkg finds no $from; perhaps chdir()ed before 'use $Pkg'?\n"
if ! -e $from && $^W;
if( -l $from... |
| File-GetLineMaxLength-1.01 | File::GetLineMaxLength | show |
| sub getline {
my ($Self, $MaxLength) = (shift, shift);
my $EOL = $Self->{EOL};
my $Buffer = \$Self->{Buffer};
$_[0] = 0 if @_;
while (1) {
my $FoundLineLen = index($$Buffer, $EOL);
if ($FoundLineLen != -1) {
if (!$MaxLen... |
| File-Lock-Multi-1.01 | File::Lock::Multi::Fuser | show |
| sub _lock {
my $self = shift;
if(open(my $fh, '>>', $self->file)) {
my $fn = fileno($fh);
my $id = "$$:$fn";
$self->_fh($fh);
return $id;
} else {
croak "open ", $self->file, " for write: $!";
}
} |
| File-Lock-Multi-1.01 | File::Lock::Multi::MySQL | show |
| sub DESTROY {
my $self = shift;
$self->release if $self->locked;
$self->SUPER::DESTROY if $self->SUPER::can('DESTROY');
} |
| File-Lock-Multi-1.01 | File::Lock::Multi::FlockFiles | show |
| sub DESTROY {
my $self = shift;
$self->release if $self->locked;
$self->SUPER::DESTROY if $self->SUPER::can('DESTROY');
} |
| File-Lock-Multi-1.01 | File::Lock::Multi::Base | show |
| sub DESTROY {
my $self = shift;
$self->release if $self->locked;
} |
| File-Lock-Multi-1.01 | File::Lock::Multi::Base::Iterative | show |
| sub _iterate {
my($self, $code) = @_;
my $max = $self->max;
my $now = 1;
my $delay = $self->iteration_delay;
my $rv;
while($now <= $max) {
if(my $rv = $code->($self, $now)) {
return $rv;
}
$now++;
sleep($dela... |
| File-ReadBackwards-1.05 | File::ReadBackwards | show |
| sub close {
my ( $self ) = @_ ;
my $handle = delete( $self->{'handle'} ) ;
delete( $self->{'lines'} ) ;
CORE::close( $handle ) ;
} |
| File-Set-1.02 | File::Set | show |
| sub _compare_checksum {
my ($Self, $Prefix, $Path, $Type, $Stat) = @_;
my ($DbContents, $CompareCB) = @$Self{qw(DbContents CompareCB)};
my $Existing = delete $DbContents->{$Path};
if (!$Existing) {
$CompareCB->($Self->{Context}, 'n'... |
| File-Share-0.02 | File::Share | show |
| sub module_file {
die "File::Share::module_file not yet supported";
} |
| File-Sort-1.01 | File::Sort | show |
| sub usage {
local $/ = "\n";
my $u;
seek DATA, 0, 0;
while (<DATA>) {
last if m/^=head1 SYNOPSIS$/;
}
while (<DATA>) {
last if m/^=/;
$u .= $_;
}
$u =~ s/\n//;
die "Usage:... |
| File-VMSVersions-0.1 | File::VMSVersions | show |
| sub _getlock {
my($fn) = @_;
my $mode = -e $fn ? '<' : '>';
CORE::open(my $lck, $mode, $fn) or croak "couldn't open lock file $fn, $!";
unless (flock($lck, LOCK_EX | LOCK_NB)) {
flock($lck, LOCK_EX);
}
return($lck);
} |
| Filesys-SmbClientParser-2.7 | Filesys::SmbClientParser | show |
| sub command {
my ($self,$args,$command, $smbscript)=@_;
$command.=" >&1";
print " ==> SmbClientParser::command $args\n"
if ($self->{"DEBUG"} > 0);
my $er;
my $pargs;
if ($args=~/^([^;]*)$/) {
$pargs=$1;
} elsif ($smbscr... |
| Finance-Bank-Commerzbank-0.29 | Finance::Bank::Commerzbank | show |
| sub AUTOLOAD { my $self=shift; $AUTOLOAD =~ s/.*:://; $self->{$AUTOLOAD} } |
| Finance-Bank-DE-DTA-Create-1.03 | Finance::Bank::DE::DTA::Create | show |
| sub sum_bank_codes {
my $self = shift;
return $self->{sum_bank_codes};
} |
| Finance-Bank-US-ShareBuilder-0.01 | Finance::Bank::US::ShareBuilder | show |
| sub usd { currency_format('USD', $_[0], FMT_SYMBOL) } |
| Finance-Bank-Wachovia-0.5 | Finance::Bank::Wachovia | show |
| sub DESTROY {} |
| Finance-Bank-Wachovia-0.5 | Finance::Bank::Wachovia::Account | show |
| sub DESTROY {} |
| Finance-Bank-Wachovia-0.5 | Finance::Bank::Wachovia::Credit | show |
| sub DESTROY {} |
| Finance-Bank-Wachovia-0.5 | Finance::Bank::Wachovia::Transaction | show |
| sub DESTROY {} |
| Finance-Bank-Wachovia-0.5 | Finance::Bank::Wachovia::ErrorHandler | show |
| sub ErrStr {
my $self = shift;
return ref $self ? $self->[0] : $ERROR;
} |
| Finance-Bank-Wachovia-0.5 | Finance::Bank::Wachovia::DataObtainer::WWW | show |
| sub DESTROY {} |
| Finance-Currency-Convert-ECB-0.3 | Finance::Currency::Convert::ECB | show |
| sub currencylist {
my $output;
my $cache = new Cache::FileCache( { 'namespace' => 'ecb', 'default_expires_in' => 86400 } );
my $load = $cache->get( 'ecb' );
if(not defined $load){
$cache->set( 'ecb', get("http://www.ecb.int/stats/eurofx... |
| Finance-MoneyNetSymbolLookup-0.02 | Finance::MoneyNetSymbolLookup | show |
| sub symbollookup {
my $search = $_[0];
my($srch,$ua,$url,$sym,$name,$type,@qr);
$url = $URL.$search;
foreach (split('\r?\n',LWP::UserAgent->new->request(GET $url)->content)) {
if (/^Symbol:(.*)/) {
($sym,$name,$type) = split... |
| Finance-Quant-Symbols-0.02 | Finance::Quant::Symbols | show |
| sub DESTROY {
my $self = shift;
warn "DESTROYING $self";
} |
| Finance-Quote-1.18 | Finance::Quote::SIXfunds | show |
| sub sixfunds {
my $quoter = shift;
my @symbols = @_;
return unless @symbols;
my ( $ua, $reply, %q );
foreach my $symbol (@symbols) {
$ua = $quoter->user_agent;
$q{ $symbol, 'success' } = 0;
$q{ $symbol, 'na... |
| Finance-Quote-1.18 | Finance::Quote::SIXshares | show |
| sub sixshares {
my $quoter = shift;
my @symbols = @_;
return unless @symbols;
my ( $ua, $reply, %q );
foreach my $symbol (@symbols) {
$ua = $quoter->user_agent;
$q{ $symbol, 'success' } = 0;
$q{ $symbol, 'n... |
| Finance-QuoteTW-0.08 | Finance::QuoteTW | show |
| sub _blackrock {
require Finance::QuoteTW::Blackrock;
return Finance::QuoteTW::Blackrock::fetch( $self, @_ );
} |
| Finance-QuoteTW-0.08 | Finance::QuoteTW::Blackrock | show |
| sub fetch {
my $b = WWW::Mechanize->new;
my $response = $b->get('http://www.blackrock.com.tw/retail/mliiffunds/prices.aspx');
my $current_encoding = getCharset($response);
my $form = $b->form_name('frmImportant');
$b->submit;
my @fund_ty... |
| Finance-QuoteTW-0.08 | Finance::QuoteTW::Franklin | show |
| sub fetch {
my $b = WWW::Mechanize->new;
my $response = $b->get('http://www.franklin.com.tw/1.FundIntro/1.3FundNet.asp');
my $current_encoding = getCharset($response);
my $date = $1 if $b->content =~ /(\d+\/\d+\/\d+)/;
my $te = HTML::TableE... |
| Finance-QuoteTW-0.08 | Finance::QuoteTW::Capital | show |
| sub fetch {
my $b = WWW::Mechanize->new;
my $response = $b->get('http://www.capitalfund.com.tw/jsp/fund08.jsp');
my $current_encoding = getCharset($response);
my $te = HTML::TableExtract->new;
$te->parse($b->content);
my @ts = $te-&... |
| Finance-QuoteTW-0.08 | Finance::QuoteTW::Cathay | show |
| sub fetch {
my $b = WWW::Mechanize->new;
my $response = $b->get('http://www.cathaysite.com.tw');
my $current_encoding = getCharset($response);
my $te = HTML::TableExtract->new;
$te->parse($b->content);
my @ts = $te->tables;
my @... |
| Finance-QuoteTW-0.08 | Finance::QuoteTW::Iit | show |
| sub fetch {
my $b = WWW::Mechanize->new;
my $response = $b->get('http://www.iit.com.tw/Iitweb/NAV/FundNAVCurrentDate.aspx');
my $current_encoding = getCharset($response);
my $te = HTML::TableExtract->new;
$te->parse($b->content);
my... |
| Finance-QuoteTW-0.08 | Finance::QuoteTW::Paradigm | show |
| sub fetch {
my $b = WWW::Mechanize->new;
my $response = $b->get('http://www.paradigm-fund.com/location.asp?oversea=0');
my $current_encoding = getCharset($response);
my $te = HTML::TableExtract->new;
$te->parse($b->content);
my @ts ... |
| Finance-QuoteTW-0.08 | Finance::QuoteTW::Jpmrich | show |
| sub fetch {
my %args = @_;
my $fund_type = $args{type} || '';
my $b = WWW::Mechanize->new;
my $response = $b->get('http://www.jpmrich.com.tw');
my $current_encoding = getCharset($response) || 'big5';
$b->follow_link(n => 1);
my $url =... |
| Finance-QuoteTW-0.08 | Finance::QuoteTW::Tisc | show |
| sub fetch {
my $b = WWW::Mechanize->new;
my $response = $b->get('http://www.tisc.com.tw/tiim/netvalue/qry.jsp');
my $current_encoding = getCharset($response);
my $te = HTML::TableExtract->new;
$te->parse($b->content);
my @ts = $te-&... |
| Finance-QuoteTW-0.08 | Finance::QuoteTW::Schroders | show |
| sub fetch {
my $b = WWW::Mechanize->new;
my $response = $b->get('http://www.schroders.com.tw');
my $current_encoding = getCharset($response);
$b->get('http://schroders.moneydj.com/w/js/wfundjs.djjs?aspid=schroder&showall=0');
my $html = $b-... |
| Finance-QuoteTW-0.08 | Finance::QuoteTW::Allianz | show |
| sub fetch {
my $b = WWW::Mechanize->new;
my $response = $b->get(
'http://www.allianzglobalinvestors.com.tw/frontend/'
. 'Taiwan_SITE/Chinese/Fund/Fund_Price/onshore/fundprice.csv'
);
my $current_encoding = 'big5';
my @content = split /\n+... |
| Finance-RawMaterialPrice-0.02 | Finance::RawMaterialPrice | show |
| sub get_silver_price {
my $unit = shift || 'euro';
unless ( $unit eq 'euro' or $unit eq 'dollar' ) {
croak "Either use 'euro' or 'dollar'";
}
return get_raw_material_price("$base_url/silberpreis/$unit");
} |
| Finance-YahooChart-0.01 | Finance::YahooChart | show |
| sub getchart {
my %param = @_;
my %retval;
$ERROR = "";
foreach (keys %DEFAULTCHART) {
$param{$_} = $DEFAULTCHART{$_} if ! defined $param{$_};
$param{$_} = substr($param{$_},0,1) if $_ ne "symbol";
$param{$_} = lc $param{$_};
}
... |
| FlatFile-DataStore-1.03 | FlatFile::DataStore::Toc | show |
| sub delete {for($_[0]->{delete} ){$_=$_[1]if@_>1;return$_}} |
| FlatFile-DataStore-1.03 | FlatFile::DataStore::Preamble | show |
| sub then {
my( $date, $format ) = @_;
my( $yr, $mo, $da, $hr, $mn, $sc );
my $tm = '';
my $ret;
for( $format ) {
if( /yyyy/ ) {
$yr = substr $date, index( $format, 'yyyy' ), 4;
$mo = substr $date, in... |
| FlatFile-DataStore-1.03 | FlatFile::DataStore::Record | show |
| sub is_deleted {$_[0]->preamble()->is_deleted() } |
| Flea-0.04 | Flea::Parser::Method | show |
| sub rewrite {
my $self = shift;
my $parts = $self->parts;
$self->bail('Not enough arguments') unless @$parts > 1;
my $re = do {
my $r = pop @$parts;
$r = eval { qr{$r->[0]} } or $self->bail('Could not parse... |
| Font-GlyphNames-1.00000 | Font::GlyphNames | show |
| sub _get_self {
UNIVERSAL::isa($_[0], __PACKAGE__)
? shift
: ($_obj ||= new);
} |
| Font-TTF-1.02 | Font::TTF::XMLparse | show |
| sub read_xml
{
my ($font, $fname) = @_;
my ($xml) = XML::Parser::Expat->new;
my ($context) = {'xml' => $xml, 'font' => $font};
$xml->setHandlers('Start' => sub {
my ($x, $tag, %attrs) = @_;
my ($con... |
| Font-TTF-1.02 | Font::TTF::Ttc | show |
| sub DESTROY
{
my ($self) = @_;
close ($self->{' INFILE'});
undef;
} |
| Font-TTF-1.02 | Font::TTF::DSIG | show |
| sub out
{
my ($self, $fh) = @_;
my ($i, $curlen);
return $self->SUPER::out($fh) unless $self->{' read'};
$fh->print(pack("LNN", $self->{'version'}, $self->{'numtables'}, $self->{'perms'}));
$curlen = 0;
for... |
| Font-TTF-Scripts-1.03 | Font::Fret | show |
| sub label
{
my ($class, $glyph, $pnum, $x, $y, $path, $onoff, $font) = @_;
if ($glyph->{'numberOfContours'} > 0 && $onoff)
{ return sprintf("%d.%d(%d,%d)", $pnum, $path, $x, $y); }
return '';
} |
| Font-TTF-Scripts-1.03 | Font::TTF::Scripts::GDL | show |
| sub has
{
my ($cls, $val) = @_;
foreach (@{$cls})
{ return 1 if ($_ == $val); }
return 0;
} |
| Font-TTF-Scripts-1.03 | Font::TTF::Scripts::Deflang | show |
| sub ttfdeflang
{
my ($font, %opts) = @_;
my ($f, $t);
my ($ltag) = lc($opts{'d'});
if (defined $font->{'Sill'} and defined $font->{'Feat'} and $t = $font->{'Sill'}->read and $f = $font->{'Feat'}->read)
{
if (... |
| Font-TTF-Scripts-1.03 | Font::TTF::Scripts::AP | show |
| sub error
{
my $self = shift;
my $msg = join(' ', @_);
if (defined $self->{'-errorfh'})
{ print {$self->{'-errorfh'}} $msg; }
else
{ $self->{'WARNINGS'} .= $msg; }
$self->{'cWARNINGS'}++;
} |
| Font-TTF-Scripts-1.03 | Font::TTF::Scripts::GDL | show |
| sub error
{
my ($xml, $cur_glyph, $cur_pt, $str) = @_;
if (defined $cur_glyph->{'UID'})
{ print "U+$cur_glyph->{'UID'}: "; }
elsif (defined $cur_glyph->{'PSName'})
{ print "$cur_glyph->{'PSName'}: "; }
elsif (defined $... |
| Font-TTF-Scripts-1.03 | Font::TTF::Scripts::Name | show |
| sub ttfname
{
my ($font, %opts) = @_;
my ($name) = $font->{'name'}->read;
my (@cover);
if (defined $opts{'r'})
{
delete $name->{'strings'}[$opts{'r'}];
return $font;
}
foreach $k (qw(n f))
{
... |
| Foorum-1.001000 | Foorum::ResultSet::UserOnline | show |
| sub _handler_onlines {
my ( $self, $sid, @onlines ) = @_;
my $schema = $self->result_source->schema;
my $cache = $schema->cache();
my $has_me = 0;
my @results;
foreach my $online (@onlines) {
if ( not $has_m... |
| Form-Maker-0.03 | Form::Decorator::PredefinedFields | show |
| sub decorate {
my ($class, $form) = @_;
my $ff = $class->fields;
for my $name (keys %{$form->field_hash}) {
my $field = $form->{field_hash}->{$name};
if (my $newclass = $ff->{$name}) {
$form->_load... |
| FrameNet-WordNet-Detour-1.1 | FrameNet::WordNet::Detour::Data | show |
| sub get_frames_with_weight {
my $self = shift;
my $weight = shift;
my @l = keys %{$self->{'sorted'}->{$weight}};
return \@l;
} |
| FreeHAL-71 | AI::FreeHAL::Module::WebAccess | show |
| sub download_genus {
my ( $word, $count, $real_word ) = @_;
$real_word ||= $word;
$count ||= 0;
chomp $word;
chomp $real_word;
return if $count >= 5;
return if LANGUAGE() eq 'en';
return if $data->{modes}{batch};
... |
| FreePAN-0.10 | FreePAN::Command | show |
| sub usage {
warn <<END . $self->command_usage(" freepan -%-14s# %s\n");
} |
| FreePAN-0.10 | FreePAN::Plugin | show |
| sub plugin_directory {
abs_path($self->hub->config->base . '/' . super);
} |
| FreePAN-0.10 | FreePAN::Template | show |
| sub compile_dir {
$self->hub->config->base . '/plugin/template/cache';
} |
| FreePAN-0.10 | FreePAN::Config | show |
| sub add_path {
splice @{$self->path}, 0, 0, @_;
} |
| FreePAN-0.10 | FreePAN::Registry | show |
| sub missing_prerequisite {
my ($class_id, $prereq) = @_;
my $class_name = $self->lookup->{classes}{$class_id};
die "Missing prerequisite plugin '$prereq' for $class_name\n";
} |
| FreePAN-IndexPages-0.02 | FreePAN::IndexPages | show |
| sub handle_create_module_index {
die("You don't have repos_base directory\n")
unless -d $self->hub->config->repos_base;
my %repos = sub {
map {
$_->filename , $_->name
} io($self->hub->confi... |
| FreePAN-SVKMirror-0.01 | FreePAN::SVKMirror | show |
| sub handle_mirror {
my ($repo,$remote,$rename) = @_;
my $module = $self->resolve_remote($remote);
$self->mirror_freepan_repos($repo);
$self->mirror_remote_repos($module,$remote);
$self->svk->mkdir("//freepan/$repo/$modul... |
| FreeWRL-0.14 | VRML::VRMLFunc | show |
| sub load_data {
my $n = \%VRML::CNodes;
{
my $s = '';
my $v = get_PointLight_offsets($s);
@{$n->{PointLight}{Offs}}{"radius","location","direction","attenuation","on","color","ambientIntensity","intensity","_end_"} =
unpack("i*",$s);
$n-&g... |
| FreeWRL-0.14 | VRML::Field | show |
| sub js_default { 'new SFNode("","NULL")' } |
| FreeWRL-0.14 | VRML::JS | show |
| sub brow_createVrmlFromString {
my($this) = @_; my $rs;
runscript($this->{CX},$this->{GLO},"Browser.__arg0",$rs);
print "BROW_CVRLFSTR '$rs'\n"
if $VRML::verbose::js;
my $mfn = $this->{Browser}->createVrmlFromString(
$rs
);
my @hs = ... |
| Freecell-App-0.03 | Freecell::App::Tableau | show |
| sub heuristic {
my ($self) = @_;
my $score = 64;
my @z = map { scalar grep $_, @$_[ 1 .. 20 ] } @$self;
map $score -= rank( $self->[$_][0] ), 4 .. 7;
$score -= grep !$self->[$_][1], 0 .. 7;
$score -= grep !$self... |
| Frontier-RPC-0.07b4 | Frontier::Responder | show |
| sub get_cgi_request{
my $in;
if( $ENV{REQUEST_METHOD} eq 'POST' ){
my $len = $ENV{CONTENT_LENGTH};
unless ( read( STDIN, $in, $len ) == $len ){
return;
}
}else{
$in = $ENV{QUERY_STRING};
}
return $in;
} |
| Fry-Lib-CDBI-Basic-0.15 | Fry::Lib::CDBI::Tags | show |
| sub print_tags {
my ($class,@sortedtags) = @_;
my $result;
for (@sortedtags) { $result .= "$_->{count}: $_->{name}\n";}
$class->view($result);
} |
| FusionInventory-Agent-Task-Deploy-2.0.4 | FusionInventory::Agent::Task::Deploy | show |
| sub run {
my ($self, %params) = @_;
$ENV{LC_ALL} = 'C';
$ENV{LANG} = 'C';
$self->{client} = FusionInventory::Agent::HTTP::Client::Fusion->new(
logger => $self->{logger},
user => $params{user... |
| FusqlFS-0.009 | FusqlFS::Backend::MySQL::Users | show |
| sub store
{
my $self = shift;
my ($user, $host) = split(/@/, shift, 2);
return unless $user || $host;
my $priv_re = join('|', @USER_PRIVILEGES);
$priv_re = qr/^$priv_re$/i;
my $data = $self->validate(shift, {
max_conne... |
| GDGraph-histogram-1.1 | GD::Graph::histogram | show |
| sub _has_default {
my $self = shift;
my $attr = shift || return;
exists $Defaults{$attr} || $self->SUPER::_has_default($attr);
} |
| GMail-Checker-1.04 | GMail::Checker | show |
| sub close {
my $self = shift;
if (defined $self->{SOCK}) {
my $gsocket = $self->{SOCK};
print $gsocket "QUIT\r\n";
$gsocket->close(SSL_ctx_free => 1);
$self->{SOCK} = undef;
return 1;
} else { croak "Operation faile... |
| GMail-IMAPD-0.94 | GMail::IMAPD | show |
| sub logit { my($self,$msg,$debug_level)=@_;
$debug_level = 0 unless $debug_level;
return unless $debug_level <= $self->{Debug};
my $timestamp=scalar localtime(time);
$msg="$self->{Peer}: $msg" if $self->{Peer};
$msg="$timestamp: $msg... |
| GNOME-GNORBA-0.1.0 | GNOME::GOAD | show |
| sub activate {
my $self = shift;
my %args = @_;
my $flags;
if (exists $args{flags}) {
$flags = $args{flags};
if (exist $flags->{shlib}) {
Carp::croak ("Shared library activation not supported for Perl\n");
}
delete $args{flag... |
| GOBO-0.03 | GOBO::DB::AnnotationBulkLoader | show |
| sub do {
my $self = shift;
my $sql = shift;
print STDERR "Executing: $sql\n";
my $t = time;
$self->dbh->do($sql);
my $t2 = time;
my $td = $t2-$t;
print STDERR "Time: $td\n";
return;
} |
| GRID-Machine-0.127 | Alpha::Beta::Gamma | show |
| sub Test {
print "this is testrem\n";
} |
| Game-Life-0.04 | Game::Life | show |
| sub _determine_life_status {
my ( $self, $x , $y ) = @_;
my $n = 0;
for my $i ( $x-1, $x, $x+1 ) {
for my $j ( $y-1, $y, $y+1 ) {
$n++ if ( $i >= 0 && $i < $self->{ size } &&
$j >= 0 && $j < $self->{ size } ) &&... |
| Games-AlphaBeta-v0.4.7 | Games::AlphaBeta::Reversi | show |
| sub apply ($) {
my ($self, $move) = @_;
my $me = $self->{player};
my $not_me = 3 - $self->{player};
unless ($move) {
$self->{player} = $not_me;
return $self;
}
my $size = $self->{size};
m... |
| Games-Bingo-Bot-0.01 | Games::Bingo::Bot | show |
| sub help {
my $help = qq[
These are the bingobot commands:
help - this message
play - join a game
stats - get the current statistics of the running game
pull - pull the next number
bingo - you indicate to the bot that you have bingo
pulled - ... |
| Games-Chess-Referee-0.003 | Games::Chess::Rules | show |
| sub backward ($$)
{
my ($color, $space) = @_;
if ($color == &BLACK) {
return blackward($space);
} elsif ($color == &WHITE) {
return whiteward($space);
} else {
croak 'Invalid color';
}
} |
| Games-Chess-Referee-0.003 | Games::Chess::Piece::General | show |
| sub can_capture ($$$)
{
return can_occupy(@_);
} |
| Games-Chess-Referee-0.003 | Games::Chess::Piece::Pawn | show |
| sub can_capture ($$$)
{
return can_move(@_);
} |
| Games-ConnectFour-0.02 | Games::ConnectFour | show |
| sub init {
print "\n$c{d}Welcome to Connect Four!\n";
print "Set your console's background to black for best results.\n" if $^O ne "MSWin32";
print "Exit at any time with a Control-C or equivalent.\n\n";
while(1) {
my $connect = input("How many do y... |
| Games-Go-GoPair-1.001 | Games::Go::Erf | show |
| sub erfcxinv {
my $y = @_ ? $_[0] : $_;
return 0 if $y == 1;
my $x = 0;
my $dx;
my $c = .56418958354775628694807945156079;
my $d = 2.2567583341910251477923178062432;
my $eps = 5e-15;
do {
my $f = erfcx($x) - $... |
| Games-Go-SGF2misc-0.9782 | Games::Go::SGF2misc | show |
| sub _find_group {
my ($this, $checked, $SZ, $oc, $board, @p) = @_;
$this->_time("_find_group");
print STDERR "\t_find_group(@p)" if $ENV{DEBUG}>12;
my @g;
if( not $checked->{"@p"} ) {
$checked->{"@p"} = 1;
... |
| Games-Go-SGF2misc-0.9782 | Games::Go::SGF2misc::GD | show |
| sub dump {
my $self = shift;
my ($format) = @_;
$format = 'png' unless $format;
if ( $format =~ /jp(e?)g/i ) {
return $self->{'image'}->jpeg;
} elsif ( $format =~ /gd2/i ) {
return $self->{'image'}->gd... |
| Games-Go-SGF2misc-SVG-1.00 | Games::Go::SGF2misc::SVG | show |
| sub dump {
my $self = shift;
my ($format) = @_;
$format = 'svg' unless $format;
if ( $format =~ /png/i ) {
return undef;
my $rsvg = new Image::LibRSVG;
$rsvg->loadImageFromString( $self->{'document'}->... |
| Games-Hack-Patch-i686-0.52 | Games::Hack::Patch::i686 | show |
| sub GetNOP
{
my($adr_start, $adr_end, $disass)=@_;
my($binary, $diff);
$binary="";
if ($disass =~ m#^f[bi]?st(p)?[sl]? #)
{
if ($1)
{
$binary .= "\xdf\xc0";
$adr_start += 2;
}
}
elsif ($disass =~ m#^pop#)
{
$... |
| Games-Hack-Patch-x86_64-0.13 | Games::Hack::Patch::x86_64 | show |
| sub GetNOP
{
my($adr_start, $adr_end, $disass)=@_;
my($binary, $diff);
$binary="";
if ($disass =~ m#^f[bi]?st(p)?s? #)
{
if ($1)
{
$binary .= "\xdf\xc0";
$adr_start += 2;
}
}
elsif ($disass =~ m#^pop#)
{
$bin... |
| Games-Killingfloor-Mapcache-0.4 | Games::Killingfloor::Mapcache | show |
| sub nextmap {
my $registry;
unless($ARGV[0]){
my $WMI = Win32::OLE->GetObject("winmgmts:{impersonationLevel=impersonate}\\\\.\\Root\\cimv2");
foreach $Proc ( sort {lc $a->{ProcessId} cmp lc $b->{ProcessId}} in( $WMI->InstancesOf( "Win32_... |
| Games-Lacuna-Task-2.05 | Games::Lacuna::Task::Action::EmpireCache | show |
| sub remove_empire {
my ($self,$id,$name) = @_;
$self->log('debug','Removing empire %s from cache',$name);
$self->storage_do('DELETE FROM empire WHERE id = ?',$id);
$self->storage_do('UPDATE body SET empire = NULL WHERE empire... |
| Games-PangZero-v1.4.1 | Games::PangZero::DemoPlaybackGame | show |
| sub DrawScoreBoard {
my $self = shift;
my $x = 10;
my $y = $Games::PangZero::ScreenHeight + 2 * $Games::PangZero::ScreenMargin + 5;
if ($self->{anim} < 1) {
SDLx::SFont::print_text( $Games::PangZero::Background, $x, $y, "Press F ... |
| Games-Pentominos-1.0 | Games::Pentominos | show |
| sub _place_pentomino {
my ($board_ini, $placed_ini) = ($board, $placed);
foreach my $letter (@_) {
foreach my $substitution (@{$substitutions{$letter}}) {
if ($substitution->()) {
$board =~ s/^([^x]+)// and $placed .= $1;
... |
| Games-Poker-Omaha-Hutchison-1.04 | Games::Poker::Omaha::Hutchison | show |
| sub _ace_low {
my $self = shift;
return ($self->ace and $self->twofive) ? 1 : 0
} |
| Games-Poker-TexasHold-em-1.4 | Games::Poker::TexasHold'em | show |
| sub next_stage {
my $self = shift;
return 0 unless $self->pot_square;
$self->{current_bet} = 0;
for (@{$self->{players}}) { $_->{in_this_round} = 0 }
$self->{stage}++;
my @cards = @_ unless $self->stage eq "showdo... |
| Games-Quakeworld-Query-0.35 | Games::Quakeworld::Query | show |
| sub players {
my $self = shift;
return $self->{players} - 1;
} |
| Games-Rezrov-0.20 | Games::Rezrov::ZOptions | show |
| sub CORRECT_TYPOS {
return (defined $_[0] ? $CORRECT_TYPOS = $_[0] : $CORRECT_TYPOS);
} |
| Games-Rezrov-0.20 | Games::Rezrov::Inliner | show |
| sub inline {
my $ref = shift;
my $rep = 'vec($Games::Rezrov::StoryFile::STORY_BYTES, $Games::Rezrov::StoryFile::PC++, 8)';
$$ref =~ s/GET_BYTE\(\)/$rep/og;
$rep = '(vec($Games::Rezrov::StoryFile::STORY_BYTES, $Games::Rezrov::StoryFile::PC++,... |
| Games-Rezrov-0.20 | Games::Rezrov::ZObjectStatus | show |
| sub new {
confess unless @_ == 3;
my ($type, $id, $object_cache) = @_;
my $self = {};
bless $self, $type;
my $pid = Games::Rezrov::StoryFile::player_object() || -1;
my $current_room = Games::Rezrov::StoryFile::current_room() || -1;
my $zo =... |
| Games-Sudoku-SudokuTk-0.14 | Games::Sudoku::SudokuTk | show |
| sub sudoku {
use Tk;
use Tk::Balloon;
use Games::Sudoku::menu;
use Games::Sudoku::affichgrille;
use Games::Sudoku::tr1;
use Games::Sudoku::conf;
conf();
foreach $a (@INC) {
$retour = opendir('DIRECTORY',$a . '/Games/Sudoku/photos');
... |
| Games-Wumpus-2009112401 | Games::Wumpus::Cave | show |
| sub stir_wumpus {
my $self = shift;
if (rand (1) < $WUMPUS_MOVES) {
my @exits = $self -> wumpus -> exits;
my $new = $exits [rand @exits];
if ($::DEBUG) {
say STDERR "Wumpus moves to ", $new -> na... |
| Gantry-3.64 | Gantry::Stash::View | show |
| sub data {
my( $self, $p ) = ( shift, shift );
$self->{__DATA__
return( $self->{__DATA__} );
} # end data
#-------------------------------------------------
# title( value )
#-------------------------------------------------
sub title... |
| Gantry-3.64 | Gantry::Stash::Controller | show |
| sub data {
my( $self, $p ) = ( shift, shift );
$self->{__DATA__
return( $self->{__DATA__} );
} # end data
1;
__END__
=head1 NAME
Gantry::Stash::Controller - Stash object for the controller
=head1 SYNOPSIS
$self->stash->... |
| Gapp-0.494 | Gapp::Menu | show |
| Genome-Model-Tools-Music-0.04 | Genome::Model::Tools::Music::CosmicOmim | show |
| sub AA_Check {
my ($AminoAcidChange_string, $line_num) = @_;
my ($residue1, $res_start, $residue2, $res_stop, $new_residue);
unless (defined($AminoAcidChange_string)) {
return ($residue1, $res_start, $residue2, $res_stop, $new_resid... |
| Gentoo-Probe-1.0.6 | Gentoo::Probe::PkgOf | show |
| sub output() {
my $self = shift;
return unless grep { length } @_;
local ($,,$\)=(",","\n");
print @_;
} |
| Geo-OGC-Geometry-0.05 | Geo::OGC::Geometry | show |
| sub ElementType {
return 'LineString';
} |
| Geo-Postcodes-0.32 | Geo::Postcodes::Update | show |
| sub _ask
{
my $question = shift;
print "$question (y/n): ";
my $answer = <STDIN>;
return $answer =~ /y/i;
} |
| Getargs-Mixed-1.03 | Getargs::Mixed | show |
| sub parameters {
my ($invocant, $spec);
if (ref $_[0] eq 'ARRAY') {
$spec = shift;
} elsif (ref $_[0]) {
croak "Getopt::Mixed doesn't handle a ",ref $_[0]," as a parameter.";
} else {
$invocant = shift;
$spec = shift;
}
croak "Getopt::Mixed... |
| Getopt-Janus-1.03 | Getopt::Janus::Tk | show |
| sub report_run_error {
my($self, $error_text) = @_;
$error_text ||= "Unknown error!?";
DEBUG and print "Reporting error $@\n";
my $m = MainWindow->new;
$m->title("Error!");
$m->label("An error occurred in the program:\n");
my $... |
| Getopt-Yagow-1.01 | Getopt::Yagow | show |
| sub DEBUG
{
my $this = shift;
print STDERR "configuration:\n";
foreach my $key ( @{$this->{configuration}} )
{
print STDERR "$key\n";
}
print STDERR "\n";
print STDERR "options:\n";
while( my($key,$val) = each ... |
| Gimp-2.2pre1 | Gimp::Util | show |
| sub gimp_layer_set_position {
my($layer,$new_pos)=@_;
$pos=$layer->get_position;
$layer->add_alpha;
while($pos>$new_pos) {
$layer->lower_layer;
$pos--;
}
while($pos<$new_pos) {
$layer->raise_layer;
... |
| Git-FastExport-0.08 | Git::FastExport | show |
| sub next_block {
my ($self) = @_;
my $block = bless {}, 'Git::FastExport::Block';
my $fh = $self->{export_fh};
if ( eof $fh ) {
$self->{git}->command_close_pipe( $fh, $self->{ctx} )
if $self->{git} && $s... |
| Git-FastExport-0.08 | Git::FastExport::Block | show |
| sub as_string {
my ($self) = @_;
my $string = $self->{header} . $LF;
for my $key ( @{ $fields{ $self->{type} } } ) {
next if !exists $self->{$key};
if ( $key eq 'data' ) {
$string
.= 'data ... |
| Git-FastExport-0.08 | Git::FastExport::Stitch | show |
| sub _last_alien_child {
my ( $self, $node, $branch, $parents ) = @_;
my $commits = $self->{commits};
my $from = $node->{name};
my $repo = $node->{repo};
my $old = '';
while ( $node ne $old ) {
$old = $node;
... |
| Git-Wrapper-0.028 | Git::Wrapper | show |
| sub status {
my $self = shift;
return $self->RUN('status' , @_ )
unless $self->supports_status_porcelain;
my $opt = ref $_[0] eq 'HASH' ? shift : {};
$opt->{$_} = 1 for qw<porcelain>;
my @out = $self->RUN(status => $... |
| Gloom-0.17 | Gloom | show |
| sub EXPORT_BASE {
return map { __PACKAGE__ . '::' .$_ }
qw(has WWW XXX YYY ZZZ);
} |
| GnaData-0.01 | GnaData::Read | show |
| sub write {
} |
| GnaData-0.01 | GnaData::Conform | show |
| sub deconform {
} |
| GnaData-0.01 | GnaData::Load::RDB | show |
| sub write {
} |
| Google-ProtocolBuffers-0.08 | Google::ProtocolBuffers::Codec | show |
| sub decode_float_be {
die BROKEN_MESSAGE() if $_[1]+4 > length($_[0]);
my $v = unpack('f', reverse substr($_[0], $_[1], 4));
$_[1] += 4;
return $v;
} |
| Graph-Easy-As_svg-0.23 | Graph::Easy::As_svg | show |
| sub as_svg
{
my ($self,$x,$y, $indent) = @_;
my $em = $self->EM();
my $lh = $self->LINE_HEIGHT();
my $att = $self->_svg_attributes($em);
my $title = _quote($self->title());
$att->{title} = $title if $title ne '';
my $... |
| Graph-Layout-Aesthetic-0.12 | Graph::Layout::Aesthetic::Monitor::GnuPlot | show |
| sub DESTROY {
my $monitor = shift;
my $fh = $monitor->{"fh"};
print $fh "quit\n";
close($fh);
warn("Unexpected returncode from gnuplot: $?") if $?;
} |
| Graph-Maker-0.02 | Graph::Maker::Utils | show |
| sub is_valid_degree_seq
{
my (@seq) = @_;
return 1 if @seq == 0;
my $s = 0;
$s += $_ foreach (@seq);
return 0 if $s & 1;
while(@seq)
{
@seq = reverse sort {$a<=>$b} @seq;
return 0 if $seq[0] < 0;
my $d = pop(@seq);
ret... |
| Graph-SocialMap-0.12 | Graph::SocialMap | show |
| sub pairs {
my @list = @_;
my @pairs;
for my $i (0..$#list) {
for my $j ($i+1..$#list) {
my ($a,$b) = @list[$i,$j];
push @pairs, [$a,$b];
}
}
return @pairs;
} |
| Graphics-ColorDeficiency-0.05 | Graphics::ColorDeficiency | show |
| sub getMixRatios {
my ($self, $val, $hi, $lo) = @_;
return (0.5, 0.5) if ($hi == $val);
$r1 = ($val - $lo) / 0x33;
return ($r1, 1-$r1);
} |
| Graphics-ColorNames-2.11 | Graphics::ColorNames | show |
| sub rgb {
my $self = shift;
my @rgb = hex2tuple($self->FETCH(my $name = shift));
my $sep = shift || ',';
return wantarray ? @rgb : join($sep,@rgb);
} |
| Graphics-ColorNames-Mozilla-0.11 | Graphics::ColorNames::Mozilla | show |
| sub NamesRgbTable() {
use integer;
return {
"aliceblue" => 0xF0F8FF,
"antiquewhite" => 0xFAEBD7,
"aqua" => 0x00FFFF,
"aquamarine" => 0x7FFFD4,
"azure" => 0xF0FFFF,
"beige" =>... |
| Graphics-Simple-0.04 | Graphics::Simple::Fig | show |
| sub _wait {
my($this) = @_;
my $fn = $this->{FN};
$fn = $fn->() if(ref $fn);
open FIGOUT, ">$fn";
print FIGOUT "#FIG 3.2\nPortrait\nCenter\nMetric\nA4\n100.0\nSingle\n-2\n50 2\n";
for(@{$this->{Objs}}) {
print FIGOUT $this->{Obj}{$_... |
| Graphics-Simple-0.04 | Graphics::Simple::PostScript | show |
| sub _wait {
my($this) = @_;
my $fn = $this->{FN};
$fn = $fn->() if(ref $fn);
open PSOUT, ">$fn";
for(@{$this->{Objs}}) {
print PSOUT $this->{Obj}{$_};
}
print PSOUT " showpage \n";
close PSOUT;
print "Output written to '$fn'\n";
... |
| Graphics-VTK-4.0.001 | Graphics::VTK::Tk::HistogramWidget | show |
| sub UpdateInteraction
{
my $widget = shift;
my $x = shift;
my $y = shift;
my $accumulate;
my $binMax;
my $binMin;
my $data;
my $mapper;
my $max;
my $origin;
my $return;
my $spacing;
my $str1;
my $str2;
$x = $x / 2;
$accumulate = $widget-&g... |
| Gtk-Perl-0.7010 | ExtUtils::Depends | show |
| sub write_ext {
my ($self, $filename) = @_;
my $file = new IO::File "> $filename" || carp "Cannot create $filename: $!";
print $file "\n\n# Do not edit this file, as it is automatically generated by Makefile.PL\n\n";
print $file "BOOT:\n{\n";
... |
| Gtk2-Ex-Xor-22 | Gtk2::Ex::Xor | show |
| sub _do_expose {
my ($widget, $event, $ref_weak_self) = @_;
if (my $self = $$ref_weak_self) {
if ($self->{'drawn'}) {
$self->signal_emit ('draw', $self, $event->region);
}
}
return 0;
} |
| Gzip-BinarySearch-0.91 | Gzip::BinarySearch | show |
| sub _build_gzip {
my ($class, %args) = @_;
my %gra_args;
for my $key (@GRA_ALLOWED_ARGS) {
$gra_args{$key} = $args{$key} if exists $args{$key};
}
return Gzip::RandomAccess->new(%gra_args);
} |
| HTML-ActiveLink-1.02 | HTML::ActiveLink | show |
| sub server_port {
return $ENV{HTTP_PORT} || $ENV{SERVER_PORT} || '80';
} |
| HTML-CalendarMonthDB-1.01 | HTML::CalendarMonthDB | show |
| sub header {
my $self = shift;
my $newvalue = shift;
if (defined($newvalue)) { $self->{'header'} = $newvalue; }
return $self->{'header'};
} |
| HTML-CalendarMonthSimple-1.25 | HTML::CalendarMonthSimple | show |
| sub _date_string_to_numeric {
my $self = shift;
my $date = shift || return ();
my($which,$weekday);
if ($date =~ m/^\d\.*\d*$/) {
return int($date);
}
elsif (($which,$weekday) = ($date =~ m/^(\d)([a-zA-Z]+)$/)) {
my($y,$m,$... |
| HTML-Clean-Human-1.07 | HTML::Clean::Human | show |
| sub headings2text {
my $html = shift;
my $change = $html;
HEADING: while( $html=~/<h(\d)[^<>]*>([^<>]+)<\/h\1>/i ){
my($h,$text) = ($1,$2);
my $text_altered;
if($h == 1 ){
$text_altered =... |
| HTML-EP-0.2011 | HTML::EP::CGIEncryptForm | show |
| sub _ep_cef_decrypt {
my($self, $attr) = @_;
my $dest = $attr->{'dest'};
my $source = $attr->{'source'};
die "Missing attribute 'source' (Source String Variable)"
unless defined $source;
$source = ref($source) ? $source :
($so... |
| HTML-EP-0.2011 | HTML::EP::Install | show |
| sub InstallCgiFiles {
my($fromDir, $toDir) = @_ ? @_ : @ARGV;
InstallFiles($fromDir, $toDir, $install_cgi_files, 0755);
} |
| HTML-EP-0.2011 | HTML::EP::Examples::Admin | show |
| sub _format_RANGE_SELECTED {
my $self = shift; my $val = shift;
$val ? "" : "SELECTED";
} |
| HTML-Embperl-1.3.6 | HTML::EmbperlObject | show |
| sub Execute
{
my $req = shift ;
my $cwd ;
my $filename = norm_path ($req -> {inputfile}, $cwd) ;
my $r ;
$r = $req -> {req_rec} if ($req -> {req_rec}) ;
if (exists $req -> {filesmatch} &&
... |
| HTML-Embperl-1.3.6 | HTML::Embperl::Mail | show |
| sub Execute
{
my ($req) = @_ ;
my $data ;
my @errors ;
$req -> {options} ||= &HTML::Embperl::optDisableHtmlScan | &HTML::Embperl::optRawInput |
&HTML::Embperl::optKeepSpaces | &HTML::Embperl::optRe... |
| HTML-FormEngine-1.01 | HTML::FormEngine::SkinConfirm | show |
| sub _get_confirm_skin {
return undef;
} |
| HTML-FormFu-ExtJS-0.090 | HTML::FormFu::ExtJS::Util | show |
| sub ext_class_of {
my $element = shift;
my $classname;
croak "cannot determine ext class for element '" . (ref $element) . "'"
unless ($element->can( 'type' ));
if ($element->type =~ /^(.*)::Element::(.*?)$/) {
$cla... |
| HTML-FormHandlerX-Form-JQueryValidator-0.05 | HTML::FormHandlerX::Form::JQueryValidator | show |
| sub as_escaped_json {
my $self = shift;
my $js_profile = $self->to_jquery_validation_profile;
return uri_escape_utf8(JSON->new->encode($js_profile)),
} |
| HTML-HTML5-Parser-0.208 | HTML::HTML5::Parser | show |
| sub DESTROY {} |
| HTML-HashTable-0.6 | HTML::HashTable | show |
| sub make_table {
my $tsref = shift;
open_table($tsref);
foreach my $key (sort {
if ($tsref->{SORTBY} eq "value") {
if ($tsref->{ORDER} eq 'asc') {
${$tsref->{DATA}}{$a} cmp ${$tsref->{DATA}}{$b};
} else {
${$tsref->{DAT... |
| HTML-Merge-3.54 | HTML::Merge::Mail | show |
| sub Inject {
my ($sock, $str, $code) = @_;
print $sock "$str\r\n";
Expect($sock, $code) if $code;
} |
| HTML-Merge-3.54 | HTML::Merge::Mail | show |
| sub Inject {
my ($sock, $str, $code) = @_;
print $sock "$str\r\n";
Expect($sock, $code) if $code;
} |
| HTML-ParseBrowser-1.05 | HTML::ParseBrowser | show |
| sub AUTOLOAD {
my $self = shift;
my $method = lc($AUTOLOAD);
$method =~ s/^.*\:\://;
if (exists($self->{$method})) {
return $self->{$method};
} elsif (exists($self->{version}->{$method})) {
return $self-&... |
| HTML-PhotoAlbum-1.20 | HTML::PhotoAlbum | show |
| sub selected {
my $self = shift;
return $self->{cgi}->param('album');
} |
| HTML-ReportWriter-1.5.1 | HTML::ReportWriter | show |
| sub get_results
{
my $self = shift;
my $loop_counter = 0;
my $results = [];
if($self->{'EXPORT'})
{
my $sql = 'SELECT '
. join(', ', map { $_->{'sql'} } @{$self->{'COLUMNS'}})
. ' ' . $self->... |
| HTML-Stream-1.60 | HTML::Stream | show |
| sub new {
my $class = shift;
my $self = HTML::Stream->new(@_);
$self->auto_escape('LATIN_1');
bless $self, $class;
} |
| HTML-Transmorgify-0.09 | HTML::Transmorgify::FormDefault | show |
| sub form_tag
{
my ($fattr, $closed) = @_;
die if $closed;
my $default;
return unless compile_time_gate($fattr);
my $text_cb = sub {
my ($attr, $closed) = @_;
rbuf(sub {
return 1 unless run_time_gate($attr);
$attr->set(value => q... |
| HTML-Transmorgify-0.09 | HTML::Transmorgify::Metatags | show |
| sub do_trim
{
my ($attr, $buf) = @_;
my $trim = $attr->raw('trim');
if (@$buf && boolean($trim, 0)) {
if ($trim eq 'all') {
(s/^\s+// || s/\s+$//)
for grep { ! ref($_) } @$buf;
} else {
if ($trim ne 'end') {
$buf->[0] =~ s/^\s... |
| HTML-Transmorgify-0.09 | HTML::Transmorgify::Conditionals | show |
| sub new { my $self = bless( {
'_precompiled' => 1,
'localvars' => '',
'startcode' => '',
'namespace' => 'Parse::RecDescent::HTML::Transmorgify::Conditionals',
... |
| HTML-Transmorgify-0.09 | HTML::Transmorgify::ConditionalsDebug | show |
| sub new { my $self = bless( {
'_precompiled' => 1,
'localvars' => '',
'startcode' => '',
'namespace' => 'Parse::RecDescent::HTML::Transmorgify::ConditionalsDebug',
... |
| HTML-Widgets-SelectLayers-0.07 | HTML::Widgets::SelectLayers | show |
| sub _safeonload {
<<END;
} |
| HTTP-DAV-0.47 | HTTP::DAV::Response | show |
| sub as_string {
my ($self) = @_;
my ($ms, $returnstr) = "";
foreach my $num ( 0 .. $self->response_count() ) {
my %h = %{$self->{_dav_multistatus}[$num]};
$ms .= "Error number $num ($h{handle}):\n";
$ms .= " Href: ... |
| HTTP-Daemon-Threaded-0.91 | HTTP::Daemon::Threaded::IOSelector | show |
| sub select {
my $obj = shift;
my $start = time();
$! = undef;
my ($read, $write, $except) = IO::Select->select(
$obj->[0],
$obj->[1],
$obj->[2],
$obj->[3] );
if ($! ne '') {
print STDERR "select() failure: $!\n";
print ST... |
| HTTP-DownloadLimit-0.1 | HTTP::DownloadLimit | show |
| sub _http_status_404
{
return "Status: 404 Not Found\n".
"Content-Type: text/html\n".
"Connection: close\n\n".
"404 Not Found";
} |
| HTTP-Server-EV-0.6 | HTTP::Server::EV::IO::Blocking | show |
| sub _done {
$_[0]->{parent_req}{parent_listener}{on_file_received}->($_[0]->{parent_req}, $_[0]) if $_[0]->{parent_req}{parent_listener}{on_file_received};
$_[0]->{parent_req}->start;
seek $_[0]->{fh},0,0;
} |
| HTTP-Server-EV-ServeStatic-0.1 | HTTP::Server::EV::ServeStatic | show |
| sub _find_real_path {
my ($self, $path) = @_;
if(-f ($self->{basedir}.$path) ){
return $self->{basedir}.$path;
}elsif( $self->{indexes} ){
for ( @{ $self->{indexes} }){
return $self->{basedir}.$path.'/'.$_ if( -f $self->{base... |
| Hal-Cdroms-0.04 | Hal::Cdroms | show |
| sub member { my $e = shift; foreach (@_) { $e eq $_ and return 1 } 0 } |
| Ham-Callsign-0.31 | Ham::Callsign::Display::Format | show |
| sub format_to_string {
my ($format, $callsign) = @_;
my @args;
while ($format =~ s/\%{(?:(-?[\.\d]+):|)([^\%]+)}/"%" . ($1 || "") . "s"/e) {
my $arg;
if (defined($callsign->{$2})) {
$arg = $callsign->{$2};
} else {
$arg = "... |
| Hardware-Verilog-Parser-0.13 | Hardware::Verilog::StdLogic | show |
| sub BinaryOperatorChain
{
my ( $obj, @chain_list ) = @_;
if(0)
{
print "\n\n\n DUMPING LIST \n\n\n";
foreach my $item (@chain_list)
{
if (ref($item))
{
$item->dump;
}
else
{ print "operator is $item \n"; }
}
}
my $i;... |
| Hardware-Verilog-Parser-0.13 | Hardware::Verilog::Hierarchy | show |
| sub new
{
my ($pkg) = @_;
my $r_hash = $pkg->SUPER::new;
bless $r_hash, $pkg;
return $r_hash;
} |
| Hardware-Vhdl-Parser-0.12 | Hardware::Vhdl::Hierarchy | show |
| sub new
{
my ($pkg) = @_;
my $r_hash = $pkg->SUPER::new;
$r_hash -> Replace ( q(
component_instantiation_statement :
instantiation_label
':'
entity_configuration_component
generic_map_section(?)
port_map_section(?)
';'
{ print "INST... |
| Hash-Extract-0.02 | Hash::Extract | show |
| Hash-MostUtils-1.04 | Hash::MostUtils::leach::v5_10 | show |
| sub leach(\[@%$]) { unshift @_, 2; goto &n_each } |
| HoneyClient-Manager-0.99 | HoneyClient::Manager::FW | show |
| sub testConnect {
my $class = shift;
my $table = IPTables::IPv4::init('filter');
my $dnsport = getVar(name => "dnsport");
my $status;
_set_ip_forwarding(0);
_setAcceptPolicy();
_flushChains();
_createNat();
_set_ip_forwarding(1);
return 1;
... |
| ICal-QuickAdd-1.00 | ICal::QuickAdd | show |
| sub get_dt {
my $self = shift;
return $self->{dt};
} |
| IETF-ACE-0.02 | IETF::ACE | show |
| sub DieOut {
my $DieTemp = shift(@_);
die;
} |
| IMAPGet-0.1 | IMAPGet | show |
| sub del {
my $self = shift;
my @smsgs = @_;
my $strsmsgs;
my $sock = $self->{Socket};
my $line;
my $tmp;
unless (defined $sock) {
print "IMAPGet: not connected\n";
return undef;
}
$strsmsgs = shift @smsgs;
while ($tmp = shift @smsgs) {
$strsmsgs =... |
| IO-All-0.46 | IO::All::Filesys | show |
| sub utime {
my $self = shift;
my $atime = shift;
my $mtime = shift;
$atime = time unless defined $atime;
$mtime = $atime unless defined $mtime;
utime($atime, $mtime, $self->name);
return $self;
} |
| IO-DiskImage-Floppy-0.01 | IO::DiskImage::Floppy | show |
| sub ipl
{
my $this = shift;
my $file = shift;
if( defined($file) )
{
open(my $fh, '<', $file) or die "could not open file [$file]: $!";
local($/);
my $data = <$fh>;
close $fh;
my $size = length($data);
$this->{ipl_address}+$siz... |
| IO-File-Lockable-0.34 | IO::File::Lockable | show |
| sub set_timeout :method {
my $self = shift;
my $timeout = shift;
my $sub = shift;
my $result = $timeout
? eval {
local $SIG{ALRM} = sub {die('TIMEOUT')};
my $old = alarm($timeout);
my $r = $sub->();
alarm($old);
return $r;
}... |
| IO-File-Multi-1.02 | IO::File::Multi | show |
| sub format_formfeed { my($I)=shift; $I->fh_st(@_); } |
| IO-ReStoreFH-v0.03 | IO::ReStoreFH | show |
| sub DESTROY {
my $self = shift;
try {
$self->restore;
}
catch { croak $_ };
return;
} |
| IO-Socket-RedisPubSub-0.02 | IO::Socket::RedisPubSub | show |
| sub close {
my $self = shift;
my $conn = $self->{connection};
$conn->close if $conn && $conn->connected;
} |
| IO-Tail-0.01 | IO::Tail | show |
| sub loop
{
my $this = shift;
my $timeout_secs = shift;
my $enter_at = time;
while( $this->check() )
{
if( defined($timeout_secs) && time - $enter_at > $timeout_secs )
{
last;
}
select(undef,undef,undef,0.1);
}
} |
| IPTables-0.05 | IPTables | show |
| sub DESTROY
{
my ($self) = @_;
} |
| Image-BoxModel-0.50 | Image::BoxModel | show |
| sub PresetColors{
my $colors_text = '#FFFAFA snow
#FFFAFA snow1
#EEE9E9 snow2
#FFC1C1 RosyBrown1
#EEB4B4 RosyBrown2
#CDC9C9 snow3
#F08080 LightCoral
#FF6A6A IndianRed1
#CD9B9B RosyBrown3
#EE6363 IndianRed2
#BC8F8F RosyBrown
#FF4040 brown1
#FF3030 firebri... |
| Image-Identicon-0.03 | Image::Identicon | show |
| sub _resize
{
my $r = shift;
my $image = $r->{image};
my $size = $r->{size};
if( $size && $image->width!=$size )
{
my $orig = $image;
my $image = GD::Image->new($size, $size, 1);
$image->copyResampled($orig, 0, 0, 0, 0, $size,... |
| Image-WorldMap-0.15 | Image::WorldMap | show |
| sub _fisher_yates_shuffle {
my $array = shift;
my $i;
for ( $i = @$array; --$i; ) {
my $j = int rand( $i + 1 );
@$array[ $i, $j ] = @$array[ $j, $i ];
}
} |
| Imager-0.94 | Imager::Fountain | show |
| sub _save_gimp_gradient {
my ($self, $fh, $filename, $name) = @_;
print $fh "GIMP Gradient\n";
defined $name or $name = '';
$name =~ tr/ -~/ /cds;
if ($name) {
print $fh "Name: $name\n";
}
print $fh scalar(@$self),"\n";
for my $row (@... |
| Imager-0.94 | Imager::Font::Image | show |
| sub _draw {
my ($self, %opts) = @_;
my $x = $opts{'x'};
my $y = $opts{'y'};
my @glyphs = unpack("C*", $opts{string});
my $img = $opts{image};
my $glyph;
for $glyph (@glyphs) {
my @gmetrics = $self->get_glyph_data($glyph) or next;
... |
| Imager-Graph-0.10 | Imager::Graph::Util | show |
| sub intersect_line_and_circle {
my ($a, $b, $c, $cx, $cy, $r) = @_;
DEBUG and !defined($a) and croak('$a undefined');
DEBUG and !defined($b) and croak('$b undefined');
DEBUG and !defined($c) and croak('$c undefined');
DEBUG and !defined($cx)... |
| InSilicoSpectro-1.3.24 | InSilicoSpectro::InSilico::Peptide | show |
| sub print
{
my ($this, $out) = @_;
my $fdOut = defined($out) ? (new SelectSaver(InSilicoSpectro::Utils::io->getFD($out) || croak("cannot open [$out]: $!"))) : \*STDOUT;
print $fdOut $this->toString(), "\n";
print $fdOut "".(InSilicoSpectro:... |
| InSilicoSpectro-1.3.24 | InSilicoSpectro::InSilico::CleavEnzyme | show |
| sub twig_addEnzyme{
my ($twig, $el)=@_;
my $ce=InSilicoSpectro::InSilico::CleavEnzyme->new();
$ce->name($el->atts->{name} || $el->first_child('name')->text);
if (my $gel=$el->first_child('CTermGain')){
$ce->CTermGain... |
| InSilicoSpectro-1.3.24 | InSilicoSpectro::InSilico::InternIonSeries | show |
| sub new
{
my $pkg = shift;
my $iis;
my $class = ref($pkg) || $pkg;
if (ref($_[0]) && $_[0]->isa('InSilicoSpectro::InSilico::IonSeries')){
$iis = new InSilicoSpectro::InSilico::IonSeries(@_);
bless($iis, $class);
}
elsif (ref($_[0]... |
| InSilicoSpectro-1.3.24 | InSilicoSpectro::InSilico::PMFMatch | show |
| sub getUnmatchedPeptides
{
my ($this, $tol, $minTol) = @_;
return undef if (!defined($this->match()) || !defined($this->digestResult()) || !defined($this->expSpectrum()));
$minTol = $minTol || 0.1;
my $massIndex = $this->expSpectrum(... |
| InSilicoSpectro-1.3.24 | InSilicoSpectro::InSilico::MSMSOutput | show |
| sub plotLegendOnly
{
my (%h) = @_;
my ($fname, $fhandle, $fontChoice, $intSel, $colorScale, $format, $inCellBorder, $lineColor) = ($h{fname}, $h{fhandle}, $h{fontChoice}, $h{intSel}, $h{colorScale}, $h{format}, $h{inCellBorder}, $h{lineColor});
if ... |
| InSilicoSpectro-1.3.24 | InSilicoSpectro::InSilico::TermIonSeries | show |
| sub terminus
{
my ($this, $t) = @_;
if (defined($t)){
$t = uc($t);
if (($t eq 'C') || ($t eq 'N')){
$this->{terminus} = $t;
}
else{
croak("Illegal value for terminus [$t]");
}
}
return $this->{terminus};
} |
| InSilicoSpectro-1.3.24 | InSilicoSpectro::InSilico::MassCalculator | show |
| sub twigAddModRes
{
my ($twig, $el) = @_;
my $name = $el->atts->{id} || $el->atts->{name};
my $rel = $el->first_child('residues') or return;
my $residues = $rel->atts->{aa};
my $residuesAfter = $rel->atts->{aaAfter} |... |
| InSilicoSpectro-1.3.24 | InSilicoSpectro::InSilico::MSMSTheoSpectrum | show |
| sub getInternIons
{
my $this = shift;
my $tol = $this->tol();
my $minTol = $this->minTol() || 0.2;
my @internIons;
my %spectrum = %{$this->{theoSpectrum}};
my $massIndex = $spectrum{intensityIndex};
foreach my $frag (keys(%{$spectr... |
| InSilicoSpectro-1.3.24 | InSilicoSpectro::InSilico::IonSeries | show |
| sub toString
{
my $this = shift;
my $string = $this->ionType().": ";
my @names = @{$this->names()};
my @masses = @{$this->masses()};
my @matches = defined($this->matches()) ? @{$this->matches()} : ();
for (my $i = 0; $i < @m... |
| InSilicoSpectro-1.3.24 | InSilicoSpectro::InSilico::AASequence | show |
| sub getMass
{
my $this = shift;
return $this->{mass} if (defined($this->{mass}) && ($this->{massType} == InSilicoSpectro::InSilico::MassCalculator::getMassType()));
return undef if (!defined($this->{sequence}));
my @list;
foreach ... |
| InfoBrief-0.14 | InfoBrief | show |
| sub trailer {
my $self = shift;
<<EOT
;
} |
| Introspector-0.04 | IncludePaths | show |
| sub NoSiteLib
{
@INC = (
'./',
'/usr/local/lib/perl5/5.6.1/i686-linux-thread-multi',
'/usr/local/lib/perl5/5.6.1',
);
} |
| Isam-0.2 | Salaire | show |
| sub FIELDS { $FIELDS } |
| Java-2Perl6API-0.11 | Java::Javap::Grammar | show |
| sub new { my $self = bless( {
'_precompiled' => 1,
'localvars' => '',
'startcode' => '',
'namespace' => 'Parse::RecDescent::Java::Javap::Grammar',
'rules' =&g... |
| Java-Build-0.05 | MyBuild | show |
| sub DESTROY {
print LOG "build complete\n";
close LOG;
} |
| JavaScript-Code-0.08 | JavaScript::Code::Function | show |
| sub output {
my $self = shift;
my $scope = shift || 1;
die "Can not defined a build-in function."
if $self->is_buildin;
my $name = $self->check_name;
my $indenting = $self->get_indenting($scope);
my $output ... |
| JavaScript-Code-0.08 | JavaScript::Code::Condition | show |
| sub output {
my $self = shift;
my $scope = shift || 1;
die "At least one if-statement is needed."
unless defined $self->ifs;
my $indenting = $self->get_indenting($scope);
my $output = '';
my $max = @{ $self->i... |
| JavaScript-Code-0.08 | JavaScript::Code::Function::BuildIn | show |
| sub return {
my $obj = shift;
my $class = ref $obj || $obj;
return $class->new( name => 'return' );
} |
| JavaScript-Lite-0.04 | JavaScript::Lite | show |
| sub eval {
my($self, $code, $file) = @_;
$file ||= "(eval)";
$self->eval_js($code, $file);
} |
| Joystick-1.01 | Joystick | show |
| sub joyGetDevCaps{
my $self = shift;
my $_LPCAPS = pack $LPCAPSPACK,@_LPCAPS;
$_joyGetDevCaps->Call($self->{DEV}, $_LPCAPS, length $_LPCAPS);
my ($mid, $pid, $driver, $junk, $xmin, $xmax, $ymin, $ymax,
$zmin, $zmax, $numbuttons, $periodm... |
| Kwiki-0.39 | Kwiki | show |
| sub process {
my $hub = $self->load_hub(@_);
$hub->registry->load;
$hub->add_hooks;
$hub->pre_process;
my $html = $hub->process;
if (defined $html) {
$hub->headers->print;
$self->utf8_enco... |
| Kwiki-0.39 | Kwiki::BrowserDetect | show |
| sub AUTOLOAD {
our $AUTOLOAD;
my ($method) = $AUTOLOAD =~ /::(\w+)$/;
return if $method eq 'DESTROY';
$self->browser_detect(HTTP::BrowserDetect->new)
unless $self->browser_detect;
$self->browser_detect->$method(@_)... |
| Kwiki-0.39 | Kwiki::Command | show |
| sub usage {
warn <<END . $self->command_usage(" kwiki -%-20s # %s\n");
} |
| Kwiki-0.39 | Kwiki::Plugin | show |
| sub new_preference {
$self->hub->preferences->new_preference(scalar(caller), @_);
} |
| Kwiki-0.39 | Kwiki::CGI | show |
| sub set_default_page_name {
my $page_name = shift;
$page_name = '' if $page_name and $page_name =~ /[^$ALPHANUM]/;
$page_name ||= $self->hub->config->main_page;
} |
| Kwiki-0.39 | Kwiki::Display | show |
| sub display {
my $page = $self->pages->current;
return $self->redirect('')
unless $page;
my $page_title = $page->title;
my $page_uri = $page->uri;
return $self->redirect("action=edit;page_name=$page_uri")
... |
| Kwiki-0.39 | Kwiki::Hub | show |
| sub action {
$self->cgi->action || 'display';
} |
| Kwiki-0.39 | Kwiki::WebFile | show |
| sub clear_files {
$self->files([]);
} |
| Kwiki-0.39 | Kwiki::Preferences | show |
| sub pulldown {
my $i = 1;
my @choices = @{$self->choices};
my @values = grep {$i++ % 2} @choices;
my $value = $self->value;
CGI::popup_menu(
-name => $self->owner_id . '__' . $self->id,
-values => \@va... |
| Kwiki-0.39 | Kwiki::Installer | show |
| sub warn_config {
<<END . shift;
} |
| Kwiki-0.39 | Kwiki::Pane | show |
| sub show {
my $unit = shift;
my $action = $self->hub->action;
my $show = $unit->{show_for};
if (defined $show) {
for (ref($show) ? (@$show) : ($show)) {
return 1 if $_ eq $action;
}
return 0;
... |
| Kwiki-0.39 | Kwiki::Theme | show |
| sub resolve_install_path {
sprintf shift, $self->theme_id;
} |
| Kwiki-0.39 | Kwiki::Toolbar | show |
| sub order {
@{$self->config->toolbar_order};
} |
| Kwiki-0.39 | Kwiki::Icons | show |
| sub usage {
die "Don't use Kwiki::Icons directly. Use a subclass of it.";
} |
| Kwiki-0.39 | Kwiki::Archive | show |
| sub revision_numbers {
my $page = shift;
[map $_->{revision_id}, @{$self->history($page)}];
} |
| Kwiki-0.39 | Kwiki::Config | show |
| sub get_packed_files {
my @return;
my @packed = super;
while (my ($name, $content) = splice(@packed, 0, 2)) {
if ($name =~ /^(plugins|config\.yaml)$/) {
next if -f $name;
}
push @return, $name, $content;
... |
| Kwiki-0.39 | Kwiki::Registry | show |
| sub missing_prerequisite {
my ($class_id, $prereq) = @_;
my $class_name = $self->lookup->{classes}{$class_id};
die "Missing prerequisite plugin '$prereq' for $class_name\n";
} |
| Kwiki-AdSense-0.11 | Kwiki::AdSense | show |
| sub show_adsense {
my $p = $self->new_preference('show_adsense');
$p->query('Show Google AdSense Ads?');
$p->default(1);
return $p;
} |
| Kwiki-AnchorLink-0.03 | Kwiki::AnchorLink | show |
| sub to_html {
my $anchor_name = $self->arguments;
return qq{<a name="$anchor_name"></a>};
} |
| Kwiki-Archive-SVK-0.12 | Kwiki::Archive::SVK | show |
| sub show_revisions {
my $page = $self->pages->current;
my $count = 0;
my $handle = $self->svk_handle($page);
my $fs = ($handle->{xd}->find_repos('//', 1))[2]->fs;
my $path = "/pages/".$page->id;
traverse_hist... |
| Kwiki-Backlinks-0.10 | Kwiki::Backlinks | show |
| sub get_backlinks_for_page {
my $page_id = shift;
my $chunk = $self->SEPARATOR . $page_id;
my $dir = $self->storage_directory . '/';
my $path = $dir . "*$chunk";
map { s/^$dir//; s/$chunk$//; $_} glob($path);
} |
| Kwiki-BreadCrumbs-0.12 | Kwiki::BreadCrumbs | show |
| sub html {
my @trail = @{$self->trail};
my $show = $self->preferences->show_bread_crumbs->value;
splice @trail, $show
if @trail > $show;
my $script_name = $self->config->script_name;
my $pages = $self->hub... |
| Kwiki-Cache-0.11 | Kwiki::Cache | show |
| sub process {
my $closure = shift;
my $cache_name = Digest::MD5::md5_hex(join '!@#$', @_);
my $path = $self->plugin_directory;
my $io = io->catfile($path, $cache_name)->assert;
unless ($io->exists) {
$io->lock-&g... |
| Kwiki-CachedDisplay-0.07 | Kwiki::CachedDisplay | show |
| sub check_cached {
my $hook = pop;
my $display = $self;
$self = $display->hub->cached_display;
my $page = $self->pages->current;
return unless $page->exists;
return if (defined $self->config->can('cached_displa... |
| Kwiki-DB-0.02 | Kwiki::DB::DBI | show |
| sub connect {
my ($dsn, $user, $pass, $attr, $old_driver) = @_;
$attr->{RootClass} = 'DBI';
super($dsn, $user, $pass, $attr, $old_driver);
} |
| Kwiki-DB-0.02 | Kwiki::DB::ClassDBI | show |
| sub AUTOLOAD {
my ($p,$func) = $Kwiki::DB::ClassDBI::AUTOLOAD =~ m/(.*)::(.*?)$/;
for(keys %{$self->entities}) {
if ($_ eq $func) {
return $self->entities->{$_};
}
}
if(my $base = $self->base) {
... |
| Kwiki-DNSBL-0.01 | Kwiki::DNSBL | show |
| sub blocked_ip {
return $self->render_screen(
content_pane => 'blocked_ip.html',
);
} |
| Kwiki-DoubleClickToEdit-0.10 | Kwiki::DoubleClickToEdit | show |
| sub double_click {
my $p = $self->new_preference('double_click_to_edit');
$p->query('Kwiki Double Click To Edit?');
$p->type('boolean');
$p->default('1');
return $p;
} |
| Kwiki-Favorites-0.13 | Kwiki::Favorites | show |
| sub favorites_remove {
my $page_name = $self->pages->name_to_id($self->cgi->page_name);
my $favorites = $self->hub->cookie->jar->{favorites} || {};
delete $favorites->{$page_name};
$self->hub->cookie->ja... |
| Kwiki-GuestBook-0.13 | Kwiki::GuestBook | show |
| sub user_db {
my $db = io($self->plugin_directory . '/user_name.db');
$db->utf8->dbm('DB_File::Lock');
} |
| Kwiki-HomePagePreference-0.10 | Kwiki::HomePagePreference | show |
| sub check_home_page {
my $preference = shift;
my $value = $preference->new_value;
$self->utf8_decode($value);
return unless length $value;
return $preference->error('Value must not contain spaces')
if $value =~ /\s/;
... |
| Kwiki-HtmlBlocks-0.11 | Kwiki::HtmlBlocks | show |
| sub to_html {
$self->block_text;
} |
| Kwiki-Infobox-0.03 | Kwiki::Infobox | show |
| sub to_html {'';} |
| Kwiki-Kwiki-0.10 | Kwiki::Kwiki | show |
| sub make_dist {
Kwiki::Kwiki::Command::Distfile->new->process;
} |
| Kwiki-ListPages-0.11 | Kwiki::ListPages | show |
| sub list_pages
{
my $pages = {};
my $all_pages = [];
$pages->{$_} = [] foreach( 'A'..'Z', 0..9 );
@$all_pages = sort $self->pages->all;
foreach my $page (@$all_pages) {
push(@{$pages->{ uc(substr($page->{id},0,1... |
| Kwiki-Markdown-0.01 | Kwiki::Markdown | show |
| sub text_to_html {
my $self = shift;
return markdown(shift);
} |
| Kwiki-MindMap-0.09 | Kwiki::MindMap | show |
| sub count_kids {
my $root = shift;
return 0 unless ref($root) eq 'HASH';
my @kids = keys %$root;
my $count = @kids;
foreach my $kid (@kids) {
$count += $self->count_kids($root->{$kid});
}
return $count;
} |
| Kwiki-ModPerl-0.09 | Kwiki::ModPerl | show |
| sub coolURI_handler {
my ($r, $rpath, $path) = @_;
return undef if (-f $rpath or -l $rpath);
return undef if -d $rpath;
return $path if ($r->args and $r->args =~ /\w+/);
my $pagename = $rpath;
$pagename =~ s|^$path||;
... |
| Kwiki-NavigationToolbar-0.02 | Kwiki::NavigationToolbar | show |
| sub html {
my $nav = $self->pages->new_page($self->config->navigation_toolbar_page);
my @navs = split/\n+/,$nav->content;
my $content = join('|', map { "<a href=\"?$_->{name}\">$_->{display}</a>" }
map {
... |
| Kwiki-Notify-IRC-0.05 | Kwiki::Notify::IRC | show |
| sub update {
no warnings 'once';
require POE::Component::IKC::ClientLite;
my $remote = POE::Component::IKC::ClientLite::create_ikc_client(
port => $self->hub->config->notify_irc_daemon_port,
ip => $se... |
| Kwiki-Orphans-0.11 | Kwiki::Orphans | show |
| sub read_leftside_backlinks_database {
my $dir = $self->hub->backlinks->storage_directory;
my $separator = $self->hub->backlinks->SEPARATOR;
my %pages = map {
s/^$dir//;
s/^\/.*?$separator//;
$_ => ... |
| Kwiki-Outline2Html-0.02 | Kwiki::Outline2HTML | show |
| sub gencontent {
my $content = shift;
my @paragraphs = split(/\n\n\n*/,$content);
foreach (@paragraphs) {
s/^\n+//s; s/\s+\n//s;
my $urlpattern = '(?:http|https|ftp)://(?:[^/\[\]:]+)(?::\d+)?/[^\|\s\[\]\(\)\<\>]*';
my $emailpattern=... |
| Kwiki-PPerl-0.01 | Kwiki::PPerl | show |
| sub fix_perl {
my $content = shift;
my $perl_dir = $Config{perlpath};
$perl_dir =~ s{/[^/]*$}{};
my $pperl = File::Spec->catfile($perl_dir, 'pperl');
$content =~ s/\{PPERL_PATH\}/#!$pperl/;
return $content;
} |
| Kwiki-PageInclude-0.02 | Kwiki::PageInclude | show |
| sub to_html {
my @args = split(/[\s,]+/,$self->arguments);
my $ret;
for(@args) {
my $page = $self->hub->pages->new_from_name($_);
$ret .= $self->hub->formatter->text_to_html($page->content);
}
re... |
| Kwiki-PageStats-0.06 | Kwiki::PageStats | show |
| sub unlock {
rmdir($self->lock_directory) or
die "unable to remove page count locking directory";
} |
| Kwiki-PageTemperature-0.01 | Kwiki::PageTemperature | show |
| sub blue {
int($self->page_age/$self->color_divisor);
} |
| Kwiki-ParagraphBlocks-0.12 | Kwiki::ParagraphBlocks | show |
| sub to_html {
my $block = Kwiki::Formatter::Paragraph->new(
hub => $self->hub,
text => $self->block_text,
);
$block->parse_phrases;
my $html = $block->to_html;
$html =~ s/.*?<p.*?>\n?(.*)<... |
| Kwiki-Podcast-0.01 | Kwiki::Podcast | show |
| sub mkrss {
my ($title,$creator,$description,@pods) = @_;
my $rss = XML::RSS->new( version => '2.0', encoding=> 'utf-8' );
$rss->channel(title => $title,
publisher => $creator,
description => $description );
... |
| Kwiki-PoweredBy-0.11 | Kwiki::PoweredBy | show |
| sub register {
my $registry = shift;
$registry->add(preload => $self->class_id);
$registry->add(widget => 'powered_by',
template => 'powered_by.html',
);
} |
| Kwiki-PreformattedBlocks-0.11 | Kwiki::PreformattedBlocks | show |
| sub to_html {
join '',
qq{<pre class="formatter_pre">\n},
$self->block_text,
"</pre>\n";
} |
| Kwiki-Search-Plucene-0.03 | Kwiki::Search::Plucene | show |
| sub update_page {
my $page = shift;
$self->plucy->delete_document($page->id,$page->content)
if(-d $self->index_path);
$self->plucy->index_document($page->id,$page->content);
} |
| Kwiki-Search-Spotlight-0.01 | Kwiki::Search::Spotlight | show |
| sub perform_search {
my $search = $self->cgi->search_term;
my $dir = io($self->plugin_directory)->absolute;
[ map {
s/$dir\///;
s/\.txt$//;
$self->hub->pages->new_page($_);
} split(/\n/,`/usr/bi... |
| Kwiki-Session-0.01 | Kwiki::Session | show |
| sub load_session {
my $jar = $self->hub->cookie->read("Session");
my $session = CGI::Session->new(undef, $jar->{id} || undef,
{Directory=>$self->plugin_directory});
$self->hub->cookie->write("Session",... |
| Kwiki-Simple-Server-HTTP-0.03 | Kwiki::Simple::Server::HTTP | show |
| sub handle_start {
my $port = shift || $self->hub->config->simple_server_http_port;
my $server = HTTP::Server::Simple::Kwiki->new($port);
$server->run();
} |
| Kwiki-Template-TT2-UTF8-0.02 | Kwiki::Template::TT2::UTF8 | show |
| sub create_template_object {
require Template;
Template->new({
LOAD_TEMPLATES => [
Kwiki::Template::TT2::UTF8::Provider->new({
INCLUDE_PATH => $self->path,
})],
TOLERANT => 0,
COM... |
| Kwiki-Test-0.03 | Kwiki::Test | show |
| sub exists_as_dir {
-d shift;
} |
| Kwiki-Textile-0.01 | Kwiki::Textile | show |
| sub text_to_html {
my $self = shift;
return textile(shift);
} |
| Kwiki-Theme-JustContent-0.10 | Kwiki::Theme::JustContent | show |
| sub register {
my $register = shift;
$register->add(preload => 'theme', priority => 1);
} |
| Kwiki-Theme-Selectable-0.10 | Kwiki::Theme::Selectable | show |
| sub hook_install {
no strict 'refs';
no warnings;
my $command_class = ref($self->hub->command);
my $command_install = \ &{$command_class . "::install"};
*{$command_class . "::install"} = sub {
my $self = shift;
$s... |
| Kwiki-TimeZone-0.11 | Kwiki::TimeZone | show |
| sub format {
my $time = shift;
my $time_zone = $self->preferences->time_zone->value || 'GMT';
my $offset = $time_offsets->{$time_zone} || 0;
scalar(gmtime($time + $offset * 3600)) . " $time_zone";
} |
| Kwiki-URLBlock-0.05 | Kwiki::URLBlock | show |
| sub blocked_url {
return $self->render_screen(
content_pane => 'blocked_url.html',
);
} |
| Kwiki-UserName-0.14 | Kwiki::UserName | show |
| sub check_user_name {
my $preference = shift;
my $value = $preference->new_value;
$self->utf8_decode($value);
return unless length $value;
return $preference->error('Must be all alphanumeric characters.')
unless $value =... |
| Kwiki-UserName-Cookie-0.01 | Kwiki::UserName::Cookie | show |
| sub register {
my $registry = shift;
$registry->add(preload => 'user_name');
} |
| Kwiki-UserPreferences-0.13 | Kwiki::UserPreferences | show |
| sub get_preference_objects {
my %class_map = reverse %{$self->hub->registry->lookup->classes};
my @objects;
my $objects_by_class = $self->users->current->preferences->objects_by_class;
for (map $class_map{$_}, @{$s... |
| Kwiki-Users-Remote-0.04 | Kwiki::UserName::Remote | show |
| sub register {
my $registry = shift;
$registry->add( preload => 'user_name' );
} |
| Kwiki-Users-Remote-0.04 | Kwiki::Users::Remote | show |
| sub id {
exists $ENV{REMOTE_USER}
? $ENV{REMOTE_USER}
: $self->hub->config->user_default_name;
} |
| Kwiki-Widgets-Links-0.01 | Kwiki::Widgets::Links | show |
| sub get_links {
my @l = @{$self->hub->config->widgets_links};
map { { title => $l[$_], url => $l[$_+1] } } map { $_ * 2 } 0..$#l/2;
} |
| Kwiki-Widgets-RandomQuote-0.01 | Kwiki::Widgets::RandomQuote | show |
| sub show {
my @pages = $self->pages->all_ids_newest_first;
my $page = $self->pages->new_page($pages[int(rand(@pages))]);
my @paragraphs = split(/\n+/,$page->content);
my $choosen = @paragraphs[int(rand(@paragraphs))];
re... |
| Kwiki-Widgets-RecentChanges-0.01 | Kwiki::Widgets::RecentChanges | show |
| sub get_pages {
my $number = $self->preferences->widget_recent_changes_numbers->value;
my @pages = sort {
$b->modified_time <=> $a->modified_time
} $self->pages->recent_by_count($number);
return \@pages... |
| Kwiki-Zipcode-0.12 | Kwiki::Zipcode | show |
| sub check_zipcode {
my $preference = shift;
my $value = $preference->new_value;
return unless length $value;
$preference->error('Invalid. Must be 5 digits.')
unless $value =~ /^\d{5}$/;
} |
| LCFG-Build-VCS-0.1.4 | LCFG::Build::VCS::SVN | show |
| sub tagversion {
my ( $self, $version ) = @_;
my $module = $self->module;
warn "Tagging $module at version $version\n";
$self->update_changelog($version);
my $dir = $self->workdir;
$self->run_cmd( 'commit', '--mess... |
| LWP-UserAgent-RandomProxyConnect-1.10 | LWP::UserAgent::RandomProxyConnect | show |
| sub DESTROY{
my $self = @_;
} |
| LaTeX-BibTeX-0.34 | LaTeX::BibTeX::NameFormat | show |
| sub apply
{
my ($self, $name) = @_;
my $name_struct = $name->{'_cstruct'} ||
croak "invalid Name object: no C structure";
my $format_struct = $self->{'_cstruct'} ||
croak "invalid NameFormat object: no C structure";
format_n... |
| LaTeX-Pod-0.21 | LaTeX::Pod | show |
| sub _unregister_previous
{
my $self = shift;
my @items = @_;
foreach my $item (@items) {
delete $self->{previous}{$item};
}
} |
| Lab-Instrument-2.01 | Lab::Instrument::TRMC2 | show |
| sub MakeFrenchComma{
my $value=shift;
$value =~ s/\./,/g;
return $value;
} |
| Lab-Measurement-3.10 | Lab::Instrument::TRMC2 | show |
| sub MakeFrenchComma{
my $value=shift;
$value =~ s/\./,/g;
return $value;
} |
| Lang-Tree-Builder-0.1 | Lang::Tree::Builder::Data | show |
| sub finalize {
my ($self) = @_;
foreach my $key (keys %{$self->{classes}}) {
$self->{classes}{$key}->substantiate();
}
} |
| Language-AttributeGrammar-0.08 | Language::AttributeGrammar::Parser | show |
| sub new {
my ($class, $grammar, $prefix) = @_;
$prefix ||= '';
my $tree = $PARSER->grammar($grammar) or croak "Parse error";
return $ENGINE->evaluate('visit', $tree, 'engine', {
prefix => $prefix,
});
} |
| Language-Farnsworth-0.7.7 | Language::Farnsworth::Value::Boolean | show |
| sub compare
{
my ($one, $two, $rev) = @_;
error "Non reference given to compare of boolean" unless ref($two);
error "Scalar value given to division of boolean" if ($two->isa("Language::Farnsworth::Value::Pari"));
return $two->compare($one,... |
| Language-Farnsworth-0.7.7 | Language::Farnsworth::Value::Array | show |
| sub compare
{
my ($one, $two, $rev) = @_;
error "Non reference given to compare" unless ref($two);
error "Can't compare scalar with array" if ($two->istype("Pari"));
return $two->compare($one, !$rev) unless ($two->ismediumtype());
er... |
| Language-Farnsworth-0.7.7 | Language::Farnsworth::Value::Date | show |
| sub compare
{
my ($one, $two, $rev) = @_;
error "Non reference given to compare of dates" unless ref($two);
error "Scalar value given to division of dates" if ($two->isa("Language::Farnsworth::Value::Pari"));
return $two->compare($one, !$r... |
| Language-Farnsworth-0.7.7 | Language::Farnsworth::Value::String | show |
| sub compare
{
my ($one, $two, $rev) = @_;
error "Non reference given to compare of string" unless (ref($two));
error "Scalar value given to division to string" if ($two->isa("Language::Farnsworth::Value::Pari"));
return $two->compare($one,... |
| Language-Farnsworth-0.7.7 | Language::Farnsworth::Value::Undef | show |
| sub toperl
{
return undef;
} |
| Language-Functional-0.05 | Language::Functional | show |
| sub STORESIZE {
my($self, $size) = @_;
$self->{SIZE} = $size;
} |
| Language-Homespring-0.04 | Language::Homespring | show |
| sub _water_downwards {
my ($self, $node) = @_;
return if (!$node->{parent_node});
$node->{parent_node}->{water} = 1;
return if (($node->{parent_node}->{node_name} eq 'force field') && ($node->{parent_node}->{power}));
return i... |
| Language-Homespring-0.04 | Language::Homespring::Visualise | show |
| sub do {
my ($self) = @_;
my @lines;
my $lines = $self->{interp}->{root_node}->get_depth();
for(my $i=0; $i<$lines; $i++){
$lines[$i] = '-> ';
}
my %nodes = ( 0 => $self->{interp}->{root_node} );
while (scalar(keys(%no... |
| Language-Homespring-Visualise-GraphViz-0.04 | Language::Homespring::Visualise::GraphViz | show |
| sub add_node {
my ($self, $node, $rank) = @_;
for(@{$node->{child_nodes}}){
my $label = $_->{node_name_safe};
$label =~ s/\\/\\\\/g;
my $fillcolor = $_->{spring}?$self->{spring_col}:$self->{node_col};
$self->{graph}->add_... |
| Language-Mumps-1.08 | Language::Mumps | show |
| sub CLEAR {
my ($self, $key) = @_;
my $dbs = $self->{'dbs'};
my $hash;
foreach $hash (keys %$dbs) {
untie %$hash;
}
delete $self->{'dbs'};
} |
| Language-Prolog-Types-0.10 | Language::Prolog::Types::Converter | show |
| sub object2prolog {
my ($class, $obj)=@_;
UNIVERSAL::can($obj, "convert2prolog_term") and
return $obj->convert2prolog_term;
UNIVERSAL::isa($obj, 'ARRAY') and
return F('perl_object', ref($obj), L(@{$obj}));
UNIVERSAL::isa($obj, 'HASH... |
| Lemonldap-NG-Common-1.2.3 | Lemonldap::NG::Common::Apache::Session | show |
| sub populate {
my $self = shift;
my $backend = $self->{args}->{backend};
_load($backend);
$backend .= "::populate";
{
no strict 'refs';
$self = $self->$backend(@_);
}
if ( $self->{args}->{setId... |
| LibCAS-0.02a | LibCAS::Client::Response::ProxySuccess | show |
| sub proxy_ticket {
my $self = shift;
my $ticket = shift;
if (defined $ticket) {
$self->{proxy_ticket} = $ticket;
}
return $self->{proxy_ticket};
} |
| Lingua-BioYaTeA-0.11 | Lingua::BioYaTeA::TwigXML | show |
| sub objectSelf {
my ($twigself, $objectSelf) = @_;
if (defined $objectSelf) {
$twigself->{'objectSelf'} = $objectSelf;
}
return($twigself->{'objectSelf'});
} |
| Lingua-EN-Conjugate-0.311 | Lingua::EN::Conjugate | show |
| sub _no_double{
return qw(
abandon accouter accredit adhibit administer alter anchor answer attrit audit
author ballot banner batten bedizen bespatter betoken bewilder billet blacken
blither blossom bother brighten broaden broider burden caparison cata... |
| Lingua-EN-Dict-0.20 | Lingua::EN::Dict | show |
| sub tense {
my $word_hash = shift;
my $word = shift;
my $tense = shift;
my $server = $word_hash->{_}->{'.server'};
if($server) {
print $server "DICT-TENSE:$word", EOL; flush $server;
my $str;while(chomp($_=<$server>)){s/\r//g;;... |
| Lingua-IW-Logical-0.5 | Lingua::IW::Logical | show |
| sub log2vis_text {
my($text,$string_len,$before,$after) = @_;
$string_len = 80 unless $string_len;
$after = "\n" unless defined($after);
my($logstr,$outtext,$visstr);
while($text =~ /(.*(\n|$))/g) {
next unless $1;
$logstr = $1;
... |
| Lingua-LinkParser-MatchPath-0.03 | Lingua::LinkParser::MatchPath::Lex | show |
| sub lex {
my $self = shift;
my $t = shift @{$self->{token}};
if( $t->[0] ){
printf (" - %-15s ==> %s\n", @{$t}[1,0]) if $self->{debug};
return @$t;
}
('', undef);
} |
| Lingua-Orthon-0.02 | Lingua::Orthon | show |
| sub _min {
return $_[0] < $_[1]
? $_[0] < $_[2] ? $_[0] : $_[2]
: $_[1] < $_[2] ? $_[1] : $_[2];
} |
| Lingua-PT-Speaker-0.12 | Lingua::PT::Speaker | show |
| sub silabas {
my $word = shift;
return split '\|', wordaccent($word);
} |
| Lingua-Phonology-0.352 | Lingua::Phonology::RuleParser | show |
| sub new { my $self = bless( {
'_AUTOTREE' => undef,
'localvars' => '',
'startcode' => '',
'_check' => {
'thisoffset' => '',
... |
| Lingua-Phonology-0.352 | Lingua::Phonology::Functions | show |
| sub insert_before {
my ($seg1, $seg2) = @_;
return unless _is_ruleseg $seg1 && _is_seg $seg2;
$seg1->INSERT_LEFT($seg2);
} |
| Lingua-YaTeA-0.622 | Lingua::YaTeA::ParsingPatternParser | show |
| sub _Lexer {
my($parser)=shift;
my $fh = $parser->YYData->{FH};
my $open = '(\()';
my $det = $parser->YYData->{DETERMINERS};
my $prep = $parser->YYData->{PREPOSITIONS};
my $candidates = $parser->YYData->{... |
| Linux-Joystick-0.0.1 | Linux::Joystick | show |
| sub _decodeAxis {
my $self = shift;
my $stick = shift;
return undef unless $self->isAxis;
my $evenOdd = shift;
my $compFunc = shift;
if(defined $stick) {
return undef unless ($self->axis) >> 1 == $stick;
}
if($self->axis % 2 ==... |
| Linux-Proc-Mounts-0.02 | Linux::Proc::Mounts | show |
| sub is_rw { shift->[3] =~ /(?:^|,)rw(?:,|$)/ } |
| List-Filter-0.04 | List::Filter::Filters::Standard | show |
| sub match_all_any_order {
my $self = shift;
my $filter = shift;
my $items = shift;
my $search_patterns = $filter->{ terms };
my $modifiers = $filter->{modifiers};
my $criteria_count = scalar( @{ $search_pat... |
| LoadWorm-1.02 | LoadWorm | show |
| sub GetConfiguration { my($ConfigFile) = @_;
my $error, $section;
$WD = "." unless $WD;
$MASTERDIR = $WD unless $MASTERDIR;
$I_AM = ".*" unless $I_AM;
$main::MyPort = 9676;
$main::Randomly = 0;
$error = 0;
$section = "invalidsection... |
| LoadWorm-1.02 | AnyURL | show |
| sub Check { my ($Link, $Content) = @_;
open TMP, "<$Content";
while ( <TMP> )
{
if ( /<HEAD><TITLE>Request Failed<\/TITLE><\/HEAD>/ )
{
my $rslt = "500 $_";
while ( <TMP> ) { $rslt .= $_; }
$main::E... |
| Locale-PGetText-0.16 | Locale::PGetText | show |
| sub gettext($)
{
my $s=shift;
my $msg=$messages{$s};
return $msg if ($msg);
return $s;
} |
| Log-Accounting-SVK-0.05 | Log::Accounting::SVK | show |
| sub _extract_path {
my ($target,$paths) = @_;
return ['(DUMMY)'] unless $paths;
my %h;
my $prefix = $target->{path};
$prefix = '' if($prefix eq '/');
for(keys %$paths) {
s/^${prefix}//;
my @k = split(/\//,$_);
next unless $k[1];... |
| Log-Agent-0.307 | Log::Agent::Driver::Datum | show |
| sub logwrite {
my $self = shift;
my ($chan, $prio, $level, $str) = @_;
my $pkg = caller(1);
if ($pkg =~ /^Carp::Datum\b/) {
my $drv = $self->driver;
return unless defined $drv;
$drv->logwrite($chan, $prio, $level, $str);
return;
}
... |
| Log-Agent-0.307 | Log::Agent::Driver::Mail | show |
| sub prefix_msg {
my($self, $str) = @_;
return ($self->{prefix} ? $self->{prefix} . ' ' : '') . $str;
} |
| Log-Dispatch-Email-EmailSend-0.03 | Log::Dispatch::Email::EmailSend | show |
| sub send_email
{
my $self = shift;
my %p = @_;
my $email = Email::Simple->create( header =>
[ To => $self->{to},
From => $self->{from},
... |
| Log-Dispatch-FileRotate-1.19 | Log::Dispatch::FileRotate | show |
| sub debug
{
$_[0]->{'debug'} = $_[1];
} |
| Log-Dispatch-FogBugz-0.1 | Log::Dispatch::FogBugz | show |
| sub _init {
my ( $self, %opts ) = @_;
$self->{params} = \%opts;
foreach my $req ( qw/URL Project User Area/ ) {
croak "Required configuration parameter `$req` was not defined" unless defined $opts{$req};
}
unless ( $opts{D... |
| Log-Dispatch-Perl-0.04 | Log::Dispatch::Perl | show |
| sub log_message {
my ( $self, %param )= @_;
my $level= $param{level};
return if !exists $LEVEL2NUM{$level} and !exists $NUM2LEVEL{$level};
my $num= $LEVEL2NUM{$level};
$num= $level if !defined $num;
my $message= $param{message... |
| Log-Dispatch-Spread-0.9 | Log::Dispatch::Spread | show |
| sub log_message {
my $self = shift;
my %p = @_;
Spread::multicast( $self->{'mbox'},
SAFE_MESS,
@{$self->{'joined'}},
LOG_MSG_TYPE,
$p{message},
... |
| Log-Dispatch-Tk-1.7 | Log::Dispatch::ToTk | show |
| sub all_levels
{
my $self = shift;
return @{$self->{level_names}}[$self->{min_level} .. $self->{max_level}] ;
} |
| Log-Dispatch-Tk-1.7 | Log::Dispatch::TkText | show |
| sub log
{
my ($dw,%params) = @_;
$dw->insert('end',"$params{level}\n",
[$params{level}, 'label' ]);
$dw->insert('end',"$params{message}\n",
[$params{level}, 'message' ]);
} |
| Log-Dispatch-XML-0.01 | Log::Dispatch::XML | show |
| sub xml {
my ($self,$open,$method) = @_;
$open ||= 'messages';
my $close = $open =~ m#^([\w:\-]+)# ? $1 : '';
$method = $method ? 'fetch' : 'flush';
my $messages = $self->$method;
my $xml = "<$open>";
foreach (@{$m... |
| Log-FileSimple-0.02 | Log::FileSimple | show |
| sub mask { my $s = shift; if (@_) { $s->{mask} = shift; } return $s->{mask}; } |
| Log-Log4perl-1.40 | Log::Log4perl::NDC | show |
| sub remove {
@NDC_STACK = ();
} |
| Log-Parallel-0.303 | Log::Parallel::test_log_configs | show |
| sub run
{
my %opts;
exit unless GetOptions(
'config_file|config-file|c=s' => \$opts{config_file},
'test=s' => \$opts{test},
'yaml' => \$opts{yaml},
'job=s' => \$opts{job},
);
BAIL_OUT("--config_file required") unless... |
| Log-Parallel-0.303 | Log::Parallel::ltsv_to_tsv | show |
| sub run
{
die "$0: Usage [--add_source] metafile(s)" unless @ARGV;
my $add_source;
die unless GetOptions(
'add_source' => \$add_source,
);
my @metafiles;
for my $mf (@ARGV) {
die "no such file '$mf'\n" unless -e $mf;
my $meta = LoadFile... |
| Log-Simple-1.8 | Log::Simple | show |
| sub import($$)
{
my @tmp = @EXPORT_OK;
my $cllpkg = (caller(0))[0];
my $DBG = $cllpkg . "::LOGLEVEL";
my $dbg = $cllpkg . "::logger";
${$DBG} = $_[1];
if ( $_[1] > 0 )
{
}
else
{
shift @tmp;
*{$dbg} = sub { };
}
Log::Simple-... |
| Log-WarnDie-0.05 | Log::WarnDie | show |
| sub unimport { import( undef ) } |
| Love-Match-Calc-0.3 | Love::Match::Calc | show |
| sub count_chars {
my ( $input, $mode ) = validate_pos( @_, STRING,
{
%{+NUMBER_RANGE( 0, 4 )},
optional => 1,
default => 0
},
);
if($mode < 3){
use bytes;
my %freq;
my @freq;
@freq{0..255} = (0) x 256 if $mode != 1;
$freq{o... |
| MARC-Loop-0.01 | MARC::Loop | show |
| sub marcparse {
my ($strref, %args) = @_;
my $warning = $args{'warning'} || sub {
my ($msg) = @_;
print STDERR "WARNING: $msg\n";
};
my $error = $args{'error'} || sub {
my ($msg) = @_;
die "marcloop: error: ... |
| MIDI-XML-0.03 | MIDI::XML::Editor | show |
| sub new() {
my $class = shift;
$class = ref($class) || $class;
my $self = {};
bless $self,$class;
$self->{'_status_msg'} = "";
$self->{'_title'} = 'MIDI XML Editor';
$self->{'_pretty'} = 1;
$self->{'_format'} = 99;
$sel... |
| MIME-Lite-HTML-1.24 | MIME::Lite::HTML | show |
| sub errstr {
my($self) = @_;
return @{$self->{_ERRORS}} if ($self->{_ERRORS});
return ();
} |
| MIME-tools-5.504 | MIME::Head | show |
| sub tweak_FROM_parsing {
my $self = shift;
usage "deprecated. Use mail_from() instead.";
$self->mail_from(@_);
} |
| MMM-Text-Search-0.07 | MMM::Text::Search::Inet | show |
| sub _open_socket_timeout {
my $timeout = shift;
my $s;
my $error;
DEBUG( "_open_socket_timeout() ", join(',', @_));
undef $!; undef $@;
$@ = eval {
$SIG{ALRM} = sub { die "connection TIMED OUT" };
alarm $timeout;
$s = IO::Socket::INET->new... |
| MPEG-Info-1.00 | MPEG::Info | show |
| sub vframes(){
my $self = shift;
return int($self->duration * $self->fps) if $self->duration;
return 0;
} |
| MPEG-Info-1.00 | MPEG::Info::Video | show |
| sub get_header_size {
my $self = shift;
$self->{header_size} = $self->{last_offset} - $self->{offset};
} |
| MPEG-Info-1.00 | MPEG::Info::Audio | show |
| sub get_frame_length {
my $self = shift;
if ( $self->{version} == 1 ) {
if ( $self->{layer} == 1 ) {
$self->{frame_length} = int( ( 48000 * $self->{bitrate} ) / $self->{sampling} ) + 4 * $self->{padding};
}
else {
$... |
| MPEG-LibMPEG3-0.01 | MPEG::LibMPEG3 | show |
| sub set_frame { my $self = shift; return mpeg3_set_frame( $self->{file}, shift, shift ) } |
| MPEG-MP3Play-0.16 | MyMP3Play | show |
| sub msg_notify_player_state {
my ($mp3, $msg) = @_;
my $data = $mp3->get_user_data;
main::cleanup_and_exit($data->{input_tag})
if $msg->{state} == &XA_PLAYER_STATE_EOF;
} |
| MRTG-Parse-0.03 | MRTG::Parse | show |
| sub traffic_output {
my $bytes = $_[0];
my $desired_unit = $_[1];
my @array;
my $unit;
my $total_count;
my @unit_array = qw(B KB MB GB TB);
my $temp_unit = $bytes;
my $counter = 0;
my $check = "false";
foreach my $... |
| MT-Import-Mbox-1.01 | MT::Import::Mbox | show |
| sub mk_upload_root {
my $self = shift;
my $msg = shift;
my $msg_id = $self->mk_id($msg->header("Message-Id"));
my $msg_date = $self->mk_date($msg->header("Date"));
$msg_date =~ m!^(\... |
| Mac-Apps-Anarchie-1.50 | Mac::Apps::Anarchie | show |
| sub _ArchAeProcess {
my($self) = shift;
my($rp) = AESend($be, $self->{WAIT}) || croak $^E;
AEDisposeDesc $be;
return &_ArchAePrint($self,$rp);
} |
| Mac-Carbon-0.82 | Mac::Processes::_ProcessInfoMap | show |
| sub new {
my $package = shift @_;
my $my = _new();
my ($arg,$value);
while (($arg, $value) = splice(@_, 0, 2)) {
$my->$arg($value);
}
$my;
} |
| Mac-Comm-OT_PPP-1.20 | Mac::Comm::OT_PPP | show |
| sub PPPsavelog {
my($self,$file,$be,$rp,$at);
$self = shift;
$file = shift || croak "filename left blank\n";
$be = AEBuildAppleEvent('netw','RAsl',typeApplSignature,'MACS',0,0,'') || croak $^E;
AEPutParam($be,'RAlf','TEXT',$file) if ($file);
$rp = A... |
| Mail-Audit-2.227 | Mail::Audit::Vacation | show |
| sub vacation {
my $item = shift;
my $where = shift;
my $reply = $item->head->get("Reply-To")
|| $item->head->get("From");
return if $item->head->get("Distribution") =~ /bulk/i or !$reply;
$item->_log(1, "Vacation thing ... |
| Mail-Barracuda-API-0.01 | Mail::Barracuda::API | show |
| sub _doApply {
my ($class, %args) = @_;
my $result = 0;
my @response;
my $cmd = "config_reload.cgi?";
my $precmd = $class->{server} . ":" . $class->{port} . "/cgi-bin/";
my $postcmd = "password=" . $class->{api_key};
$cmd = $precmd . $cm... |
| Mail-DSPAM-Learning-0.1 | Mail::DSPAM::Learning | show |
| sub _getDomain {
my $ip = &_getIP;
my $res = Net::DNS::Resolver->new;
my $query;
my $hostname="localhost";
eval {
$query = $res->search($ip);
};
if (!$@) {
if ($query) {
foreach my $rr ($query->answ... |
| Mail-Exchange-0.04 | Mail::Exchange::Time | show |
| sub unixtime_to_mstime{
my $unixtime=shift;
return $unixtime * 10_000_000 + 116_444_736_000_000_000;
} |
| Mail-Exchange-0.04 | Mail::Exchange::Message | show |
| sub addRecipient($$) {
my $self=shift;
my $recipient=shift;
push(@{$self->{_recipients}}, $recipient);
} |
| Mail-Exchange-0.04 | Mail::Exchange::PropertyContainer | show |
| sub _parseProperties {
my $self=shift;
my $file=shift;
my $dir=shift;
my $headersize=shift;
my $namedProperties=shift;
my $data=substr($file->{Data}, $headersize);
while ($data) {
my ($tag, $flags, $value, $v1, $v2);
eval {
($tag, $flag... |
| Mail-Exchange-0.04 | Mail::Exchange::Message::Email | show |
| sub fromMIME($) {
my $class=shift;
my $mime=shift;
my $self=$class->new;
die "wrong object type" if ref $mime ne "Email::MIME";
$self->set(PidTagStoreSupportMask, 0x40000);
$self->set(PidTagMessageFlags, 1);
$self->set(PidTagTranspor... |
| Mail-Exchange-0.04 | Mail::Exchange::Message::MessageFlags | show |
| sub mfUntrusted { return 0x8000; } |
| Mail-Exchange-0.04 | Mail::Exchange::Message::StickyNote | show |
| sub setColor {
my $self=shift;
my $color=shift;
$color=$colors{lc $color} if defined $colors{lc $color};
$self->set(PidLidNoteColor, $color);
$self->set(PidTagIconIndex, $color+0x300);
} |
| Mail-Exchange-0.04 | Mail::Exchange::Message::RecipientFlags | show |
| sub recipOriginal { return 0x0100; } |
| Mail-Exchange-0.04 | Mail::Exchange::Message::Appointment | show |
| sub setEnd {
my $self=shift;
my $time=shift;
$self->set(PidTagEndDate, $time);
$self->set(PidLidAppointmentEndWhole, $time);
$self->set(PidLidClipEnd, $time);
$self->set(PidLidCommonEnd, $time);
$self->set(PidLidReminderTime, $time);... |
| Mail-Field-Received-0.26 | Mail::Field::Received | show |
| sub parse_tree {
my $self = shift;
croak "Header not parsed yet" unless $self->{parse_tree};
return $self->{parse_tree};
} |
| Mail-IMAPClient-3.32 | Mail::IMAPClient::Thread | show |
| sub new { my $self = bless( {
'_precompiled' => 1,
'localvars' => '',
'startcode' => '',
'namespace' => 'Parse::RecDescent::Mail::IMAPClient::Thread',
'rules'... |
| Mail-IMAPClient-3.32 | Mail::IMAPClient::BodyStructure::Parse | show |
| sub new { my $self = bless( {
'_precompiled' => 1,
'localvars' => '',
'startcode' => '',
'namespace' => 'Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse',
... |
| Mail-IspMailGate-1.1013 | Mail::IspMailGate::Filter::Dummy | show |
| sub doFilter($$) {
'';
} |
| Mail-LMLM-0.6802 | Mail::LMLM | show |
| sub render
{
my $self = shift;
my ($mail_lister, $mailing_list, $o, $r, $main_o, $main_r, $filename);
local(*INDEX);
open INDEX, ">index.html";
$main_r = Mail::LMLM::Render::HTML->new(\*INDEX);
$main_r->start_document(... |
| Mail-LMLM-0.6802 | Iglu::LMLM::Types::Ivrix | show |
| sub get_online_archive
{
my $self = shift;
return ("http://" .
$self->get_hostname() .
"/mailing-lists/" .
$self->get_group_base() .
"/archive") ;
} |
| Mail-LMLM-0.6802 | Iglu::LMLM::Types::Linuxology | show |
| sub render_owner
{
my $self = shift;
my $htmler = shift;
return $self->render_something_with_subject($htmler, "comments");
} |
| Mail-Mailer-smtp_auth-0.02 | Mail::Mailer::smtp_auth | show |
| sub PRINT {
my $self = shift;
my $sock = $$self;
$sock->datasend( @_ );
} |
| Mail-SRS-0.31 | Mail::SRS::Daemon | show |
| sub run {
my ($self) = @_;
my $srs = $self->{Instance};
print STDERR "Starting SRS daemon in PID $$\n";
local $SIG{__WARN__} = sub { die @_; };
my $listen = $self->{Socket};
unless ($listen) {
unlink($SRSSOCKET) if -e $SRSSOCKET;
$liste... |
| Mail-Sender-0.8.22 | Mail::Sender | show |
| sub GetHandle {
my $self = shift();
unless (@Mail::Sender::IO::ISA) {
eval "use Symbol;";
eval $pseudo_handle_code;
}
my $handle = gensym();
tie *$handle, 'Mail::Sender::IO', $self;
return $handle;
} |
| Mail-SpamAssassin-3.3.2 | Mail::SpamAssassin::Plugin::Reuse | show |
| sub _get_stage_from_rule {
my ($self, $conf, $rule) = @_;
my $type = $conf->{test_types}->{$rule};
if ($type && $type == $Mail::SpamAssassin::Conf::TYPE_EMPTY_TESTS) {
my $parent = $conf->{tests}->{$rule};
if ($parent) {
... |
| MailClientYahoo-1.0 | Mail::Client::Yahoo | show |
| sub get {
my $self = shift;
my $resp = $self->SUPER::get(@_);
if(
$self->content =~ /<!--\s*start error\s*-->/
&&
$self->content =~ /<!--\s*end error\s*-->/
&&
$self->content =~ /<!--\s*e... |
| Match-Any_0.03 | Regexp::Match::Any | show |
| sub match_any {
my $ref = shift;
my $opt = shift || '';
my $regex = join('|', @{$ref});
return qq{(?$opt:$regex)};
} |
| Math-BigSimple-1.1a | Math::BigSimple | show |
| sub make_simple
{
my $g = Math::BigSimple->new(shift);
return $g->make();
} |
| Math-Business-Stochastic-0.03 | Math::Business::Stochastic | show |
| sub picklast {
my $n = int(shift);
return splice @_,-$n;
} |
| Math-Expr-LATEST | Math::Expr | show |
| sub Bad {
my $self = shift;
warn "Bad str: " . $self->{'Str'} . "\n";
} |
| Math-GMP-2.06 | Math::GMP | show |
| sub fibonacci {
return gmp_fib(int(shift));
} |
| Math-HashSum-0.02 | Math::HashSum | show |
| sub hashsum {
my %sum;
while (@_) {
my $key = shift;
$sum{$key} += shift;
}
%sum;
} |
| Math-Random-Zipf-0.11 | Math::Random::Zipf | show |
| sub cdf_ref {
return shift->{cdf};
} |
| Math-String-1.28 | Math::String | show |
| sub modify
{
$_[0]->{_cache} = undef;
0;
} |
| Math-String-1.28 | Math::String::Charset | show |
| sub study
{
my $arg;
if (ref $_[0] eq 'HASH')
{
$arg = shift;
}
else
{
$arg = { @_ };
}
my $depth = abs($arg->{order} || $arg->{depth} || 1);
my $words = $arg->{words} || [];
my $sep = $arg->{sep};
my ... |
| Math-String-1.28 | Math::String::Sequence | show |
| sub as_array
{
my $x = shift;
my @a;
my $f = $x->{_first}; my $l = $x->{_last};
if ($x->{_rev})
{
while ($f >= $l) { push @a,$f->copy(); $f->bdec(); }
}
else
{
while ($f <= $l) { push @a,$f->copy();... |
| Math-String-1.28 | Math::String::Charset::Nested | show |
| sub prev
{
my $self = shift;
my $str = shift;
if ($str->{_cache} eq '')
{
$str->{_cache} = $self->first($self->minlen()||1);
return;
}
$str->{_cache} = undef;
$self;
} |
| Math-String-1.28 | Math::String::Charset::Grouped | show |
| sub prev
{
my $self = shift;
my $str = shift;
if ($str->{_cache} eq '')
{
my $min = $self->{_minlen}; $min = -1 if $min >= 0;
$str->{_cache} = $self->first($min);
return;
}
$str->{_cache} = undef;
} |
| Math-String-Charset-Wordlist-0.08 | Math::String::Charset::Wordlist | show |
| sub DELETE
{
my $self = shift;
_free($self->{_obj}) if $self->{_obj};
} |
| Math-Vector-SortIndexes-0.02 | Math::Vector::SortIndexes | show |
| sub sort_indexes_ascending {
(sort { $_[$a] <=> $_[$b] } 0..$#_);
} |
| Maypole-Authentication-UserSessionCookie-1.4 | Maypole::Authentication::UserSessionCookie | show |
| sub _logout_cookie {
my $r = shift;
my $cookie = Apache::Cookie->new($r->{ar},
-name => ($r->config->{auth}{cookie_name} || "session_id"),
-value => undef,
-path => URI->new($r->config->{base_u... |
| MediaWiki-API-0.39 | MediaWiki::API | show |
| sub _error {
my ($self, $code, $desc) = @_;
$self->{error}->{code} = $code;
$self->{error}->{details} = $desc;
$self->{error}->{stacktrace} = Carp::longmess($desc);
$self->{config}->{on_error}->() if (defined $self-&g... |
| Method-Slice-0.02 | Method::Slice | show |
| sub mslice : lvalue {
my ($obj, @meths) = @_;
if (want('LVALUE')) {
if (my @rvals = want('ASSIGN')) {
for my $i (0 .. $#meths) {
my $meth = $meths[$i];
$obj->$meth($rvals[$i]);
}
lnoreturn;
}
else {
... |
| Microarray-ExprSet-0.11 | Microarray::ExprSet | show |
| sub save {
my $self = shift;
List::Vectorize::check_prototype(@_, '$');
my $file = shift;
if(is_empty($self->feature)) {
croak "ERROR: Feature names are required. ";
} elsif(is_empty($self->phenotype))... |
| Microarray-GEO-SOFT-0.20 | Microarray::GEO::SOFT | show |
| sub _decompress {
my $compressed_file = shift;
my $null = $^O eq "MSWin32" ? "NUL" : "/dev/null";
eval("system('gzip --version > $null')") == 0
or croak "ERROR: Cannot find 'gzip'\n";
my $basename = basename($compressed_file);
print "deco... |
| Microarray-GEO-SOFT-0.20 | Microarray::GEO::SOFT::GSM | show |
| sub _parse_sample {
my $self = shift;
my $fh = shift;
Microarray::GEO::SOFT::_set_fh($self->{verbose});
my $accession;
my $title;
my $platform;
my $table_colnames = [];
my $table_rownames = [];
my $table_matrix = [];
while(my $line = &... |
| Microarray-GEO-SOFT-0.20 | Microarray::GEO::SOFT::GPL | show |
| sub _mapping {
my $self = shift;
my $to_id = shift;
my $from_list = shift;
my $mapping;
my $to_index;
my $colnames = $self->colnames;
for(my $i = 0; $i < len($colnames); $i ++) {
if($colnames->[$i] eq $to_id) {
$to_index = $i;
... |
| Microarray-GEO-SOFT-0.20 | Microarray::GEO::SOFT::GSE | show |
| sub _merge_gsm {
my $self = shift;
my $gsm_list = shift;
Microarray::GEO::SOFT::_set_fh($self->{verbose});
my $gpl_list = sapply($gsm_list, sub {$_[0]->platform});
if(len(unique($gpl_list)) != 1) {
croak "ERROR: Platform should be same... |
| Microarray-GEO-SOFT-0.20 | Microarray::GEO::SOFT::GDS | show |
| sub soft2exprset {
my $self = shift;
my $eset = Microarray::ExprSet->new;
$eset->set_feature($self->rownames);
$eset->set_phenotype($self->colnames_explain);
$eset->set_matrix($self->matrix);
return $eset;
} |
| Microarray-GeneXplorer-0.11 | Microarray::DataMatrix | show |
| sub allowedOperators{
my ($self) = @_;
return (sort keys %kAllowedOperators);
} |
| Mo-0.33 | Mo::Golf | show |
| sub _finder_subs {
return (
comments => sub { $_[1]->isa( tok 'Comment' ) },
duplicate_whitespace => sub {
my ( $top, $current ) = @_;
return 0 if !$current->isa( tok 'Whitespace' );
$c... |
| ModPerl-PackageRegistry-0.02 | ModPerl::PackageRegistry | show |
| sub handler {
my $r = shift;
my $uri = $r->uri;
my $config = config($r);
my $base = $config->{PackageBase} || '/';
my $ns;
return DECLINED
unless(substr($r->uri, 0, length $base) eq $base);
un... |
| Module-Build-0.4003 | Module::Build::PodParser | show |
| sub get_author {
my $self = shift;
return $self->{author} if defined $self->{author};
$self->parse_from_filehandle($self->{fh});
return $self->{author} || [];
} |
| Module-Dependency-1.86 | Module::Dependency::Info | show |
| sub TRACE { } |
| Module-ExtractUse-0.29 | Module::ExtractUse::Grammar | show |
| Module-Install-Pod-Inherit-0.01 | Module::Install::Pod::Inherit | show |
| sub PodInherit {
my ($self) = @_;
$self->postamble(<<"EOPOST");
} |
| Module-InstalledVersion-0.05 | Module::InstalledVersion | show |
| sub new {
shift;
my ($module_name) = @_;
my $self = {};
$module_name = File::Spec->catfile(split(/::/, $module_name));
DIR: foreach my $dir (@INC) {
my $filename = File::Spec->catfile($dir, "$module_name.pm");
if... |
| Module-TestConfig-0.05 | Module::TestConfig | show |
| sub qi {
my $self = shift;
$self->{qi} = shift if @_;
$self->{qi};
} |
| MogileFS-Server-2.67 | MogileFS::Rebalance | show |
| sub filter_dest_devices {
my $self = shift;
my $devs = shift;
my $policy = $self->{policy};
my $state = $self->{state};
my %sdevs = map { $_ => 1 } @{$state->{source_devs}},
@{$state->{completed_devs}}, $state-... |
| Mojolicious-Plugin-ZombieApocalypse-0.01 | Mojolicious::Plugin::ZombieApocalypse | show |
| sub register {
my ($plugin, $app) = @_;
$app->hook(
before_dispatch => sub {
kill 11, $$ if shift->req->url->path eq '/brains';
}
);
} |
| Mon-0.11 | Mon::Client | show |
| sub list_aliases {
my $self = shift;
my ($r, @d, $d, $group, $service, @allAlias, $aliasBlock, %alias);
undef $self->{ERROR};
if (!$self->{CONNECTED}) {
$self->{ERROR} = "not connected";
return undef;
}
($r, @d) =... |
| Mon-0.11 | Mon::SNMP | show |
| sub dump {
my $self = shift;
$self->{"BER"}->dump;
} |
| Monitis-0.9 | Monitis::Process | show |
| sub get_results {
my ($self, @params) = @_;
my @mandatory = qw/monitorId day month year/;
my @optional = qw/timezone/;
my $params = $self->prepare_params(\@params, \@mandatory, \@optional);
return $self->api_get('processResul... |
| Monitis-0.9 | Monitis::FullPageLoadMonitors | show |
| sub delete {
my ($self, @params) = @_;
my @mandatory = qw//;
my @optional = qw/monitorIds/;
my $params = $self->prepare_params(\@params, \@mandatory, \@optional);
return $self->api_post('deleteFullPageLoadMonitor' => $para... |
| Monitis-0.9 | Monitis::Agents | show |
| sub download {
my ($self, @params) = @_;
my @mandatory = qw/platform/;
my @optional = qw//;
my $params = $self->prepare_params(\@params, \@mandatory, \@optional);
my $request = $self->build_post_request('downloadAgent' => ... |
| Monitis-0.9 | Monitis::TransactionMonitors | show |
| sub get_step_net {
my ($self, @params) = @_;
my @mandatory = qw/resultId year month day/;
my @optional = qw//;
my $params = $self->prepare_params(\@params, \@mandatory, \@optional);
return $self->api_get('transactionStepNet' ... |
| Monitis-0.9 | Monitis::InternalMonitors | show |
| sub get_all {
my ($self, @params) = @_;
my @mandatory = qw//;
my @optional = qw/types tag tagRegExp/;
my $params = $self->prepare_params(\@params, \@mandatory, \@optional);
return $self->api_get('internalMonitors' => $para... |
| Monitis-0.9 | Monitis::CloudInstances | show |
| sub get_info {
my ($self, @params) = @_;
my @mandatory = qw/type instanceId/;
my @optional = qw/timezoneoffset/;
my $params = $self->prepare_params(\@params, \@mandatory, \@optional);
return $self->api_get('cloudInstanceInfo'... |
| Monitis-0.9 | Monitis::Drive | show |
| sub get_top_results {
my ($self, @params) = @_;
my @mandatory = qw//;
my @optional = qw/timezoneoffset limit tag/;
my $params = $self->prepare_params(\@params, \@mandatory, \@optional);
return $self->api_get('topdrive' => ... |
| Monitis-0.9 | Monitis::Layout | show |
| sub get_page_modules {
my ($self, @params) = @_;
my @mandatory = qw/pageName/;
my @optional = qw//;
my $params = $self->prepare_params(\@params, \@mandatory, \@optional);
return $self->api_get('pageModules' => $params);
} |
| Monitis-0.9 | Monitis::LoadAverage | show |
| sub get_top_results {
my ($self, $topload, @params) = @_;
my @mandatory = qw//;
my @optional = qw/timezoneoffset limit tag/;
my $params = $self->prepare_params(\@params, \@mandatory, \@optional);
return $self->api_get($toploa... |
| Monitis-0.9 | Monitis::PredefinedMonitors | show |
| sub custom_report {
my ($self, @params) = @_;
my @mandatory = qw/type/;
my @optional =
qw/period startDate endDate monitorIds tag chart chartWidth chartHeight/;
my $params = $self->prepare_params(\@params, \@mandatory, \@optiona... |
| Monitis-0.9 | Monitis::Contacts | show |
| sub get_recent_alerts {
my ($self, @params) = @_;
my @mandatory;
my @optional = qw/timezone startDate endDate limit/;
my $params = $self->prepare_params(\@params, \@mandatory, \@optional);
return $self->api_get('recentAlerts' ... |
| Monitis-0.9 | Monitis::CustomMonitors | show |
| sub delete {
my ($self, @params) = @_;
my @mandatory = qw/monitorId/;
my @optional = qw//;
my $params = $self->prepare_params(\@params, \@mandatory, \@optional);
return $self->api_post('deleteMonitor' => $params);
} |
| Monitis-0.9 | Monitis::Ping | show |
| sub get_results {
my ($self, @params) = @_;
my @mandatory = qw/monitorId day month year/;
my @optional = qw/timezone/;
my $params = $self->prepare_params(\@params, \@mandatory, \@optional);
return $self->api_get('internalPing... |
| Monitis-0.9 | Monitis::HTTP | show |
| sub get_results {
my ($self, @params) = @_;
my @mandatory = qw/monitorId day month year/;
my @optional = qw/timezone/;
my $params = $self->prepare_params(\@params, \@mandatory, \@optional);
return $self->api_get('internalHttp... |
| Monitis-0.9 | Monitis::CPU | show |
| sub get_top_results {
my ($self, @params) = @_;
my @mandatory = qw//;
my @optional = qw/timezoneoffset limit tag/;
my $params = $self->prepare_params(\@params, \@mandatory, \@optional);
return $self->api_get('topcpu' => $p... |
| Monitis-0.9 | Monitis::VisitorTrackers | show |
| sub get_results {
my ($self, @params) = @_;
my @mandatory = qw/siteId year month day/;
my @optional = qw/timezoneoffset/;
my $params = $self->prepare_params(\@params, \@mandatory, \@optional);
return $self->api_get('visitorTr... |
| Monitis-0.9 | Monitis::Memory | show |
| sub get_top_results {
my ($self, @params) = @_;
my @mandatory = qw//;
my @optional = qw/timezoneoffset limit tag/;
my $params = $self->prepare_params(\@params, \@mandatory, \@optional);
return $self->api_get('topmemory' =>... |
| Monitis-0.9 | Monitis::ExternalMonitors | show |
| sub get_by_tag {
my ($self, @params) = @_;
my @mandatory = qw/tag/;
my @optional = qw//;
my $params = $self->prepare_params(\@params, \@mandatory, \@optional);
return $self->api_get('tagtests' => $params);
} |
| Monkey-Patch-0.03 | Monkey::Patch | show |
| sub patch_object {
my $obj = shift;
Monkey::Patch::Handle::Object->new(
object => $obj,
package => ref $obj,
subname => shift,
code => shift,
)->install;
} |
| MooseX-APIRole-0.01 | MooseX::APIRole | show |
| sub make_api_role {
my ($meta, $name) = @_;
set_api_role_name($meta, $name);
apply_api_role($meta);
return $meta;
} |
| MooseX-APIRole-0.01 | MooseX::APIRole::Meta | show |
| sub _build_api_role {
my ($self) = @_;
my $has_name = $self->has_api_role_name;
my $role = $has_name ? create_role_for($self, $self->api_role_name)
: create_role_for($self);
return $role;
} |
| MooseX-APIRole-0.01 | MooseX::APIRole::Internals | show |
| sub create_role_for {
my ($meta, $name) = @_;
my $cached_role = role_for($meta);
return $cached_role if $cached_role;
my $role = Moose::Meta::Role->create(
$name || _name_role_for($meta),
);
$ROLE_FOR{$meta} = $role;
... |
| MooseX-MultiObject-0.03 | MooseX::MultiObject | show |
| sub setup_multiobject {
my ($meta, %args) = @_;
my $attribute = $args{attribute} || {
init_arg => 'objects',
coerce => 1,
is => 'ro',
};
$attribute->{name} ||= 'set';
$attribute->{isa} ... |
| MooseX-MultiObject-0.03 | MooseX::MultiObject::Meta::Method::MultiDelegation | show |
| sub _initialize_body {
my $meta = shift;
my $object_getter = $meta->object_getter;
my @extra_args = @{$meta->curried_arguments};
my $delegate_to = $meta->delegate_to;
$meta->{body} = sub {
my $self = shift;
... |
| MooseX-Types-NumUnit-0.04 | MooseX::Types::NumUnit | show |
| sub init_meta {
my ($class, %options) = @_;
my $for_class = $options{for_class};
MooseX::ClassAttribute->import({ into => $for_class });
goto $init_meta;
} |
| Mvalve-0.00014 | Mvalve::CLI::Mvalve::Create | show |
| sub run {
my $self = shift;
my $dbh = DBI->connect( $self->connect_info );
local $dbh->{AutoCommit} = 0;
local $dbh->{RaiseError} = 1;
eval {
$dbh->do(<<" EOSQL");
$dbh->do(<<" ... |
| MyCPAN-App-DPAN-1.28 | MyCPAN::App::DPAN::SkipQueue | show |
| sub _basename_matches_skip
{
my( $self, $distname ) = @_;
my $skip_perl = $self->get_coordinator->get_config->get( 'skip_perl' ) || 0;
my @skip_regexes = grep { defined } $self->get_coordinator->get_config->get( 'skip_dists_regexes... |
| MyCPAN-App-DPAN-1.28 | MyCPAN::App::DPAN::Indexer | show |
| sub setup_dist_info
{
my( $self, $dist ) = @_;
$logger->debug( "Setting dist [$dist]\n" );
$self->set_dist_info( 'dist_file', $dist );
return 1;
} |
| MyCPAN-App-DPAN-1.28 | MyCPAN::App::DPAN::Reporter::AsYAML | show |
| sub create_checksums
{
my( $self, $dirs ) = @_;
require CPAN::Checksums;
foreach my $dir ( @$dirs )
{
my $rc = eval{ CPAN::Checksums::updatedir( $dir ) };
$logger->error( "Couldn't create CHECKSUMS for $dir: $@" ) if $@;
$logger->info... |
| Mysql-Locker-1.00 | Mysql::Locker | show |
| sub DESTROY {
my $self = shift;
my $dbh = $self->{'_dbh'};
if (defined($dbh)) {
unless($dbh->do('UNLOCK TABLES')) {
croak('Error unlocking tables: ' . $dbh->errstr());
}
}
} |
| NBU-0.95 | NBU::Robot | show |
| sub loadRobotDetail {
my $self = shift;
my $server = shift;
if (!defined($server)) {
my @masters = NBU->masters; $server = $masters[0];
}
my $pipe = NBU->cmd("vmglob -h ".$server->name." -listall -java |");
while (<$pipe>... |
| NISPlus-0.06-alpha | Net::NISPlus::Group | show |
| sub DESTROY
{
} |
| NISPlus-0.06-alpha | Net::NISPlus::Entry | show |
| sub DESTROY
{
} |
| NVDefined-0.02 | NVDefined | show |
| sub NVDefined {
my($hashref) = shift;
Hash::NoVivify::Defined($hashref, @_);
} |
| Nagios-Interface-0.01 | Nagios::Interface::IgnorableLogMessage | show |
| sub match {
my $self = shift;
my $other = shift;
$other->can("message") and
$self->message eq $other->message;
} |
| Nagios-Plugin-Beanstalk-0.04 | Nagios::Plugin::Beanstalk | show |
| sub _check_tube_active {
my ($self, $client, $tube) = @_;
warn "Checking $tube\n" if $self->opts->verbose;
my $warning = $self->opts->warning || 1;
my $critical = $self->opts->critical || $warning;
my $workers = 0;
for ... |
| Nagios-Plugin-LDAP-0.04 | Nagios::Plugin::LDAP | show |
| sub _ldap_check_repl {
my ($self, $dst_ldap) = @_;
my $opts = $self->opts;
my $master = $opts->get('master') or return 1;
my $warning = $opts->get('repl-warning');
my $critical = $opts->get('repl-critical');
my $verbose = $opts... |
| NestedMap-1.0 | NestedMap | show |
| sub nestedmap(&@) {
my $f = shift;
map {
local @NestedMap::stack = ($_, @NestedMap::stack);
$f->($_);
} @_
} |
| Net-AOLIM-1.61 | Net::AOLIM | show |
| sub ui_dataget
{
my $imsg = shift @_;
my $timeout = $_[0];
my $recv_buffer = "";
my @ready = ();
my $im_socket = \$imsg->{'im_socket'};
@ready = $imsg->{'sel'}->can_read($timeout);
foreach $rfh (@ready)
{
if ($r... |
| Net-BGP-0.14 | Net::BGP::ASPath::AS | show |
| sub length
{
my ($this) = @_;
my $res = 0;
foreach my $p (@{$this->{_as_path}})
{
$res += $p->length;
};
return $res;
} |
| Net-CIDR-0.17 | Net::CIDR | show |
| sub cidrvalidate {
my $v=shift;
$v =~ s/\s//g;
$v=lc($v);
my $suffix;
($v, $suffix)=($1, $2) if $v =~ m@(.*)/(.*)@;
if (defined $suffix)
{
return undef unless $suffix =~ /^\d+$/ &&
($suffix eq "0" || $suffix =~ /^[12... |
| Net-Chaton-API-0.02 | Net::Chaton::API | show |
| sub Observe{
my ($self,$p, $c) = @_;
my $decoded_responce;
if(defined($p) && defined($c)) {
my $req = GET("$self->{'comet-uri'}?p=$p&c=$c&s=0");
my $res = $ua->request($req);
$decoded_responce = $json->decode($res->content);
$self-&... |
| Net-DAAP-Server-MythTV-0.01 | Net::DAAP::Server::MythTV | show |
| sub database_item {
my $self = shift;
my ($request, $response) = @_;
my ($intid) = ($request->uri->path =~ /^\/databases\/\d+\/items\/(\d+)/);
my $dbh = $self->connect;
my $sth = $dbh->prepare(
'SELECT filename FROM videometadata WHERE... |
| Net-DNS-SEC-0.16 | Net::DNS::SEC | show |
| sub _digtype {
my $self=shift;
my $argument=shift;
my $classmethod=0;
$classmethod=1 unless ref ($self);
my %digestbyname= (
"SHA1" => 1,
"SHA256" => 2,
);
if (! $classmethod && defined ($sel... |
| Net-DNS-TestNS-1.10 | Net::DNS::TestNS::Nameserver | show |
| sub make_reply {
my ($self, $query, $peerhost) = @_;
print "Using the customized make_reply\n" if $self->{"Verbose"};
my $reply;
my $transporthash;
if (not $query) {
print "ERROR: invalid packet\n" if $self->{"Verbose"};
... |
| Net-DSLProvider-0.03 | Net::DSLProvider::Cerberus | show |
| sub cease {
my ($self, %args) = @_;
$self->_check_params(\%args, qw/cli/);
if ( $args{crd} ) {
my $d = Time::Piece->new($args{crd}, "%F");
$args{crd} = $d->strftime("%d/%m/%Y");
}
my %resp = $self->_make_r... |
| Net-Dnet-0.73 | Net::Dnet | show |
| sub setdebug
{
my $prev = $debug;
my $this = shift;
$debug = @_ ? $_[0] : 1;
@_ > 1 && $_[1] ? $prev :
$prev . $this->SUPER::setdebug(@_);
} |
| Net-FTP-blat-0.03 | Net::FTP::blat | show |
| sub Net::FTP::blat
{
my($ftp,$remote) = @_[0,2];
my $value = \$_[1];
my($sock,$len,$buf);
unless(defined $remote)
{
croak 'Must specify remote filename with stream input';
};
$ftp->_ALLO( length $$value);
croak("Bad remote filename... |
| Net-Google-Blogger-0.09 | Net::Google::Blogger | show |
| sub http_post {
my $self = shift;
my @args = @_;
return $self->ua->request(HTTP::Request::Common::POST(@args));
} |
| Net-HTTPTunnel-0.51 | Net::HTTPTunnel | show |
| sub new
{
my $whatami = shift @_;
while ($key = shift @_)
{
if ($var = shift @_)
{
$args{$key} = $var;
}
}
$args{'http-ver'} ||= '1.0';
return undef unless (defined($args{'remote-host'}) &... |
| Net-Hotline-0.83 | Net::Hotline::Client | show |
| sub put_file { al09_put_file(@_) } |
| Net-IDN-Encode-2.003 | Net::IDN::UTS46::_Mapping | show |
| sub MapMapped { my $l = shift;
$l =~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZª\x{00B2}\x{00B3}µ\x{00B9}ºÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞĀĂĄĆĈĊČĎĐĒĔĖĘĚĜĞĠĢĤĦĨĪĬĮĴĶĹĻĽŁŃŅŇŊŌŎŐŒŔŖŘŚŜŞŠŢŤŦŨŪŬŮŰŲŴŶŸŹŻŽſƁƂƄƆƇƉƊƋƎƏƐƑƓƔƖƗƘƜƝƟƠƢƤƦƧƩƬƮƯƱƲƳƵƷƸƼǍǏǑǓǕǗǙǛǞǠǢǤǦǨǪǬǮǴǶǷǸǺǼǾȀȂȄȆȈȊȌȎȐ... |
| Net-IMP-HTTP-0.52 | Net::IMP::HTTP::LogFormData | show |
| sub _log_formdata {
my $self = shift;
my $info = $self->{info} or return;
my $text;
if ( eval { require YAML } ) {
$text = YAML::Dump($info)
} elsif ( eval { require YAML::Tiny } ) {
$text = YAML::Tiny::Dump($info)
} elsif ( e... |
| Net-IPTrie-0.7 | Net::IPTrie | show |
| sub _depth_first {
my ($self, %argv) = @_;
my ($n, $code, $count) = @argv{'node', 'code', 'count'};
if ( $n->address ){
if ( defined $code && ref($code) eq "CODE" ){
$code->($n);
}
$$count++;
}
$self->_depth_first... |
| Net-IRC2-0.27 | Net::IRC2::Parser | show |
| sub new { my $self = bless( {
'_AUTOTREE' => undef,
'localvars' => '',
'startcode' => '',
'_check' => {
'thisoffset' => '',
... |
| Net-IdentServer-0.56 | Net::IdentServer | show |
| sub process_request {
my $this = shift;
my $master_alarm = alarm ($this->{conf}{server}{timeout}>0 ? $this->{conf}{server}{timeout} : 10);
local $SIG{ALRM} = sub { die "\n" };
eval {
while( my $input = <STDIN> ... |
| Net-MQTT-1.130190 | Net::MQTT::Constants | show |
| sub connect_return_code_string {
[
'Connection Accepted',
'Connection Refused: unacceptable protocol version',
'Connection Refused: identifier rejected',
'Connection Refused: server unavailable',
'Connection Refused: bad user name or pass... |
| Net-Moo-0.11 | Net::Moo::Validate | show |
| sub _text {
my $self = shift;
my $text = shift;
if (! $self->{'__active'}){
return 0;
}
if ($text =~ /Things that (.*):/){
$self->{'__capture'} = $1;
return 1;... |
| Net-Moo-0.11 | Net::Moo::Document | show |
| sub text_collection_greetingcard {
my $self = shift;
my $data = shift;
$self->startTag("text_collection");
$self->startTag('greetingcard');
my %possible = ('main' => ['string', 'align', 'font', 'colour']... |
| Net-Msmgr-0.16 | Net::Msmgr::Conversation | show |
| sub _handle_bye
{
my ($self, $command) = @_;
delete $self->{email}->{$command->params->[0]};
} |
| Net-Msmgr-0.16 | Net::Msmgr::Switchboard | show |
| sub _fields { return shift->SUPER::_fields, ( ssid => undef ); } |
| Net-MythTV-0.33 | Net::MythTV | show |
| sub download_recording {
my ( $self, $recording, $destination ) = @_;
my $command_connection = $self->connection;
my $uri = URI->new( $recording->url );
my $filename = $uri->path;
my $fh = IO::File->new("> $des... |
| Net-MythTV-0.33 | Net::MythTV::Connection | show |
| sub read_data {
my $self = shift;
my $socket = $self->socket;
my $length;
my $result = $socket->read( $length, 8 );
if ( !defined $result ) {
warn "Error reading from MythTV backend: $!\n";
return '';
} el... |
| Net-MythWeb-0.33 | Net::MythWeb | show |
| sub _uri {
my ( $self, $path ) = @_;
return 'http://' . $self->hostname . ':' . $self->port . $path;
} |
| Net-NTPTime-1.00 | Net::NTPTime | show |
| sub get_unix_time
{
my $hostname = shift(@_) || '0.north-america.pool.ntp.org';
return(&get_ntp_time($hostname) - 2208988800);
} |
| Net-Netfilter-NetFlow-1.113260 | Net::Netfilter::NetFlow::Process | show |
| sub ptee {
my $config = shift;
Log::Dispatch::Config->configure_and_watch(
Log::Dispatch::Configurator::Any->new($config->{ptee}->{conf}) );
my $dispatcher = Log::Dispatch::Config->instance;
while (<>) {
... |
| Net-Netfilter-NetFlow-1.113260 | Net::Netfilter::NetFlow::Utils | show |
| sub merge_hashes {
my ( $lefthash, $righthash ) = @_;
return $lefthash unless defined $righthash;
my %merged = %$lefthash;
for my $key ( keys %$righthash ) {
my $right_ref = ( ref $righthash->{ $key } || '' ) eq 'HASH';
... |
| Net-OpenID-JanRain-1.1.1 | Net::OpenID::JanRain::Server::Request | show |
| sub encodeResponse {
my ($self, $response) = @_;
my $encode_as = $response->whichEncoding();
if ($encode_as eq 'kvform') {
my $wr = $webResponseClass->new(200, {}, $response->encodeToKVForm);
}
elsif($encode_as e... |
| Net-OpenID-JanRain-1.1.1 | Net::OpenID::JanRain::Consumer::LinkParser | show |
| sub parseOpenIDLinkRel {
my $html = shift;
my @linkhashes = parseLinkAttrs($html);
my ($server, $delegate);
for my $link (@linkhashes) {
if (lc($link->{rel}) eq 'openid.server') {
my %foo = %$link;
... |
| Net-OpenID-JanRain-1.1.1 | Net::OpenID::JanRain::Stores::MySQLStore | show |
| sub new {
my $caller = shift;
my ($dbh, $tablenames) = @_;
$dbh->{AutoCommit} = 1;
$dbh->{RaiseError} = 1;
my $class = ref($caller) || $caller;
defined($tablenames) or $tablenames = {};
my $settings_table = ($tablenam... |
| Net-Oping-1.21 | Net::Oping | show |
| sub get_error
{
my $obj = shift;
return ($obj->{'err_msg'} || 'Success');
} |
| Net-RRP-0.05 | Net::RRP::Request::Timeout | show |
| sub handler
{
my $this = shift;
my $socket = $this->socket();
$this->Log ( 'notice', "$$: connecttion from: %s", $socket->peerhost );
$this->setStates ();
my $protocol = new Net::RRP::Protocol ( socket => $socket );... |
| Net-Rendezvous-0.50 | Net::Rendezvous | show |
| sub shift_entry {
my $self = shift;
return shift(@{$self->{'_results'}});
} |
| Net-Rendezvous-0.50 | Net::Rendezvous::Entry | show |
| sub AUTOLOAD {
my $self = shift;
my $key = $AUTOLOAD;
$key =~ s/^.*:://;
$key = '_' . $key;
if ( @_ ) {
$self->{$key} = shift;
}
return $self->{$key};
} |
| Net-Rendezvous-0.50 | Net::Rendezvous::RR | show |
| sub AUTOLOAD {
my $self = shift;
my $key = $AUTOLOAD;
$key =~ s/^.*:://;
$key = '_' . $key;
if ( @_ ) {
$self->{$key} = shift;
}
return $self->{$key};
} |
| Net-SMS-MessageNet-0.65 | Net::SMS::MessageNet | show |
| sub send_sms {
my ($user_name, $password, $phone_number, $message) = @_;
__PACKAGE__->new($user_name, $password)->send($phone_number, $message);
} |
| Net-SloppyXMPP-0.06 | Net::SloppyXMPP | show |
| sub pong
{
my $self = shift;
my $data = shift;
my $from = $data->{from};
my $id = $data->{id};
$self->write(qq(<iq from='$self->{jid}' to='$from' id='$id' type='result'/>));
$self->{pingtimer} = time();
} |
| Net-Social-0.4 | Net::Social | show |
| sub service {
my $class = shift;
my $service = shift;
my %services = $class->_services();
return $services{lc($service)};
} |
| Net-StackExchange2-0.05 | Net::StackExchange2::V2::Errors | show |
| sub new {
my ($class, $params) = @_;
my $self = $params;
bless $self, $class;
*errors_all = subname(
"Net::StackExchange2::V2::Errors::errors_all",
no_params("errors"),
);
*errors = subname(
"Net::StackExchange2::V2::Errors::error... |
| Net-Stream-0.28 | Net::Twitter::Stream | show |
| Net-Whois-1.9 | Net::Whois | show |
| sub ok {
my $self = shift;
$self->[0]->{MATCH};
} |
| Net-Whois-Norid-0.04 | Net::Whois::Norid | show |
| sub _parse {
my ($self,$whois)=@_;
foreach my $line (split("\n",$whois)) {
if (my ($key,$value) = $line =~ m/^(\w+[^.]+)\.{2,}\:\s*(.+)$/) {
$key =~ y/ -/_/;
$key = lc($key);
$self->{$key} =
... |
| Net-Whois-RIPE-2.002 | Net::Whois::RIPE | show |
| sub object_types {
my $self = shift;
my $iterator = $self->__query(QUERY_LIST_OBJECTS);
while (!$iterator->is_exhausted) {
my $value = $iterator->value;
return split /\s+/, $value if $value !~ /^%\s/;
}
return;... |
| Net-XRC-0.02 | Net::XRC::Data::boolean | show |
| sub encode {
my $self = shift;
$$self ? '/T' : '/F';
} |
| Net-XRC-0.02 | Net::XRC::Data::string | show |
| sub encode {
my $self = shift;
my $string = $$self;
$string =~ s/(["\\])/\\$1/g;
qq("$string");
} |
| Net-XRC-0.02 | Net::XRC::Data::complex | show |
| sub encode {
my $self = shift;
my %hash = %$self;
my $typename = delete $hash{_type};
":$typename(". join("\n", map {
"$_ ".
isa( $hash{$_}, 'Net::XRC::Data' )
... |
| Net-XRC-0.02 | Net::XRC::Data::int | show |
| sub encode {
my $self = shift;
$$self;
} |
| Net-XRC-0.02 | Net::XRC::Data::list | show |
| sub encode {
my $self = shift;
'('. join(' ', map {
ref($_) =~ /^Net::XRC::Data/
? $_->encode
: Net::XRC::Data->new($_)->encode
}
... |
| Net-XRC-0.02 | Net::XRC::Data::bytes | show |
| sub encode {
my $self = shift;
'{'. length($$self). '}'. $$self;
} |
| Net-Yadis-1.0 | Net::Yadis::HTMLParse | show |
| sub parseMetaTags {
my ($html) = @_;
$html =~ s/$removere//;
$html =~ $htmlre or return ();
my $htmlcontents = $2;
$htmlcontents =~ $headre or return ();
my $head = $2;
defined $head or return ();
my %headerhash;
... |
| Net-Z3950-SimpleServer-1.16 | Net::Z3950::OID | show |
| sub appxml { $prefix . '109.11' } |
| Net-Zemanta-0.5 | Net::Zemanta::Suggest | show |
| sub suggest {
my $self = shift;
my ($text, %options) = @_;
my %lc_options;
while(my ($key, $value) = each %options) {
$lc_options{lc $key} = $value
}
my $text_utf8 = Encode::encode("utf8", $text);
return $self->execute( text => $te... |
| Net-Zemanta-0.5 | Net::Zemanta::Preferences | show |
| sub get {
my $self = shift;
return $self->execute();
} |
| Netdot-Client-REST-1.02 | Netdot::Client::REST | show |
| sub delete {
my ($self, $resource) = @_;
croak "Missing required arguments" unless ( $resource );
my $url = $self->{base_url}.'/'.$resource;
my $req = HTTP::Request->new(DELETE => $url);
my $resp = $self->{ua}->req... |
| Netx-WebRadio-0.03 | Netx::WebRadio::Station::Shoutcast::FileWriter | show |
| sub setMP3Tag {
my $self = shift;
my ($filename, $artist, $song) = @_;
return unless $filename;
use MP3::Tag;
my $mp3 = MP3::Tag->new( $filename );
unless ( exists $mp3->{ ID3v1 } ) {
$mp3->new_tag( 'ID3v1' );
}
my $id3v1 = $mp3->{ I... |
| Number-Phone-2.2001 | Number::Phone | show |
| sub _make_stub_object {
my $class = shift;
my $number = shift;
my($country_name, $country_idd) = Number::Phone::Country::phone2country_and_idd($number);
die("no module available for $country_name, and nostubs turned on\n") if($NOSTUBS);
my $stu... |
| Number-Phone-DE-Mobile-1_1 | Number::Phone::DE::Mobile | show |
| sub checkmsisdn {
my $self = shift;
$msisdn = shift;
if ("$msisdn" eq ""){ die "usage: Number::Phone::DE::Mobile->checkmsisdn(<rawmsisdn>)\n\n"; }
$msisdn =~ s/^\+/00/ig;
$msisdn =~ s/ |-|_|\;|\&|\+|\.//ig;
$msisdn_ok = "no";
if ($msisdn =~ /\... |
| OOB-0.12 | OOB | show |
| sub _unique_id {
my $reftype = reftype $_[0];
if ( !$reftype ) {
return refaddr \$_[0];
}
elsif ( $reftype eq 'REF' ) {
my $ref = ${$_[0]};
$ref = ${$ref} while reftype $ref eq 'REF';
return refaddr $ref;
... |
| ORM-0.85 | ORM::TjoinNull | show |
| sub null_class { shift->{null_class}; } |
| ORM-0.85 | ORM::Expr | show |
| sub _autoshift { ( ! ref $_[0] && shift @_ ); @_; } |
| ORM-0.85 | ORM::Db | show |
| sub rollback_transaction
{
die "You forget to override 'rollback_transaction' method in '$_[0]'";
} |
| ORM-0.85 | ORM::MetapropBuilder | show |
| sub DESTROY
{
} |
| ORM-0.85 | ORM::Error | show |
| sub fatal { $_[0]->{fatal}; } |
| ORM-0.85 | ORM::ResultSet | show |
| sub amount
{
my $self = shift;
$self->{result}->rows;
} |
| ORM-0.85 | ORM::StatMetaprop | show |
| sub AUTOLOAD
{
my $self = shift;
my $meta;
if( ref $self )
{
my $prop = substr( $AUTOLOAD, rindex( $AUTOLOAD, '::' )+2 );
my $prop_meta_expr = $self->{stat_class}->data->{$prop};
if( $prop_meta_... |
| ORM-0.85 | ORM::StatResultSet | show |
| sub amount
{
my $self = shift;
$self->{result}->rows;
} |
| ORM-0.85 | ORM::DbResultSet | show |
| sub result_tables
{
die "You forget to override 'result_tables' in '$_[0]'";
} |
| ORM-0.85 | ORM::Order | show |
| sub conds_amount
{
my $self = shift;
return scalar @{$self->{order}};
} |
| ORM-0.85 | ORM::Filter | show |
| sub scalar2sql
{
my $class = shift;
my $scalar = shift;
my $tjoin = shift;
my $ident = shift;
return
ref $scalar
? $scalar->_sql_str( tjoin=>$tjoin, ident=>$ident )
: ( defined $scalar ? $tj... |
| ORM-0.85 | ORM::Tjoin | show |
| sub merge
{
my $self = shift;
my $tjoin = shift;
if( ref $tjoin ne 'ORM::TjoinNull' )
{
if( UNIVERSAL::isa( $self->class, $tjoin->class ) )
{
}
elsif( UNIVERSAL::isa( $tjoin->class, $self->clas... |
| ORM-0.85 | ORM::Datetime | show |
| sub earlier24h { shift->new_epoch( time-24*60*60 ); } |
| ORM-0.85 | ORM::Filter::Group | show |
| sub add_expr
{
my $self = shift;
my @arg = @_;
for( my $i=0; $i<@arg; $i++ )
{
if( ! defined $arg[$i] )
{
splice @arg, $i, 1;
$i--;
}
elsif( ! ref $arg[$i] || !$arg[$i]->can( ... |
| ORM-0.85 | ORM::Filter::Case | show |
| sub add_case
{
my $self = shift;
my $case = shift;
push @{$self->{case}}, $case;
} |
| ORM-0.85 | ORM::Filter::Cmp | show |
| sub _tjoin
{
my $self = shift;
my $tjoin = ORM::Tjoin->new;
$tjoin->merge( $self->{arg1}->_tjoin ) if( ref $self->{arg1} );
$tjoin->merge( $self->{arg2}->_tjoin ) if( ref $self->{arg2} );
return $tjoin;
} |
| ORM-0.85 | ORM::Filter::Interval | show |
| sub _tjoin
{
my $self = shift;
my $tjoin = ORM::Tjoin->new;
$tjoin->merge( $self->{arg}->_tjoin ) if( ref $self->{arg} );
return $tjoin;
} |
| ORM-0.85 | ORM::Filter::Func | show |
| sub _tjoin
{
my $self = shift;
my $tjoin = ORM::Tjoin->new;
for my $arg ( @{$self->{arg}} )
{
$tjoin->merge( $arg->_tjoin ) if( ref $arg );
}
return $tjoin;
} |
| ORM-0.85 | ORM::Db::DBIResultSetFull | show |
| sub add_row
{
my $self = shift;
my $row = shift;
push @{$self->{rows}}, $row;
} |
| ORM-0.85 | ORM::Db::DBI | show |
| sub _func_concat { shift; ORM::Filter::Cmp->new( '||', @_ ); } |
| ORM-0.85 | ORM::Db::DBIResultSet | show |
| sub result_tables
{
my $self = shift;
$self->{tables};
} |
| ORM-0.85 | ORM::Db::DBI::MySQL | show |
| sub _func_concat { shift; ORM::Filter::Func->new( 'CONCAT', @_ ); } |
| ORM-0.85 | ORM::Db::DBI::PgSQL | show |
| sub _PgPP_last_insert_id
{
my ($self, $dbh, $catalog, $schema, $table, $col, $attr) = @_;
my ($sth, $count, $SQL, $sequence);
my $cache = 1;
$schema = '' if ! defined $schema;
$table = '' if ! defined $table;
my $cachename = "li... |
| ORM-0.85 | ORM::Db::DBI::SQLite | show |
| sub _lost_connection
{
my $self = shift;
my $err = shift;
defined $err && ( $err == 2006 || $err == 2013 );
} |
| ORM-0.85 | ORM::Db::DBI::MySQLemTa | show |
| sub _func_concat { shift; ORM::Filter::Func->new( 'CONCAT', @_ ); } |
| ORM-0.85 | ORM::Meta::Array | show |
| sub __ORM_new_db_value
{
my $class = shift;
my %arg = @_;
my $self;
my $VAR1;
if( ref $arg{value} eq 'ARRAY' )
{
$self = Array->new( array=>$arg{value} );
}
else
{
eval $arg{value};
die ... |
| ORM-0.85 | ORM::Meta::ORM::History | show |
| sub delete_slave { shift->slaved_by->prop_name eq 'id'; } |
| ORM-0.85 | ORM::Meta::ORM::Date | show |
| sub __ORM_new_db_value
{
my $class = shift;
my %arg = @_;
if( $arg{value} =~ /^\d+$/ )
{
$class->new_epoch( $arg{value} );
}
elsif( $arg{value} =~ /^0000\-00\-00( 00:00:00)?$/ )
{
undef;
}
else
... |
| ORM-0.85 | ORM::Meta::ORM::Datetime | show |
| sub __ORM_new_db_value
{
my $class = shift;
my %arg = @_;
if( $arg{value} =~ /^\d+$/ )
{
$class->new_epoch( $arg{value} );
}
elsif( $arg{value} =~ /^0000\-00\-00( 00:00:00)?$/ )
{
undef;
}
else
... |
| Object-Wrapper-0.05 | Object::Wrapper::Fork::DBI_stubs | show |
| sub import
{
my $caller = caller;
for( qw( connect connect_cached ) )
{
my $name = qualify $_, $caller;
my $ref = qualify_to_ref $name;
undef &{ *$ref };
*$ref = sub { croak "Bogus $name: DBI not ava... |
| ObjectRowMap-0.11 | ObjectRowMapTest | show |
| sub set_uid {
my $self = shift;
my $uid = shift;
print STDERR "Set Intercepted uid $uid, adding 10 for kicks\n";
$uid = $uid + 10;
return $uid;
} |
| Omega-DP41-Data-Current-0.3.4 | Omega::DP41::Data::Current | show |
| sub serial_data{
my $current;
my $device = "/dev/ttyS0";
my $serial = Device::SerialPort-> new($device, 1);
die "Can't open serial port $serial: $^E\n" unless ($serial);
$serial->user_msg(0);
$serial->databits(7);
$serial->baudrate(9600)... |
| OpenFrame-Segment-Apache2-1.00 | OpenFrame::Segment::Apache2::Response | show |
| sub output_response {
my($self, $ofr, $cookies, $store) = @_;
my $r = $store->get('Apache::RequestRec');
my %cookies = $cookies->get_all();
foreach my $name (keys %cookies) {
$r->err_headers_out->add("Set-Cookie" => $cookies{$n... |
| OpenPlugin-0.11 | OpenPlugin::Exception::Template | show |
| sub get_fields {
return ( $_[0]->SUPER::get_fields, @FIELDS );
} |
| OpenResty-0.5.12 | OpenResty::QuasiQuote::Validator::Compiler | show |
| sub new { my $self = bless( {
'_AUTOTREE' => undef,
'localvars' => '',
'startcode' => '',
'_check' => {
'thisoffset' => '',
... |
| Oracle-SQL-Builder-0.01 | Oracle::SQL::Builder | show |
| sub run_sql {
my $s = shift;
my ($dbh,$sfn,$hmd) = @_;
return 1 if ! $dbh;
return 2 if ! $sfn;
return 3 if ! -f $sfn;
my ($q,$e,@a,$m,$cmd,$cns,$dbt);
my $ds = '/';
if ($dbh =~ /([-\w_]+)\/(\w+)\@(\w+)/) {
$dbt... |
| Oryx-0.24 | Oryx::Schema::XSD | show |
| sub generate {
my ($self, $schema) = @_;
my $doc = Document->new();
my $xsdschema = $doc->createElement("xsd:schema");
$xsdschema->setAttribute('xmlns:xsd', 'http://www.w3.org/2001/XMLSchema');
$doc->appendChild($xsdschema... |
| Oryx-0.24 | Oryx::DBI::Util::Generic | show |
| sub _sequence_exists {
my ($self, $dbh, $table) = @_;
my $seq_name = $self->_seq_name($table);
$self->_create_oryx_sequence;
if (!$self->table_exists('oryx_sequences')) {
$self->table_create
}
sub _sequence_create {
... |
| Orze-1.11 | Orze | show |
| sub compile {
my ($self) = @_;
my $project = $self->{project};
my $site = $self->{site};
$self->_propagate($project->root);
$self->_evaluate($project->root, $site);
$self->_process($project->root, $site);
... |
| Orze-1.11 | Orze::Modules | show |
| sub load {
my $module = join("::", "Orze", @_);
my $module_path = $module . ".pm";
$module_path =~ s!::!/!g;
require $module_path;
return $module;
} |
| OurNet-1.60 | OurNet | show |
| sub new {
my $package = join('::', splice(@_, 0, 2));
eval "use $package";
die $@ if $@;
return $package->new(@_);
} |
| PAB3-3.201 | PAB3::Logger | show |
| sub _unix_as_logtime {
my $this = shift;
my @t = $this->[$LOG_UTILS]
? $this->[$LOG_UTILS]->localtime( defined $_[0] ? $_[0] : time )
: localtime( defined $_[0] ? $_[0] : time )
;
return
(
$t[4] == 0 ? 'Jan' :
$t[4] == 1 ? 'Feb' :... |
| PAB3-3.201 | PAB3::CGI | show |
| sub _warn_handler {
my $str = shift;
if( $str =~ /(.+) at (.+) line (.+)$/s ) {
print "<br />\n<code>Warning: <b>$1</b>\n"
. 'at <b>' . $2 . '</b> line <b>' . $3 . '</b>'
. "</code>\n<br /... |
| PAB3-3.201 | PAB3::HashmapCache | show |
| sub save {
my $this = shift;
my( $file, $data, $fh );
$file = $this->[$HMC_PATH_CACHE] . $this->[$HMC_CACHE_FILE];
return 1 if ! $this->[$HMC_DATA_CHANGED] && -e $file;
if( $this->[$HMC_LOGGER] ) {
$this->[$HMC_LOGGER]->debug( "St... |
| PAB3-3.201 | PAB3::DB | show |
| sub _set_db_error {
my $this = shift;
my $pkg = $this->[$DB_PKG];
if( $_[0] ) {
$this->[$DB_ERROR] = $_[0];
$this->[$DB_ERRNO] = -1;
}
else {
$this->[$DB_ERROR] = &{"$${pkg}::error"}( $this->[$DB_LINKID] );
$this->[$DB_ERRNO... |
| PAB3-3.201 | PAB3::Session | show |
| sub destroy {
my( $file );
%_SESSION = ();
return 1 if ! $SID;
$file = $Config{'save_path'} . '/pses_' . $SID;
unlink $file;
if( -e $file ) {
return 0;
}
$SID = undef;
return 1;
} |
| PAB3-3.201 | PAB3::CGI | show |
| sub _parse_request {
my( $len, $type, $meth, $got, $input, $post, $jmp );
%_GET = ();
%_POST = ();
%_REQUEST = ();
%_FILES = ();
binmode( STDIN );
binmode( STDOUT );
binmode( STDERR );
$type = $ENV{'CONTENT_TYPE'};
$len = $ENV{'CONTENT_LE... |
| PAB3-3.201 | PAB3::CGI | show |
| sub _parse_request {
my( $len, $meth, $got, $input, $post, $jmp );
%_GET = ();
%_POST = ();
%_REQUEST = ();
%_FILES = ();
binmode( STDIN );
binmode( STDOUT );
binmode( STDERR );
$len = $ENV{'CONTENT_LENGTH'};
$meth = $ENV{'REQUEST_METHOD'... |
| PAB3-3.201 | PAB3::DB::DataSet | show |
| sub _format_sql {
my $this = shift;
my( $ida, $db, $res, @fs, $step, $lp, $i );
$ida = $this->{'__I#D#A__'};
$db = $ida->[$IDA_DB];
@fs = split( //, $_[0] );
$res = '';
$step = 0;
for $i( 0 .. $#fs ) {
if( $step == 0 ) {
if( $fs[$i] eq ... |
| PAB3-3.201 | PAB3::ModPerl::Registry | show |
| sub handler : method {
my $class = ( @_ >= 2 ) ? shift : __PACKAGE__;
my $r = shift;
if( ! $PAB3::Statistic::VERSION &&
$r->dir_config->get( 'UseStatistic' )
) {
require PAB3::Statistic;
}
&PAB3::CGI::setenv();
&PAB3::CGI::in... |
| PAB3-3.201 | PAB3::Output::CGI | show |
| sub WRITE {
my $self = shift;
&SENDHEADER();
write @_;
} |
| PAB3-3.201 | PAB3 | show |
| sub _warn_handler {
my $str = shift;
print "\nWarning: $str\n";
} |
| PAB3-3.201 | PAB3::Utils | show |
| sub get_thread_id {
if( ref( $_[0]->[0] ) eq __PACKAGE__ ) {
return ${shift @{$_[0]}};
}
defined $TID or $TID = &_get_current_thread_id();
return $TID;
} |
| PAB3-3.201 | PAB3::Crypt::XOR | show |
| sub import {
my $pkg = shift;
my $callpkg = caller();
if( $_[0] and $pkg eq __PACKAGE__ and $_[0] eq 'import' ) {
*{$callpkg . '::import'} = \&import;
return;
}
foreach( @_ ) {
if( $_ eq ':default' ) {
*{$callpkg . '::xor_' . $_} = \&{$pkg .... |
| PAR-Packer-1.014 | pp | show |
| sub version {
print << ".";
exit;
} |
| PAR-Packer-1.014 | PAR::StrippedPARL::Base | show |
| sub write_raw {
my $class = shift;
my $file = shift;
if (not defined $file) {
warn "${class}->write_raw() needs a file name as argument";
return();
}
my $binary = $class->get_raw();
if (not defined $binary) {
... |
| PAR-Packer-1.014 | pipe_a_command | show |
| sub pipe_a_command {
my (
$test_number,
$sub_test,
$test_name_string,
$directory,
$command_string,
$executable_name,
$expected_result,
$os,
$verbose,
$message_ref,
$print_canno... |
| PAR-Packer-1.014 | test_in_further_subdir | show |
| sub test_in_further_subdir {
my (
$test_number,
$sub_test,
$test_name_string,
$test_dir,
$further_subdir,
$command_string,
$executable_name,
$expected_result,
$os,
$verbose,
... |
| PApp-2.0 | PApp::Lock | show |
| sub DESTROY {
$self->unlock while $self->{locked};
} |
| PApp-2.0 | PApp::DataRef | show |
| sub DESTROY { } |
| PApp-2.0 | PApp::HTML | show |
| sub parse_params($) {
map { /([^=]+)(?:=(.*))?/ and (unescape $1, unescape $2) } split /[&;]/, $_[0];
} |
| PApp-2.0 | PApp::Session | show |
| sub ref($) {
require PApp::DataRef;
\(new PApp::DataRef 'DB_row',
database => $PApp::Config::Database,
table => "session",
key => [qw(sid name)],
id => [$PApp::sessionid, $_[0]],
... |
| PApp-2.0 | PApp::Prefs | show |
| sub find_value($$$) {
sql_ufetchall $DBH, "select uid from prefs where path = ? and name = ? and value = ?",
${$_[0]{path}}, $_[1], $_[2];
} |
| PBJ-JNI-0.1 | PBJ::JNI::Util | show |
| sub get_static_field() {
my ($clz, $env, $cls_name, $fld_name, $fld_sig) = @_;
my ($cls, $fid, $mid, $fld, $value);
$env->PushLocalFrame(16) == 0 or die;
$cls = $env->FindClass($cls_name) or die;
$fid = $env->GetStaticFieldID($cls, $fl... |
| PBJ-JNI-0.1 | PBJ::JNI::Callback | show |
| sub callback() {
my $_env = shift;
my $jmethod = shift;
my ($ret, $env);
my ($method, $cptr, $is_copy);
$env = new PBJ::JNI::JNIEnv($_env);
$env->PushLocalFrame(16) == 0 or die;
$method = $env->GetStringUTFChars($jmethod, $is_copy, $... |
| PBS-Client-0.10 | PBS::Client | show |
| sub copy
{
my ($self, $num) = @_;
use Data::Dumper;
if (!defined $num || $num == 1)
{
my $clone;
eval(Data::Dumper->Dump([$self], ['clone']));
return($clone);
}
my @clones = ();
for (my $i = 0; $i &l... |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Basic::TTF::XMLparse | show |
| sub read_xml
{
my ($font, $fname) = @_;
my ($xml) = XML::Parser::Expat->new;
my ($context) = {'xml' => $xml, 'font' => $font};
$xml->setHandlers('Start' => sub {
my ($x, $tag, %attrs) = @_;
my ($con... |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Basic::TTF::Ttc | show |
| sub DESTROY
{
my ($self) = @_;
close ($self->{' INFILE'});
undef;
} |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Basic::PDF::Dict | show |
| sub val
{ $_[0]; } |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Basic::PDF::Literal | show |
| sub val
{ $_[0]; } |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Basic::PDF::Page | show |
| sub ship_out
{
my ($self, $pdf) = @_;
$pdf->ship_out($self);
if (defined $self->{'Contents'})
{ $pdf->ship_out($self->{'Contents'}->elementsof); }
$self;
} |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Basic::PDF::String | show |
| sub outxmldeep
{
my ($self, $fh, $pdf, %opts) = @_;
$opts{-xmlfh}->print("<String>".$self->val."</String>\n");
} |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Basic::PDF::Number | show |
| sub outxmldeep
{
my ($self, $fh, $pdf, %opts) = @_;
$opts{-xmlfh}->print("<Number>".$self->val."</Number>\n");
} |
| PDF-API3-3.001 | PDF::API3::Compat::API2::Basic::PDF::Name | show |
| sub outxmldeep
{
my ($self, $fh, $pdf, %opts) = @_;
$opts{-xmlfh}->print("<Name>".$self->val."</Name>\n");
} |
| PDF-FDF-Simple-0.21 | PDF::FDF::Simple::Grammar | show |
| sub new { my $self = bless( {
'_AUTOTREE' => undef,
'localvars' => '',
'startcode' => '',
'_check' => {
'thisoffset' => '',
... |
| PDF-Labels-1.8 | PDF::Labels | show |
| sub newpage()
{
my $self = shift;
push(@{$self->{'Pages'}}, $self->{'rootpage'}->new_page());
return(1);
} |
| PDF-Report-1.33 | PDF::Report | show |
| sub gen_page_footer {
my $self = shift;
my $total = shift;
my $type = shift;
for (my $i = 1; $i <= $total; $i++) {
next if ( $self->{no_page_num}->[$i - 1] );
my $page = $self->{pdf}->openpage($i);
my $txtobj = $page-&g... |
| PDF-Reuse-0.35 | PDF::Reuse::Util | show |
| sub blackText
{ PDF::Reuse::prAdd("0 0 0 rg\n0 g\nf\n");
1;
} |
| PDL-2.006 | PDL::Demos::Routines | show |
| sub output {print @_} |
| PDL-2.006 | PDL::IO::HDF | show |
| sub DESTROY
{
my $self = shift;
$self->close;
} |
| PDL-2.006 | PDL::Filter::Linear | show |
| sub new($$) {
my($type,$deg,$nleft,$nright) = @_;
my $npoints = $nright + $nleft + 1;
my $x = ((PDL->zeroes($npoints )->xvals) - $nleft)->float;
my $mat1 = ((PDL->zeroes($npoints,$deg+1)->xvals))->float;
for(0..$deg-1) {
(my $tmp ... |
| PDL-2.006 | PDL::Filter::LinSmooth | show |
| sub predict ($$) {
my($this,$data) = @_;
my $ldata = $data->lags(0,$this->{LagInterval},$this->{NTotLags});
print "PREDICT, weights: $this->{Weights}\n";
inner($ldata->xchg(0,1)->slice("$this->{LagsBehind}:-1"),
$this->{... |
| PDL-2.006 | PDL::Graphics::TriD::Basic | show |
| sub add_transformation {
my($this,$trans) = @_;
push @{$this->{Transforms}},$trans;
} |
| PDL-2.006 | PDL::Graphics::TriD::OOGL | show |
| sub twiddle {
} |
| PDL-2.006 | PDL::PP::Rule | show |
| sub translate {
my ($pars,$tbl) = @_;
foreach my $rule (@$tbl) {
$rule->apply($pars);
}
print "GOING OUT!\n" if $::PP_VERBOSE;
return $pars;
} |
| PDL-2.006 | C::Var | show |
| sub freecode {
} |
| PDL-Graphics-Gnuplot-1.5 | PDL::Graphics::Gnuplot | show |
| sub _def {
my $val = shift;
my $or = shift;
return (defined($val)?$val : $or);
} |
| PDL-Graphics-Simple-1.005 | PDL::Graphics::Simple::Gnuplot | show |
| sub plot {
my $me = shift;
my $ipo = shift;
my $po = {
title => $ipo->{title},
xlab => $ipo->{xlabel},
ylab => $ipo->{ylabel},
key => $ipo->{key},
xrange => $ipo->{xrange},
yrange => ... |
| PDL-Graphics-Simple-1.005 | PDL::Graphics::Simple::Prima | show |
| sub plot {
my $me = shift;
my $ipo = shift;
$me->{ipo} = $ipo;
if(defined($ipo->{legend})) {
printf(STDERR "WARNING: Ignoring 'legend' option (Legends not yet supported by PDL::Graphics::Simple::Prima v%s)",$PDL::Graphics::Simple:... |
| PDL-Graphics-Simple-1.005 | PDL::Graphics::Simple::PLplot | show |
| sub cmd_location {
use File::Spec;
my @path = File::Spec->path();
for my $p(@path) {
if(-e "${p}\\cmd.exe") {return "${p}\\cmd.exe"}
}
die "Can't locate cmd.exe";
} |
| PDL-Graphics-Simple-1.005 | PDL::Graphics::Simple::PGPLOT | show |
| sub DESTROY {
my $me = shift;
$me->{obj}->release;
if($me->{type} =~ m/^f/i) {
eval q{ $me->{obj}->close; };
my $file = ( ($me->{conv_fn}) ? $me->{conv_fn} : $me->{output} );
if($me->{conv_fn}) {
my $a;
... |
| PException-2.4 | PException | show |
| sub __onflyhandler {
if ( hadWaittingExceptions() ) {
my ( @tmp );
if ( scalar( @{$PException::_XCPHDL_->{STACKFLY}} ) ) {
@tmp = @{$PException::_XCPHDL_->{STACKFLY}->[
$#{$PException::_XCPHDL_->{STACKFLY}}]};
} else {
my ( $i, ... |
| PGP-0.3a | PGP::Pipe | show |
| sub _desc
{
my ($self, $owner, $email) = @_;
return ("$owner <$email>") if ($owner && $email);
return ("$owner") if (!$email);
return ("$email") if (!$owner);
return ("*** No ID on key ***");
} |
| PITA-Test-Image-Qemu-0.41 | PITA::Test::Image::Qemu | show |
| sub filename {
File::ShareDir::dist_file('PITA-Test-Image-Qemu', 'qemu.img');
} |
| PML-0.4.1 | PML::LWP | show |
| sub insert
{
my ($self, $token) = @_;
my ($name, $a, $b) = @{$token->data};
my ($ua, $res, $req, $url, @urls, $rv, $trv);
@urls = $self->tokens_execute($a);
@urls or return undef;
$ua = new LWP::UserAgent;
$ua->agent("PML LWP Access/$V... |
| POCSAG-Encode-1.00 | POCSAG::PISS | show |
| sub brraaap($$)
{
my($self, $encoded) = @_;
$self->{'piss_seq'}++;
$self->{'piss_seq'} = 0 if ($self->{'piss_seq'} == 26);
my $seqid = chr($self->{'piss_seq'} + 97);
if (length($encoded) > $self->{'max_tx_len'}) {
$self->... |
| POE-Component-Client-HTTP-0.947 | POE::Filter::HTTPChunk | show |
| sub get_pending {
my $self = shift;
return $self->[FRAMING_BUFFER] if @{$self->[FRAMING_BUFFER]};
return undef;
} |
| POE-Component-Client-LDAP-0.04 | POE::Component::Client::LDAP | show |
| sub DESTROY {
my $self = shift;
$self->inner->_drop_conn()
unless --$self->inner->{net_ldap_refcnt};
DEBUG( "Net::LDAP Refcount: " . $self->inner->{net_ldap_refcnt} ) if DEBUGGING;
} |
| POE-Component-SSLify-NonBlock-0.41 | POE::Component::SSLify::NonBlock | show |
| sub hexdump { join ':', map { sprintf "%02X", $_ } unpack "C*", $_[0]; } |
| POE-Component-Server-XMLRPC-0.05 | POE::Component::Server::XMLRPC | show |
| sub return {
my ($self, $retval) = @_;
my $content = XMLRPC::Serializer->envelope(response => 'toMethod', $retval);
my $response = $self->[TR_RESPONSE];
$response->code(200);
$response->header("Content-Type", "text/xml");
$res... |
| POE-Component-WWW-Pastebin-Bot-Pastebot-Create-0.002 | POE::Component::WWW::Pastebin::Bot::Pastebot
::Create | show |
| sub _process_request {
my ( $self, $in_ref ) = @_;
my @args = ( $in_ref->{content} );
for ( qw(channel nick summary) ) {
exists $in_ref->{$_}
and push @args, $_ => $in_ref->{$_};
}
my $paster = $sel... |
| POE-XUL-0.0600 | POE::XUL::TWindow | show |
| sub create_window
{
my( $self ) = @_;
my $id = $self->id;
my $window = POE::XUL::Window->new( %{ $self->{attributes} },
tag => 'window', id => $id, name => $id
... |
| POSIX-1003-0.92 | POSIX::1003::Pathconf | show |
| sub pathconf_names() { keys %$pathconf } |
| PPM-2.1.9 | PPM::XML::ValidatingElement | show |
| sub validate_required_kids
{
my $self = shift;
my $func = shift;
my $kid;
my $type = ref $self;
my $success = 1;
my $elem = $type;
$elem =~ s/.*:://;
my $base = $type;
$base =~ s/::[^:]*?$//;
foreach $kid (@{"$ty... |
| PPM-2.1.9 | PPM::XML::Element | show |
| sub as_text
{
my $self = shift;
my $text;
my $type = ref $self;
$type =~ s/.*:://;
$text = "\n<" . $type;
foreach (sort keys %{$self})
{
if ($_ !~ /Text|Kids/)
{ $text .= " $_=\"" . $self->{$_} . '"'... |
| PPresenter-1.17 | PPresenter::tkTimerLabel | show |
| sub setValue($)
{ my ($w, $value) = @_;
$w->configure
( -text => $w->makeTime($value),
, -background => $w->makeColor($value, $w->cget('-maxValue'))
, -value => $value
);
} |
| PXP-0.1.2 | PXP::PluginRegistry | show |
| sub _getRegisteredPlugin {
my $id = shift || '';
return $plugins->{$id};
} |
| Padre-Plugin-HG-0.16 | Padre::Plugin::HG::DiffView | show |
| sub _populate_list
{
my ($self, $lines) = @_;
if (!$lines) {return}
foreach my $line (@$lines)
{
if ($line =~ /^\+/)
{
$self->{diff_box}->SetDefaultStyle(Wx::TextAttr->new(Wx::Colour->new('sea green')));
}
elsif ($li... |
| Padre-Plugin-HG-0.16 | Padre::Plugin::HG::LogView | show |
| sub _populate_list
{
my ($self, $log) = @_;
my @commits = $self->{hg}->parse_log($log);
if (!$log) {return}
$self->{list_box}->InsertColumn(0,'changeset');
$self->{list_box}->InsertColumn(1,'user');
$self->{list_box}->Inser... |
| Padre-Plugin-HG-0.16 | Padre::Plugin::HG::ProjectCommit | show |
| sub _populate_list
{
my ($self, $filestatus) = @_;
if (!$filestatus) {return}
foreach my $file (@$filestatus)
{
my ($status, $path) = @$file;
$self->{file_listbox}->InsertImageStringItem(1, $path, $file_types->{$status});
}
} |
| Padre-Plugin-Moose-0.21 | Padre::Plugin::Moose::Util | show |
| sub add_moose_keywords_highlighting {
my $type = shift or return;
my $document = shift or return;
my $editor = shift or return;
my $keywords = Padre::Wx::Scintilla->keywords($document);
if ( Params::Util::_ARRAY($keywords) ) {
foreach my ... |
| Palm-Zetetic-Strip-1.02 | Palm::Zetetic::Strip::Util | show |
| sub null_split
{
my ($string) = @_;
my @strings;
@strings = ();
while (length($string) > 0)
{
my $x = unpack("Z*", $string);
push(@strings, $x);
$string = substr($string, length($x)+1);
}
return @st... |
| Palm-Zetetic-Strip-1.02 | Palm::Zetetic::Strip::Version | show |
| sub is_1_0
{
my ($self) = @_;
return ($self->{version} eq "1.0");
} |
| ParallelUserAgent-2.61 | LWP::Parallel::UserAgent::Entry | show |
| sub use_alarm {
warn "The Parallel::UserAgent->use_alarm method is not available anymore.\n" if $^W;
} |
| Parse-BBCode-0.14 | Parse::BBCode | show |
| sub _finish_tag {
my ($self, $tag, $end, $auto_closed) = @_;
unless ($tag->get_finished) {
$tag->set_end($end);
$tag->set_finished(1);
$tag->set_auto_closed($auto_closed || 0);
}
return 1;
} |
| Parse-CPAN-Ratings-0.33 | Parse::CPAN::Ratings | show |
| sub ratings {
my $self = shift;
return values %{ $self->db };
} |
| Parse-DNS-Zone-0.42 | Parse::DNS::Zone | show |
| sub _parse_soa {
my $self = shift;
my $soa_rd = get_rdata($self, (name=>"$self->{origin}", rr=>'SOA'));
my($mname,$rname,$serial,$refresh,$retry,$expire,$minimum)=
$soa_rd=~/^(\S+) (\S+) (\d+) (\d+) (\d+) (\d+) (\d+)\s*$/;
$self->{soa}... |
| Parse-ExCtags-0.06 | Parse::ExCtags | show |
| sub unescape_value() {
my @new = @_;
for(@new) { s{\G(.*?)(\\.)}{$1 . ({'\\t' => chr(9), '\\r' => chr(13), '\\n' => chr(10), '\\\\' => '\\',}->{$2}||$2)}ge; }
return @new;
} |
| Parse-FieldPath-0.005 | Parse::FieldPath::Parser | show |
| sub new { my $self = bless( {
'_precompiled' => 1,
'localvars' => '',
'startcode' => '',
'namespace' => 'Parse::RecDescent::Parse::FieldPath::Parser',
'rules'... |
| Parse-File-Metadata-0.07 | Parse::File::Metadata | show |
| sub get_exception {
my $self = shift;
return $self->{exception};
} |
| Parse-M3U-Extended-0.1 | Parse::M3U::Extended | show |
| sub m3u_parser {
my $playlist = shift;
if ($playlist =~ /$m3u_parser/) {
return __analyze(\%/);
}
}
# The analyze subroutine are used to flatten the structured returned
# from Regexp::Grammars. If you want the full tree, you can use
# $Parse::M3U:... |
| Parse-MIME-1.000 | Parse::MIME | show |
| sub best_match {
my ( $supported, $header ) = @_;
my @parsed_header = parse_media_range_list $header;
my ( $best_fitness, $best_fit_q, $match ) = ( -.5, 0 );
for my $type ( @$supported ) {
my ( $fitness, $fit_q ) = fitness_and_quality_parsed $type... |
| Parse-Matroska-0.003 | Parse::Matroska::Utils | show |
| sub uncamelize($) {
local $_ = shift;
s/(?<=[a-z])([A-Z])/_\L$1/g;
s/([A-Z])(?=[a-z]{2})/_\L$1/g;
s/^_//; lc
} |
| Parse-RandGen-0.202 | Parse::RandGen::Condition | show |
| sub pickRepetitions {
my $self = shift or confess "%Error: Cannot call pickRepetitions without a valid object!";
my %args = @_;
my ($corruptCnt, $corruptData) = (0, 0);
if (!$args{match} && !$self->zeroOrMore()) {
if (int(rand(2))) {... |
| Parse-RecDescent-Deparse-1.00 | Parse::RecDescent::Deparse | show |
| sub Parse::RecDescent::Repetition::deparse {
my $self = shift;
return $self->{subrule}."($self->{repspec})";
} |
| Parse-SVNDiff-0.05 | Parse::SVNDiff | show |
| sub apply_fh {
my $self = shift;
my $source_fh = shift;
seek($source_fh, 0, 0) or die $!;
my $target_fh = shift;
seek($target_fh, 0, 0) or die $!;
while ( my $window = $self->next_window ) {
$window->apply_fh($source_fh, $t... |
| Parse-Vipar-0.01 | Parse::Vipar::Console | show |
| sub outputComplete {
my ($self) = @_;
$self->_pushPrompt();
} |
| Parse-Vipar-0.01 | Parse::Vipar::ViparText | show |
| sub _sequence_to_tree {
my $tree = [];
while (@_) {
my $elt = shift;
if (!ref $elt) {
push @$tree, $elt;
} else {
if ($$elt =~ m!^/(\w+)!) {
return ($tree, $1);
} else {
... |
| Paths-Tree-0.02 | Paths::Tree | show |
| sub tree {
my ($self , $father, $level ,%h) = @_;
$father = $self->{origin} unless $father;
foreach my $child ( @{$self->{tree}{$father} }) {
last if $h{$child};$h{$child}=1;
$self->{sub}->($child,$level);
... |
| Paw-0.54 | Paw | show |
| sub Paw_main_loop {
my $main_win = shift;
$Paw::main_win = $main_win;
my $i = '';
$main_win->_refresh();
while ( not $main_win->{close_it} and ($i ne $main_win->{quit_key}) ) {
$i = getch();
&{$m... |
| Paw-0.54 | Paw::Popup_menu | show |
| Pegex-Crontab-0.12 | Pegex::Crontab::AST | show |
| sub got_env_line {
my ($self, $node) = @_;
env_hash($node);
} |
| Pegex-JSON-0.16 | Pegex::JSON::Data | show |
| sub got_null { undef } |
| Penguin-3.00 | Penguin::Trivial::Server | show |
| sub serve {
my ($self, %args) = @_;
my $mychannel = new Penguin::Channel::TCP::Server Bind => $self->{'Port'},
Listen => 5;
while(1) {
$mychannel->open();
$fram... |
| Penguin-3.00 | Penguin::Frame::Data | show |
| sub type {
"Data";
} |
| Penguin-3.00 | Penguin::Frame::Code | show |
| sub type {
"Code";
} |
| PeopleSoft-1.05 | PeopleSoft | show |
| sub is_view {
use Data::Dumper;
my ( $name, $dbh ) = @_;
my ( $sql_text, @results, %utabs, @tabs, @t2, @all_tabs, %ah );
my $sql_cmd = "select view_name from all_views where view_name = '$name'";
my $sth = $dbh->prepare($sql_cmd);
$sth->... |
| PeopleSoft-1.05 | PeopleSoft::EPM | show |
| sub push_onto_load_seq {
my ( $MS, $load_seq, $mapping ) = @_;
push( @{$load_seq}, $mapping );
$MS->{$mapping}{DONE} = 1;
return;
} |
| Perl-Dist-1.16 | ExtUtils::Command | show |
| sub dos2unix {
require File::Find;
File::Find::find(sub {
return if -d;
return unless -w _;
return unless -r _;
return if -B _;
local $\;
my $orig = $_;
my $temp = '.dos2unix_tmp';
open ORIG, $_ or do {... |
| Perl-Metric-Basic-0.31 | Perl::Metric::Basic | show |
| sub _unique {
my ($self, $nodes) = @_;
return (0, 0) unless $nodes;
my $count = scalar @$nodes;
my %count;
$count{ $_->content }++ foreach @$nodes;
my $count_unique = (keys %count);
return ($count, $count_unique);
} |
| Perl-RPM-1.51 | RPM | show |
| sub evrcmp ($$) {
my @rpm = @_;
foreach (@rpm) {
next if ref $_;
require RPM::Header;
my $hdr = RPM::Header->new;
if (s/^(\d+)://) {
$$hdr{EPOCH} = int $1;
}
if (m/^(.+)-(.+)$/) {
$$hdr{VERSION} = $1;
$$hdr{RELEASE} = $2;
... |
| Perl-RPM-1.51 | RPM::Header | show |
| Perl-RPM-1.51 | RPM::Database | show |
| sub import
{
my ($class, @args) = @_;
my $callpkg = caller(0);
no strict 'refs';
for my $arg (@args)
{
if ($arg eq '%RPM' and ! (tied %RPM))
{
tie %RPM, "RPM::Database";
*{"${callpkg}::RPM"} =... |
| Perl6-Bible-0.37 | Perl6::Bible | show |
| sub process {
my $self = shift;
print <<_;
} |
| Perl6-Pugs-6.2.13 | PrimFilter | show |
| sub Match_new {
my($b,$s,$a,$h,$from,$to)=@_;
Match->new('$.val_bool' => $b,
'$.val_string' => $s,
'$.val_array' => $a,
'$.val_hash' => $h,
'$.from' => $from,
... |
| Perl6-Pugs-6.2.13 | WebTerminal::Dispatcher | show |
| sub rcvd_msg_from_server {
my ( $conn, $msg, $err ) = @_;
if ( defined $msg ) {
die "Strange... shouldn't really be coming here\n";
}
} |
| Perl6-Pugs-6.2.13 | WebTerminal::Server::Terminal | show |
| sub spawn {
my (@cmd) = @_;
my ( $pid, $pty, $tty, $tty_fd );
use IO::Pty ();
$pty = new IO::Pty
or die $!;
unless ( $pid = fork ) {
die "problem spawning program: $!\n" unless defined $pid;
use POSIX ();
POSIX::setsid
or die "set... |
| Perl6-Pugs-6.2.13 | Web::Terminal::Dispatcher | show |
| sub rcvd_msg_from_server {
my ( $conn, $msg, $err ) = @_;
if ( defined $msg ) {
die "Strange... shouldn't really be coming here\n";
}
} |
| Perl6-Pugs-6.2.13 | Web::Terminal::Server::Terminal | show |
| sub spawn {
my (@cmd) = @_;
my ( $pid, $pty, $tty, $tty_fd );
use IO::Pty ();
$pty = new IO::Pty
or die $!;
binmode $pty, ':utf8';
unless ( $pid = fork ) {
die "problem spawning program: $!\n" unless defined $pid;
use POSIX ();
POS... |
| Perl6-Pugs-6.2.13 | Web::Terminal::Server::Session | show |
| sub spawn {
my (@cmd) = @_;
my ( $pid, $pty, $tty, $tty_fd );
use IO::Pty ();
$pty = new IO::Pty
or die $!;
binmode $pty, ":utf8";
unless ( $pid = fork ) {
die "problem spawning program: $!\n" unless defined $pid;
use POSIX ();
PO... |
| Perl6-Pugs-6.2.13 | P6RulesInP5::Match | show |
| sub get_array {
my ( $self ) = @_;
return $self->capture();
} |
| Perl6-Pugs-6.2.13 | P6RulesInP5::P6Rule | show |
| sub parse_ws_lit {
my ($matchObj) = @_;
$target = $matchObj->target();
$position = $matchObj->position();
$lastPosition = length $target;
if matches( /\s/, $target, $pos )
{
goto term_ws;
}
$initchar = substr $target, $pos, 1;
... |
| Perl6-Pugs-6.2.13 | P6RulesInP5::Rule | show |
| sub ws {
my ( $matchObj ) = @_
} |
| Perl6-Pugs-6.2.13 | Match | show |
| sub _indent_except_top {my($o,$s)=@_; $s =~ s/^(?<!\A)(?!\Z)/ /mg; $s} |
| Perl6-Pugs-6.2.13 | Perl6::Rule::Parser | show |
| sub init {
my ($self) = @_;
$self->add_handler('atom' => sub {
my ($S) = @_;
$S->nextchar;
${&Rx} =~ m{ \G (.) }xgcs or return;
my $c = $1;
push @{ $S->{next} }, qw< atom >;
return $S->$c if $S->can($... |
| Perl6-Pugs-6.2.13 | Pugs::Runtime::Capture | show |
| sub scalar { $_data{refaddr $_[0]}->{scalar} }
1 |
| Perl6-Pugs-6.2.13 | Pugs::Runtime::Match | show |
| sub scalar {
return \( $_[0]->flat );
}
1 |
| Perl6-Tokener-0.01 | Perl6::Tokener | show |
| sub lop {
my $t = shift;
$t->{state} = "TERM";
if ($t->{next}->{type}) {
$t->{type} = "listop";
} elsif ($t->{buffer}=~/^s*\(/) {
$t->{type} = "func";
} else {
$t->{type} = "listop";
}
} |
| PerlIO-via-Base64-0.08 | PerlIO::via::Base64 | show |
| sub import {
my ( $class, %param )= @_;
$class->$_( $param{$_} ) foreach keys %param;
} |
| PerlIO-via-Include-0.04 | PerlIO::via::Include | show |
| sub _include {
open( my $handle,"<:via(Include)",$_[0] )
or return "*** Could not open '$_[0]': $! ***";
my $contents= '';
local($_);
$contents .= $_ while readline( $handle );
return $contents;
} |
| PerlIO-via-LineNumber-0.04 | PerlIO::via::LineNumber | show |
| sub import {
my ( $class, %param )= @_;
$class->$_( $param{$_} ) foreach keys %param;
} |
| PerlIO-via-Logger-1.01 | PerlIO::via::Logger | show |
| sub import {
my ($class,%param) = @_;
$class->$_( $param{$_} ) foreach keys %param;
} |
| PerlIO-via-MD5-0.07 | PerlIO::via::MD5 | show |
| sub FILL {
my $line= readline( $_[1] );
if ( defined($line) ) {
$_[0]->[0]->add($line);
return '';
}
elsif ( $_[0]->[0] ) {
my ( $object, $method )= @{ $_[0] };
$_[0]->[0]= '';
return $objec... |
| PerlIO-via-Pod-0.05 | PerlIO::via::Pod | show |
| sub WRITE {
foreach ( split( m#(?<=$/)#, $_[1] ) ) {
if ( m#^=[a-zA-Z]# ) {
if ($_[0]->{inpod} = !m#^=cut#) {
return -1 if !print { $_[2] } $_;
}
}
elsif ( $_[0]->{inpod} ) {
... |
| PerlIO-via-QuotedPrint-0.07 | PerlIO::via::QuotedPrint | show |
| sub WRITE {
return ( print { $_[2] } MIME::QuotedPrint::encode_qp( $_[1] ) )
? length( $_[1] )
: -1;
} |
| PerlIO-via-Rotate-0.08 | PerlIO::via::Rotate | show |
| sub WRITE {
local( $_ ) = ref( $_[0] );
die "Class $_ was not activated" unless m#::rot(?:0|26)$#;
return ( print { $_[2] } $_[1] ) ? length( $_[1] ) : -1;
} |
| PerlIO-via-UnComment-0.04 | PerlIO::via::UnComment | show |
| PerlIO-via-UnPod-0.05 | PerlIO::via::UnPod | show |
| sub WRITE {
foreach ( split( m#(?<=$/)#, $_[1] ) ) {
if ( m#^=[a-zA-Z]# ) {
$_[0]->{insrc}= m#^=cut#;
}
elsif ( $_[0]->{insrc} ) {
return -1 if !print {$_[2]} $_;
}
}
return length(... |
| Perlbal-Plugin-Syslogger-1.00 | Perlbal::Plugin::Syslogger | show |
| sub WRITE {
my $lref = shift;
my ($buf, $len, $offset) = @_;
$offset ||= 0;
$$lref->send(substr $buf, $offset, $len);
} |
| Perldoc-0.20 | Perldoc | show |
| sub kwid_to_html {
my $class = shift;
require Perldoc::Parser::Kwid;
require Perldoc::Emitter::HTML;
my $html = '';
my $receiver = Perldoc::Emitter::HTML->new->init(
stringref => \$html,
);
my $parser = Perld... |
| Perldoc-0.20 | Perldoc::Writer | show |
| sub open_handle {
my $filepath = $self->filepath;
$filepath = "> $filepath"
unless $filepath =~ /^>/;
open my $ouput, $filepath
or die "Can't open '$filepath' for output:\n$!";
return $filepath;
} |
| Perldoc-0.20 | Perldoc::Reader | show |
| sub _all_filehandle {
my $filehandle = $self->filehandle;
local $/;
return <$filehandle>;
} |
| Perldoc-0.20 | Perldoc::Parser::Kwid | show |
| sub parse {
my @stack;
my @has = (\$kwid);
my $str = $self->reader->all;
$str = '' unless defined($str);
pos($str) = 0;
PARSE: {
my $candidates = join('|',
map { "($_)" } (
(map { $_-... |
| Perldoc-0.20 | Perldoc::Emitter::HTML | show |
| sub text {
my $output = shift;
$output =~ s/\\(.)/$1/g;
decode_entities($output);
encode_entities($output, '<>&"');
$prev_text = $output;
$output .= "\n";
$self->writer->print($output);
} |
| Petal-CodePerl-0.06 | Petal::CodePerl::Parser | show |
| sub new { my $self = bless( {
'_AUTOTREE' => undef,
'localvars' => '',
'startcode' => '',
'_check' => {
'thisoffset' => '',
... |
| Pg-DatabaseManager-0.05 | Pg::DatabaseManager::TestMigrations | show |
| sub _compare_files {
my $migrated = shift;
my $fresh = shift;
my $start_version = shift;
my $final_version = shift;
local $Test::Builder::Level = $Test::Builder::Level + 2;
eq_or_diff(
scalar read_file( $migr... |
| Pg-Loader-0.18 | Log | show |
| sub rejected {
} |
| Pgreet-1.0.0 | Pgreet::ExecMason | show |
| sub ExecObjMason {
my $Interp_obj_args = shift;
my $comp_path = shift;
my $Transfer = shift;
my $Mason_obj = HTML::Mason::Interp->new(%{$Interp_obj_args});
$Mason_obj->exec($comp_path, $Transfer);
} |
| Pgreet-1.0.0 | Pgreet::ExecEmbperl | show |
| sub ExecObjEmbperl {
my $Embperl_args = shift;
Embperl::Object::Execute($Embperl_args);
} |
| Physics-Unit-0.53 | Physics::Unit::Script::GenPages | show |
| sub typeRow
{
my $t = shift;
my $ts = typeStr($t);
return " <tr bgcolor='#B0D8FC'>\n" .
" <td colspan='4'>\n" .
" <a name='$ts'>" .
($ts eq 'prefix' ? 'prefix (dimensionl... |
| Pinwheel-0.2.7 | Pinwheel::Helpers::Text | show |
| sub ordinal_text
{
my $i = (0 + shift) % 100;
return 'th' if ($i >= 10 && $i < 20);
return qw(th st nd rd th th th th th th)[$i % 10];
} |
| Plosurin-0.1 | Plosurin | show |
| sub parse {
my $self = shift;
my $ref = shift;
our $file = shift;
my $r = qr{
<extends: Plosurin::Template::Grammar>
<matchline>
\A <File> \Z
}xms;
if ( $ref =~ $r ) {
return {%/}-&... |
| Plosurin-0.1 | Soy::Actions | show |
| sub parse {
my $self = shift;
my $str = shift || return [];
my $q = shift || qr{
<extends: Plosurin::Grammar>
# <debug:step>
\A <[content]>* \Z
}xms;
if ( $str =~ $q->with_actions( new Soy::Actions... |
| Plucene-Plugin-Analyzer-MetaphoneAnalyzer-1.02 | Plucene::Plugin::Analyzer::MetaphoneAnalyzer | show |
| sub tokenstream {
my $self = shift;
return Plucene::Plugin::Analyzer::MetaphoneFilter->new({
input => Plucene::Analysis::Standard::StandardTokenizer->new(@_)
});
} |
| Plucene-Plugin-Analyzer-PorterAnalyzer-1.0 | Plucene::Plugin::Analyzer::PorterAnalyzer | show |
| sub tokenstream {
my $self = shift;
return Plucene::Analysis::PorterStemFilter->new({
input => Plucene::Analysis::LowerCaseTokenizer->new(@_),
});
} |
| Plucene-Plugin-Analyzer-SnowballAnalyzer-1.1 | Plucene::Plugin::Analyzer::SnowballAnalyzer | show |
| sub tokenstream {
my $self = shift;
my @stopwords = keys %{ Lingua::StopWords::getStopWords($LANG) };
return Plucene::Analysis::StopFilter->new({
input => Plucene::Plugin::Analyzer::SnowballFilter->new({
input => Plucene::Analysis::St... |
| Plucene-SearchEngine-Index-RSS-0.02 | Plucene::SearchEngine::Index::RSS | show |
| PlugIn-0.01 | PlugIn | show |
| sub EvalIt
{
my (@files) = @_;
my ($data, $return);
foreach my $file (@files)
{
open (IN, $file) or return;
read (IN, $data, (-s $file));
close IN;
if (eval ($data))
{
$return = $return | 0;
}
else {
$return = $return | 1;
... |
| Pod-AxPoint-0.04 | Pod::AxPoint | show |
| sub formatter_xml {
my($text) = @_;
$ax .= $text;
} |
| Pod-HTML2Pod-4.05 | Pod::HTML2Pod | show |
| sub encode_entities_harder {
$_[0] =~ s/([^\n\t !\#\$%\'-.0-=?-{}~])/$Char2ent{$1}/g;
return;
} |
| Pod-Peapod-0.42 | Pod::Peapod::Text | show |
| sub OutputTocNewLine
{
} |
| Pod-Readme-0.11 | Pod::Readme | show |
| sub seq_l {
my $self = shift;
local $_ = shift;
s/\s+/ /g;
if (/^([^|]+)\|/) { return $1 }
s/^\s+//;
s/\s+$//;
my ($manpage, $section) = ('', $_);
if (/$RE{URI}/ || /^(?:https?|ftps?|svn):/) {
return $_;
} elsi... |
| Pod-Tree-1.17 | Pod::Tree::BitBucket | show |
| sub url
{
my($link_map, $html, $target) = @_;
my $depth = $html->{options}{depth};
my $base = join '/', ('..') x $depth;
my $page = $target->get_page;
$page =~ s(::)(/)g;
$page .= '.html' if $page;
... |
| Pod2VMSHlp-1.02 | Pod::Dsr | show |
| sub switchquotes {
my $self = shift;
my $command = shift;
local $_ = shift;
my $extra = shift;
s/\\\*\([LR]\"/\"/g;
my $c_is_quote = ($$self{LQUOTE} =~ /\"/) || ($$self{RQUOTE} =~ /\"/);
if (/\"/ || ($c_is_quote && /\\\*\(C[\'... |
| Pointer-0.11 | Pointer | show |
| sub scalar_id {
return
overload::StrVal(\ $_[0]) =~ qr{^(?:.*\=)?[^=]*\(([^\(]*)\)$}o
? $1
: croak "Can't find id of scalar";
} |
| Postini-SAML-0.001 | Postini::SAML | show |
| sub get_form {
my ($self, $mail) = @_;
my $saml_response = encode_base64( $self->get_response_xml( $mail ), q{} );
my $html = join( q{},
qq{<form action="$ACS_URL" method="post">},
qq{<input type="hidden" name="SA... |
| Prima-1.36 | Prima::Image::jpeg | show |
| sub save_dialog
{
return Prima::Image::jpeg-> create;
} |
| Prima-1.36 | Prima::PS::Encodings | show |
| sub load
{
my $cp = defined( $_[0]) ? $_[0] : 'default';
$cp = $1 if $cp =~ /\.([^\.]*)$/;
$cp =~ s/_//g;
if ( $cp eq 'null') {
return $cache{null} if exists $cache{null};
return $cache{null} = [('.notdef') x 256];
}
my $fx = exists($files{$cp... |
| Prima-OpenGL-0.04 | Prima::OpenGL | show |
| sub gl_do
{
my ( $self, $sub, @param ) = @_;
unless ( Prima::OpenGL::context_push()) {
warn Prima::OpenGL::last_error();
return;
}
$self-> gl_select;
my ($fail, @ret);
eval {
if (wantarray) {
@ret = $sub->(@param);
} else {
$... |
| Printer-0.98 | Printer | show |
| sub get_unique_spool {
my ($i, $spoolfile);
$i = 0;
my $sys = shift;
if ( (! $ENV{TEMP}) && $sys eq 'linux') {
$ENV{TEMP} = '/tmp';
}
while (-e "$ENV{TEMP}/printer-$PID.$i") {
++$i;
}
if ($OSNAME eq 'MSWin32') {
$spool... |
| Proc-BackOff-0.02 | Proc::BackOff::Exponential | show |
| sub calculate_back_off {
my $self = shift;
my $exponent = $self->exponent();
my $base = $self->base();
$exponent = $self->failure_count() if $exponent eq 'count';
$base = $self->failure_count() if $base eq 'count';
... |
| Proc-BackOff-0.02 | Proc::BackOff::Random | show |
| sub calculate_back_off {
my $self = shift;
my $min = $self->min();
my $max = $self->max();
$min = $self->failure_count() if $min eq 'count';
$max = $self->failure_count() if $max eq 'count';
return int (rand($max-$mi... |
| Proc-JobQueue-0.903 | Proc::JobQueue::Sequence | show |
| sub startup
{
my $job = shift;
my $graph = $job->{queue}->graph();
my @last = ();
for my $subtask (@{$job->{jobs}}) {
$graph->add($subtask, @last);
@last = ( $subtask );
}
my $finish = Proc::JobQueue::DependencyTask->new(
des... |
| Proc-Terminator-0.05 | Proc::Terminator::Ctx | show |
| sub proc_terminate {
my ($pids, %options) = @_;
my $batch = Proc::Terminator::Batch->with_pids($pids, %options);
$batch->begin_time(time());
while ($batch->loop_once) {
$DEBUG and warn "Sleeping for ${\$batch... |
| Ptty-0.01 | Ptty | show |
| sub slave
{
my ($obj) = @_;
my $slave = $obj->{'slave'};
my $tty = $obj->{'tty'};
open($slave,"+>$tty") || croak "Cannot open $slave as $tty:$!";
InitSlave($slave,$tty);
my $code = system("stty sane >&".fileno($slave)." <&1");
prin... |
| Pugs-Compiler-Rule-0.37 | Pugs::Runtime::Match | show |
| sub scalar {
return \( $_[0]->flat );
}
1 |
| Qmail-Mysql-0.02 | Qmail::Mysql | show |
| sub DESTROY {
my $self = shift;
$self->disconnect;
} |
| Qpsmtpd-Plugin-Quarantine-1.02 | Qpsmtpd::Plugin::Quarantine | show |
| sub match_domain
{
my ($qp, $domain, $hashref, $what) = @_;
while ($domain) {
$qp->log(LOGDEBUG, "Trying to match $domain for $what");
if ($hashref->{$domain}) {
return 1;
}
$domain =~ s/^[^\.]+// or last;
$domain =~ s/^\.//;
}
ret... |
| Qt-0.96.0 | CodeEditor | show |
| sub lineNumberAreaPaintEvent {
my ($event) = @_;
my $painter = Qt::Painter(this->lineNumberArea);
$painter->fillRect($event->rect(), Qt::Brush(Qt::Color(Qt::lightGray())));
my $block = this->firstVisibleBlock();
my $block... |
| Qt-0.96.0 | XbelGenerator | show |
| sub write
{
my ($device) = @_;
out->setDevice($device);
out->setCodec('UTF-8');
no warnings 'void';
out << "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n"
|
| Qt-0.96.0 | AddressBook | show |
| sub exportAsVCard
{
my $name = this->{nameLine}->text();
my $address = this->{addressText}->toPlainText();
my $firstName;
my $lastName;
my @nameList;
if ($name =~ m/ /) {
@nameList = split m/\s+/, $name;
... |
| QtCore-4.004 | MyApp | show |
| sub slt1 {
print "from slt1\n";
my $file_name = QString("in_out.txt");
print "$file_name $$file_name{_ptr}\n";
my $fl = QFile($file_name);
$fl->open(2);
my $ds = QDataStream($fl);
print "File = $fl, DataStream = $ds\n";... |
| R-Comment2DocDraft-0.2 | R::Comment2DocDraft | show |
| RCGI-1.20 | RCGI | show |
| sub Async_Invoke {
my($my_job_type) = shift;
my($remote) = new_job RCGI($my_job_type);
if (defined($remote)) {
$remote->Async(1);
$remote->Call(@_);
}
return $remote;
} |
| RDF-Core-0.51 | RDF::Core::Schema | show |
| sub getPropertiesOf {
my ($self, $class, $deep) = @_;
my $c = $self->_getResource($class);
my $classes = $deep ? $self->getAncestors($c, 1) : [];
push @$classes, $c;
my %ret;
my $idx;
my $p = $self->factory->newRe... |
| RDF-EARL-0.001 | RDF::EARL | show |
| sub _debug {
my $self = shift;
my $model = $self->model;
my $s = RDF::Trine::Serializer->new('turtle', namespaces => $self->{map});
$s->serialize_model_to_file(\*STDERR, $model);
} |
| RDF-Helper-2.0 | RDF::Helper::RDFQuery | show |
| sub __node_value |
| RDF-Trine-1.004 | RDF::Trine::Serializer | show |
| sub string {
my $self = shift;
return $$self;
} |
| RRDTool-Creator-1.0 | RRDTool::Creator | show |
| sub create
{
my($this,%h) = @_ ;
%h = map { /^-/ ? lc(substr($_,1)) : $_ ; } %h ;
if (exists $h{"file"}) { $h{"filename"} = $h{"file"} ; delete $h{"file"} ; }
$this->{"filename"} = $h{"filename"} if exists $h{"filename"} ;
$this->{"OO... |
| RRDTool-Creator-1.0 | RRDTool::Creator::HourPDP | show |
| sub new
{
my($type,%h) = @_ ;
my ($step) ;
my $this = _new RRDTool::Creator(["s","mn"],%h) ;
$this->{"rows"} = int(3600/$this->{"step"}) ;
$this->{"allowed_RRA_duration"} = {
"day" => 24
, "week" => 2... |
| RRDTool-Creator-1.0 | RRDTool::Creator::WeekPDP | show |
| sub new
{
my($type,%h) = @_ ;
my ($step) ;
my $this = _new RRDTool::Creator(["s","mn","h","d"],%h) ;
$this->{"rows"} = int(3600*24*7/$this->{"step"}) ;
$this->{"allowed_RRA_duration"} = {
"month" => 4
, "... |
| RRDTool-Creator-1.0 | RRDTool::Creator::MonthPDP | show |
| sub new
{
my($type,%h) = @_ ;
my ($step) ;
my $this = _new RRDTool::Creator(["s","mn","h","d","w"],%h) ;
$this->{"rows"} = int(3600*24*30/$this->{"step"}) ;
$this->{"allowed_RRA_duration"} = {
"quarter" => 3
... |
| RRDTool-Creator-1.0 | RRDTool::Creator::DayPDP | show |
| sub new
{
my($type,%h) = @_ ;
my ($step) ;
my $this = _new RRDTool::Creator(["s","mn","h"],%h) ;
$this->{"rows"} = int(3600*24/$this->{"step"}) ;
$this->{"allowed_RRA_duration"} = {
"week" => 7
, "month" ... |
| RRDTool-Creator-1.0 | RRDTool::Creator::YearPDP | show |
| sub new
{
my($type,%h) = @_ ;
my ($step) ;
my $this = _new RRDTool::Creator(["s","mn","h","d","w","m"],%h) ;
$this->{"rows"} = int(3600*24*365/$this->{"step"}) ;
$this->{"allowed_RRA_duration"} = {} ;
bless $this,$type ;
ret... |
| RRDTool-Creator-1.0 | RRDTool::Creator::QuarterPDP | show |
| sub new
{
my($type,%h) = @_ ;
my ($step) ;
my $this = _new RRDTool::Creator(["s","mn","h","d","w","m"],%h) ;
$this->{"rows"} = int(3600*24*90/$this->{"step"}) ;
$this->{"allowed_RRA_duration"} = {
"year" => 4
... |
| RSS-Parser-Lite-0.10 | XML::RSS::Parser::Lite::Item | show |
| RT-Extension-ReassignOwner-0.01 | RT::Extension::ReassignOwner | show |
| sub bla {
my $self = shift;`
}
=head1 DIAGNOSTICS
=for author to fill in:
List every single error and warning message that the module can
generate (even the ones that will "never happen"), with a full
explanation of each problem, one ... |
| RayApp-2.004 | RayApp | show |
| sub find_stylesheet {
my ($self, $uri, $type) = @_;
return if not defined $type;
my @exts = ('.xsl', '.xslt', '.html.xsl', '.html.xslt');
if ($type eq 'txt') {
@exts = ('.txtxsl', '.txtxslt', '.txt.xsl', '.txt.xslt');
} elsif ($type eq 'pdf' or $ty... |
| RayApp-2.004 | RayApp::Source | show |
| sub xmldom {
my $self = shift;
return $self->{xmldom};
} |
| RayApp-2.004 | RayApp::DSD | show |
| sub validate_parameters {
my $self = shift;
$self->{errstr} = '';
my %params;
if (defined $_[0] and ref $_[0]) {
if (eval { $_[0]->can("param") } and not $@) {
for my $name ($_[0]->param) {
$params{$name} = [ $_[0]->param($name) ... |
| Rcs-Agent-1.05 | Rcs::Agent | show |
| sub usinghpux {
my $self = shift;
$self->{hpux} = shift;
} |
| Regexp-Parser-0.21 | Perl6::Rule::Parser | show |
| sub init {
my ($self) = @_;
$self->add_handler('atom' => sub {
my ($S) = @_;
$S->nextchar;
${&Rx} =~ m{ \G (.) }xgcs or return;
my $c = $1;
push @{ $S->{next} }, qw< atom >;
return $S->$c if $S->can($... |
| Regexp-Subst-Parallel-0.11 | Regexp::Subst::Parallel | show |
| sub subst
{
my $str = shift;
my $pos = 0;
my @subs;
while (@_) {
push @subs, [ shift, shift ];
}
my $res;
while ($pos < length $str) {
my (@bplus, @bminus, $best);
for my $rref (@subs) {
... |
| ResourcePool-Resource-Redis-1 | ResourcePool::Factory::Redis | show |
| sub create_resource {
my ($self) = @_;
return ResourcePool::Resource::Redis->new(%{$self->{'args'}});
} |
| ResourcePool-Resource-Redis-1 | ResourcePool::Resource::Redis | show |
| sub DESTROY {
my ($self) = @_;
$self->close();
} |
| ResourcePool-Resource-SOAP-Lite-1.0103 | ResourcePool::Command::SOAP::Lite::Call | show |
| sub execute($$$@) {
my ($self, $soaph, $method, @args) = @_;
$soaph->uri($self->{namespace});
my $som = $soaph->call($method => @args);
my $fc = $som->faultcode();
if ($fc) {
my $ex;
if ($fc =~ /^[^:]*:Client/i) {
$ex = Resourc... |
| Rex-0.40.4 | Rex::TaskList | show |
| sub create {
my ($class) = @_;
if(ref($task_list) =~ m/^Rex::TaskList::/) {
Rex::Logger::debug("Returning existing distribution class of type: " . ref($task_list));
return $task_list;
}
my $type = Rex::Config->get_distributor;... |
| Rinchi-XMLSchema-0.02 | Rinchi::XMLSchema::HFP | show |
| sub value() {
my $self = shift;
if (@_) {
$self->{'_value'} = shift;
}
return $self->{'_value'};
} |
| Rose-ObjectX-CAF-0.03 | Rose::ObjectX::CAF::MethodMaker | show |
| sub scalar {
my ( $class, $name, $args ) = @_;
my %methods;
my $key = $args->{'hash_key'} || $name;
my $interface = $args->{'interface'} || 'get_set';
if ( $interface eq 'get_set_init' ) {
my $init_method = $arg... |
| RunApp-Simple-0.04 | RunApp::Simple | show |
| sub run {
my $config = shift;
my %mode = %{$self->default_profile->{$self->mode}};
for(qw(apxs config_block hostname port required_modules)) {
$mode{$_} = $self->$_
if ($self->$_);
}
my $ra = RunApp::Apache->n... |
| SAS-Parser-0.93 | SAS::Index | show |
| sub parse_ccomment {
my($self, $stmt) = @_;
unless ($step eq '') {
$self->eof(1);
print "Done, at $self->{file} ($lineno)\n";
return;
}
$stmt = SAS::Header::unbox($stmt);
my @lines = split(/\n/, $stmt);
foreach (@lines) {
if (/(... |
| SDL-Tutorial-3DWorld-0.33 | SDL::Tutorial::3DWorld::Light | show |
| sub display {
my $self = shift;
OpenGL::glEnable( $self->{id} );
OpenGL::glLightfv_p(
$self->{id},
OpenGL::GL_POSITION,
@{$self->{position}},
);
OpenGL::glLightfv_p(
$self->{id},
OpenGL::GL_AMBIENT,
@{$self->{ambient}},
)... |
| SDL-Tutorial-3DWorld-0.33 | SDL::Tutorial::3DWorld::Actor | show |
| sub move {
my $self = shift;
my $step = shift;
$self->{position}->[0] += $self->{velocity}->[0] * $step;
$self->{position}->[1] += $self->{velocity}->[1] * $step;
$self->{position}->[2] += $self->{velocity}->[2] *... |
| SDL-Tutorial-3DWorld-0.33 | SDL::Tutorial::3DWorld::Skybox | show |
| sub compile {
my $self = shift;
glDisable( GL_LIGHTING );
glEnable( GL_TEXTURE_2D );
glColor4f( 1, 1, 1, 1 );
$self->{north}->display;
glBegin( GL_QUADS );
glTexCoord2f( 0, 0 ); glVertex3f( -1.002, 1.002, -1 );
glTexCoord2f( 0, 1 ); ... |
| SIL-Shoe-1.37 | SIL::Shoe::Convert::XML | show |
| sub out_dtd
{
my ($self, $mult, $mark, @list) = @_;
return unless ($self->{'dtdfh'});
push(@list, $self->{'opts'}{'a'}) if ($mult);
if (@list)
{
$self->{'dtdfh'}->print("<!ELEMENT $mark (" . join("|", @list). ")... |
| SMS-Handler-0.01 | SMS::Handler::Utils | show |
| sub Split_msg
{
my $maxlen = shift;
my $text = shift;
my @msg = ();
my $join = '...';
my $sjoin = length($join);
my $size = $maxlen - $sjoin;
push @msg, $_ while $_ = substr($$text, 0, $size - 4, '');
my $change;
... |
| SMS-Ringtone-RTTTL-MIDI-0.04 | SMS::Ringtone::RTTTL::MIDI | show |
| sub rtttl_to_midi {
my $parser = shift;
my $patch = shift;
unless(defined($patch)) {
$patch = 1;
}
my $ms = MIDI::Simple->new_score();
if (length($parser->get_part_name())) {
$ms->track_name($parser->get_part_name());
}
$ms->... |
| SMS-Ringtone-RTTTL-Parser-0.07 | SMS::Ringtone::RTTTL::Parser | show |
| sub puke {
my $self = shift;
print 'Name part: ' . $self->get_part_name() . "\n";
print 'Defaults part: ' . $self->get_part_defaults() . "\n";
print 'Notes part: ' . $self->get_part_notes() . "\n";
my $defs = $self->{'-DEFAULTS'};
print ... |
| SOAP-WSDL-2.00.10 | SOAP::WSDL::Serializer::XSD | show |
| sub serialize_body {
my ($self, $method, $data, $opt) = @_;
$data->__set_name("$opt->{prefix}:" . $data->__get_name() ) if $opt->{prefix};
return join ( q{},
"<$opt->{ namespace }->{ $SOAP_NS }\:Body>",
... |
| SQL-Entity-0.05 | SQL::Entity::Table | show |
| sub order_by_clause {
my ($self) = @_;
my $index = $self->index or return "";
" ORDER BY " . $index->order_by_operand($self);
} |
| SQL-Shell-1.14 | SQL::Shell | show |
| sub DUMP{} |
| SQL-Statement-1.402 | SQL::Dialects::Role | show |
| sub get_config_as_hash
{
my $class = $_[0];
my @data = split( m/\n/, $class->get_config() );
my %config;
my $feature;
for (@data)
{
chomp;
s/^\s+//;
s/\s+$//;
next unless ($_);
if (/^\[(... |
| SQL-Translator-0.11016 | SQL::Translator::Producer::Oracle | show |
| sub quote {
my ($name, $q) = @_;
$q && $name ? "$quote_char$name$quote_char" : $name;
} |
| STD-20101111 | CursorBase | show |
| sub check_old_cclass { my $self = shift;
my $innards = shift;
my $prev = substr($::ORIG,$self->{_pos}-length($innards)-4,2);
return $self if $prev =~ /=\s*$/;
my $cclass = '';
my $single = '';
my $singleok = 1;
my $... |
| SVG-GD-0.20 | SVG::GD | show |
| sub setBrush ($$) {
my $self = shift;
my $brush = shift;
return "Sorry..Ignoring this command. Unable to setBrush with this version
of SVG::GD";
} |
| SVGraph-0.02 | SVGraph::2D::lines | show |
| sub prepare
{
my $self=shift;
$self->{SVG}=SVG->new(width=>$self->{ENV}{x},height=>$self->{ENV}{y});
$self->{SVG}->script()->CDATA("setTimeout('reload()', ".($self->{ENV}{reload}*1000).");") if $self->{ENV}{reload};
... |
| SVGraph-0.02 | SVGraph::2D::ring | show |
| sub prepare
{
my $self=shift;
$self->{SVG}=SVG->new(width=>$self->{ENV}{x},height=>$self->{ENV}{y});
$self->prepare_block();
$self->prepare_title();
$self->prepare_columns();
$self->prepare_legend();
$self->... |
| SVGraph-0.02 | SVGraph::2D::columns | show |
| sub prepare
{
my $self=shift;
$self->{SVG}=SVG->new(width=>$self->{ENV}{x},height=>$self->{ENV}{y});
$self->{SVG}->script()->CDATA("setTimeout('reload()', ".($self->{ENV}{reload}*1000).");") if $self->{ENV}{reload};
... |
| SVK-Simple-0.03 | SVK::Simple | show |
| sub _load_svk {
my $self = shift;
$ENV{HOME} ||= catdir(@ENV{qw( HOMEDRIVE HOMEPATH )});
my $svkpath = $ENV{SVKROOT} || catfile($ENV{HOME}, ".svk");
my $xd = SVK::XD->new ( giantlock => "$svkpath/lock",
st... |
| SVK-v2.2.3 | SVK::Command::Move | show |
| sub run {
my $self = shift;
my $src = $_[0];
my $ret = $self->SUPER::run(@_);
if ($self->{post_process_mirror}) {
my $mstring = $src->root->node_prop('/', 'svm:mirror');
for (@{$self->{post_process_mirror}}) {
my ($fr... |
| SVN-Dump-0.05 | SVN::Dump::Reader | show |
| sub _eof { return "Unexpected EOF line $.", } |
| SWISH-Filter-0.18 | SWISH::Filters::XLtoHTML | show |
| sub get_xls_content_ref {
my ( $self, $file, $doc ) = @_;
my $oExcel = Spreadsheet::ParseExcel->new;
return unless $oExcel;
my $oBook = $oExcel->Parse($file) || return;
my ( $iR, $iC, $oWkS, $oWkC, $ExcelWorkBook );
my ( $... |
| Schedule-At-1.15 | Schedule::At | show |
| sub AtCfg_darwin {
$AT{'add'} = 'at %TIME% 2> /dev/null';
$AT{'addFile'} = 'at -f %FILE% %TIME% 2> /dev/null';
$AT{'timeFormat'} = '%HOUR%:%MINS% %MONTH%/%DAY%/%YEAR%';
$AT{'remove'} = 'atrm %JOBID%';
$AT{'getJobs'} = 'atq';
$AT{'headings'} = ... |
| Schedule-RateLimiter-0.01 | Schedule::RateLimiter | show |
| sub event {
my $self = shift;
my %args = @_;
my $t = Time::HiRes::time();
my $last = $self->{list}[$self->{current}] || 0;
my $block = exists( $args{block} ) ? $args{block} : $self->{block};
if ( ($t - $last) < $self... |
| Schema-RDBMS-AUS-0.04 | CGI::Session::AUS | show |
| sub time_last {
my $self = shift;
return $self->{_session_meta}->{time_last};
} |
| Schema-RDBMS-AUS-0.04 | CGI::Session::Driver::aus | show |
| sub DESTROY {
my $self = shift;
$self->{Handle}->disconnect() if($self->{_disconnect});
} |
| Schema-RDBMS-AUS-0.04 | Schema::RDBMS::AUS::User | show |
| sub _save_flags {
my $self = shift;
return $self->dbh->transaction(sub {
my($q, @p) = $self->_sql_DELETE_flags;
$self->dbh->do($q, {}, @{$self}{@p}) or die
"do($q): ", $self->dbh->errstr;
... |
| Schema-RDBMS-AUS-0.04 | Schema::RDBMS::AUS::Crypt::MD5 | show |
| sub crypt {
return md5_hex($_[1]);
} |
| Schema-RDBMS-AUS-0.04 | Schema::RDBMS::AUS::Crypt::None | show |
| sub crypt {
return $_[1];
} |
| Schema-RDBMS-AUS-0.04 | Schema::RDBMS::AUS::Crypt::SHA1 | show |
| sub crypt {
return sha1_hex($_[1]);
} |
| SchemaView-Plus-0.16 | Logo::svplus | show |
| sub ppm {
my $obj = shift;
return $obj->{data};
} |
| SchemaView-Plus-0.16 | DBIx::SystemCatalog::Oracle | show |
| sub indexes {
my $obj = shift;
my $table = shift;
return () unless $table;
my $d = $obj->{dbi}->selectall_arrayref(q!SELECT all_indexes.index_name,all_ind_columns.column_name FROM all_indexes,all_ind_columns WHERE all_indexes.owner = ? AND all... |
| SchemaView-Plus-0.16 | DBIx::SystemCatalog::Pg | show |
| sub relationships {
my $obj = shift;
my $d = $obj->{dbi}->selectall_arrayref(q!SELECT st.relname,dt.relname,COALESCE(NULLIF(tgconstrname,'<unnamed>'),tgname),tgargs FROM pg_trigger,pg_class st,pg_class dt WHERE tgfoid = 1644 AND st.oid = tg... |
| Scrapar-0.0.1 | Scrapar::Util | show |
| sub disk_usage {
my $path = shift;
my $df = `df -l -h /tmp/`;
if ($df =~ m[(\d+)%]) {
return $1;
}
} |
| Search-Circa-1.18 | Search::Circa::Parser | show |
| sub check_links
{
my($self,$tag,$links) = @_;
my $host = $self->{INDEXER}->host_indexed;
my $li = "doc|zip|ps|gif|jpg|gz|pdf|eps|png|deb|xls|ppt|".
"class|GIF|css|js|wav|mid";
my $bad = qr/\.($li)$/i;
if (($tag) && ($link... |
| Search-Circa-1.18 | Search::Circa::Categorie | show |
| sub get_link
{
my ($self,$script_name,$no_categorie,$id,$first) = @_;
if (defined($first))
{return $script_name."?categorie=$no_categorie&id=$id&first=$first";}
else {return $script_name."?categorie=$no_categorie&id=$id";}
} |
| Search-Circa-1.18 | Search::Circa::Annuaire | show |
| sub get_link_categorie
{
my ($self,$no_categorie,$id,$first) = @_;
if (!defined($first)) { $first = 0; }
if (defined($no_categorie))
{return $self->{SCRIPT_NAME}."?categorie=$no_categorie&id=$id&first=$first";}
else {return $self->{SC... |
| Search-Circa-1.18 | Search::Circa::Indexer | show |
| sub get_liste_langues
{
my ($self,$id,$valeur,$cgi)=@_;
my @l;
my $sth = $self->{DBH}->prepare("select distinct langue ".
"from ".$self->pre_tbl.$id."links");
$sth->execute() || print "Erreur: $DBI::errstr\n";
while (my ($l)=... |
| Search-Circa-1.18 | Search::Circa::Url | show |
| sub non_valide {
my ($this,$compte,$id_url)=@_;
my $r=$this->{DBH}->do("update ".$this->{INDEXER}->pre_tbl.$compte."links".
" set valide='0' where id=".$id_url)
|| return 0;
return ((!$r or $r eq '0E0') ? 0 : 1);
} |
| SeeAlso-Server-0.71 | SeeAlso::Client | show |
| sub seealso_request {
my ($baseurl, $identifier) = @_;
my $response = eval { SeeAlso::Client->new($baseurl)->query($identifier); };
return $response;
} |
| Set-NestedGroups-0.01 | Set::NestedGroups::MemberList | show |
| sub rows {
my $self=shift;
return $self->{'COUNT'};
} |
| Shell-Base-0.05 | Shell::Base | show |
| sub _merge_hash {
my ($merge_to, $merge_from) = @_;
$merge_to->{$_} = $merge_from->{$_}
for keys %$merge_from;
} |
| Simulation-Automate-1.0.1 | Simulation::Automate | show |
| sub localinstall {
my $full=shift||1;
my $synsimroot=shift||'';
my $HOME=$ENV{HOME};
if(not $synsimroot) {
print "Local SinSym directory? [$HOME/SynSim]:";
$synsimroot=<STDIN>;
chomp $synsimroot;
if(not $synsimroot) {$synsimroot="$HOME/SynSim"}
}
... |
| Smil-0.898 | SMIL::Seq | show |
| sub init {
my $self = shift;
my %hash = @_;
$self->SUPER::init( "seq" );
my %attrs = $self->createValidAttributes( { %hash },
[@timelineAttributes] );
$self->setAttributes( %attrs );
} |
| Smil-0.898 | SMIL::Region | show |
| sub getAttributeValue
{
my $self = shift;
my $attr = shift;
return $self->{ _attributes }->{ $attr };
} |
| Smil-0.898 | SMIL::Switch | show |
| sub init {
my $self = shift;
$self->SUPER::init( "switch" );
my $switch_param = shift;
my $medias = shift;
foreach $item ( @$medias ) {
my $type = ref( $item );
if( ref( $item ) =~ /HASH/ ) {
$self->setTagContents( $... |
| Smil-0.898 | SMIL::Layout | show |
| sub addRegion {
my $self = shift;
my %hash = @_;
$hash{ $id } = $hash{ $name } if $hash{ $name };
if( $hash{ $module_defined_src } ) {
my $ref = $hash{ $module_defined_src };
my $content;
my $type;
if( $ref =~ /^http/ ) {
... |
| Smil-0.898 | SMIL::XMLContainer | show |
| sub getAsString {
my $self = shift;
my $return_string;
my $tab = $self->getTabBuffer();
$return_string .=
"$tab<" . $self->getTag() . $self->_build_attributes() . ">\n";
$self->increaseTabBuffer();
... |
| Smil-0.898 | SMIL::Meta | show |
| sub init {
my $self = shift;
$self->SUPER::init( "meta" );
my $name = shift;
my $content = shift;
$self->setAttributes( 'name' => $name,
'content' => $content );
} |
| Smil-0.898 | SMIL::Head | show |
| sub setSwitchedLayout {
my $self = shift;
my %hash = @_;
my $switch_attribute = $hash{ $switch };
my $thelayout = $hash{ $layouts };
my $switch_obj = new SMIL::Switch( $switch_attribute, $thelayout );
$self->setTagCont... |
| Smil-0.898 | SMIL::Par | show |
| sub init {
my $self = shift;
my %hash = @_;
$self->SUPER::init( "par" );
my %attrs = $self->createValidAttributes( { %hash },
[@timelineAttributes,
@systemSwitchAttributes] );
$self->setAttributes( %att... |
| Smil-0.898 | SMIL::Body | show |
| sub addSwitchedMedia {
my $self = shift;
my %hash = @_;
my $switch_attribute = $hash{ $switch };
my $media = $hash{ $medias };
$self->initTimeline( new SMIL::Par )
unless( $self->{$timelineStack} && @{$self->{$... |
| Smil-0.898 | SMIL::RootLayout | show |
| sub getRootWidth {
my $self = shift;
return $self->getAttribute( "width" );
} |
| Smil-0.898 | SMIL::Code | show |
| sub new {
my $type = shift;
my $self = {};
bless $self, $type;
$self->{code} = shift;
return $self;
} |
| Smil-0.898 | SMIL::Href | show |
| sub init {
my $self = shift;
my %hash = @_;
$self->SUPER::init( "a" );
my %attrs = $self->createValidAttributes( { %hash },
[@validHrefAttrs
] );
$self->setAttributes( %attrs );
my $ref = new SMIL::Unancho... |
| Smil-0.898 | SMIL::Media | show |
| sub getAsString {
my $self = shift;
my $returnString = "";
my $notInline = 0;
print "Getting as string\n";
if( !$self->{_inline} ) {
$notInline = 1;
}
if( $self->{_inline} ) {
eval 'use MIME::Base64';
my... |
| Smolder-1.51 | Smolder::TAPHTMLMatrix | show |
| sub generate_html {
my $self = shift;
my $dir = catdir($self->report->data_dir, 'html');
unless (-d $dir) {
mkpath($dir) or croak "Could not create directory '$dir'! $!";
}
my $file = catfile($dir, 'report.html');
m... |
| Socket-Class-2.258 | Socket::Class | show |
| sub include_path {
return substr( __FILE__, 0, -16 ) . '/auto/Socket/Class';
} |
| Socket-Class-2.258 | Socket::Class::Const | show |
| sub compile {
my $pkg_export = caller( $ExportLevel );
&export( $pkg_export, @_ );
} |
| Socket-Class-2.258 | Socket::Class::SSL | show |
| sub include_path {
return substr( __FILE__, 0, -20 ) . '/auto/Socket/Class/SSL';
} |
| Sort-Merge-0.01 | Sort::Merge | show |
| sub sort_coderefs {
my $inputs=shift;
my $output=shift;
my @sources;
@sources = map {[$_]} @$inputs;
return sort_inner(\@sources, $output);
} |
| SpamMonkey-0.03 | SpamMonkey | show |
| sub do_code_rule {
my ($self, $rule,$text_r) = @_;
my ($pack, $args) = $rule->{code} =~ /(\S+)\((.*)\)$/ or die("Urgh? $rule->{code}");
my @args = ($args =~ m/['"](.*?)['"]\s*(?:,\s*|$)/g);
$pack = "SpamMonkey::Test::".$pack;
$pa... |
| SpamMonkey-0.03 | SpamMonkey::Config | show |
| sub def_whitelist_from_rcvd {
my ($class, $conf, $value) = @_;
my ($addr, $ip) = $class->_split_params($conf, $value, 2);
push @{$conf->{def_whitelist_from_rcvd}}, [ $addr, $ip ];
} |
| Spoon-0.24 | Spoon | show |
| sub load_hub {
$self->destroy_hub;
my $hub = $self->hub(@_);
$hub->main($self);
$self->init;
return $hub;
} |
| Spoon-0.24 | Spoon::ContentObject | show |
| sub store_metadata {
my $metadata = $self->{metadata}
or die "No metadata for content object";
$metadata->store;
return $self;
} |
| Spoon-0.24 | Spoon::Trace | show |
| sub DESTROY {
print $self->report
if $self->auto_print;
warn $self->report
if $self->auto_warn;
} |
| Spoon-0.24 | Spoon::Command | show |
| sub msg {
warn @_ unless $self->quiet;
} |
| Spoon-0.24 | Spoon::Plugin | show |
| sub register {
$self->hub->registry->add(action => $self->class_id, 'process')
if $self->can('process');
return $self;
} |
| Spoon-0.24 | Spoon::CGI | show |
| sub _newlines_filter {
if (length $_[0]) {
$_[0] =~ s/\015\012/\n/g;
$_[0] =~ s/\015/\n/g;
$_[0] .= "\n"
unless $_[0] =~ /\n\z/;
}
} |
| Spoon-0.24 | Spoon::Formatter | show |
| sub wafl_error {
join '',
'<span class="wafl_error">{',
$self->method,
': ',
$self->arguments,
'}</span>';
} |
| Spoon-0.24 | Spoon::MetadataObject | show |
| sub update {
return $self;
} |
| Spoon-0.24 | Spoon::Cookie | show |
| sub fetch {
require Storable;
my $prefix = $self->prefix;
my $jar = {
map {
(my $key = $_) =~ s/^\Q$prefix\E//;
my $object = eval { Storable::thaw(CGI::cookie($_)) };
$@ ? () : ($key => $objec... |
| Spoon-0.24 | Spoon::IndexList | show |
| sub index_list {
my $list = io(shift);
my $index = io($list . '.db')->dbm('DB_File')->rdonly;
unless ($index->exists) {
$index->assert->open;
$index->close;
}
unless ($list->exists) {
my $mt... |
| Spoon-0.24 | Spoon::DataObject | show |
| sub name {
$self->{name} = shift if @_;
return $self->{name} if defined $self->name;
$self->{name} = $self->uri_unescape($self->id);
} |
| Spoon-0.24 | Spoon::Hub | show |
| sub DESTROY {
$self->remove_hooks;
} |
| Spoon-0.24 | Spoon::Installer | show |
| sub compress_lib {
die "Must be run from the module source code directory\n"
unless -d 'lib' and -f 'Makefile.PL';
unshift @INC,'lib';
my $source_dir = shift
or die "No source directory specified\n";
die "Invalid source directo... |
| Spoon-0.24 | Spoon::Headers | show |
| Spoon-0.24 | Spoon::Base | show |
| sub prompt {
print shift;
io('-')->chomp->getline;
} |
| Spoon-0.24 | Spoon::Template | show |
| sub process {
my $template = shift;
my @templates = (ref $template eq 'ARRAY')
? @$template
: $template;
return join '', map {
$self->render($_, $self->all, @_)
} @templates;
} |
| Spoon-0.24 | Spoon::Hooks | show |
| sub cancel {
$self->code(undef);
return ();
} |
| Spoon-0.24 | Spoon::Utils | show |
| sub remove_tree {
my $directory = shift;
require File::Path;
umask 0000;
File::Path::rmtree($directory);
} |
| Spoon-0.24 | Spoon::Config | show |
| sub default_plugin_classes { () } |
| Spoon-0.24 | Spoon::Template::TT2 | show |
| sub render {
my $template = shift;
my $output;
my $t = $self->template_object;
eval {
$t->process($template, {@_}, \$output) or die $t->error;
};
die "Template Toolkit error:\n$@" if $@;
return $output;
} |
| Spork-0.21 | Spork::Command | show |
| sub assert_registry {
use Kwiki::Plugin;
{
no warnings;
*Kwiki::Plugin::init = sub {};
}
$self->hub->registry->load;
} |
| Spork-0.21 | Spork::Formatter | show |
| sub to_html {
$self->hub->slides->image_url($self->arguments);
return '';
} |
| Spork-0.21 | Spork::Slides | show |
| sub lwp_download {
my ($image_url, $image_file) = @_;
system "lwp-download $image_url > /dev/null";
} |
| Spork-0.21 | Spork::Config | show |
| sub default_classes {
(
config_class => 'Spork::Config',
registry_class => 'Spork::Registry',
hub_class => 'Spork::Hub',
formatter_class => 'Spork::Formatter',
template_class => 'Spork::Template::... |
| Spork-0.21 | Spork::Formatter::Autringy | show |
| sub match {
my $bullet = $self->bullet;
$self->which($1)
if $self->text =~ /^($bullet)(.*)\n/m;
return unless
$self->text =~ /^$bullet(.*)\n/m;
$self->set_match;
return 1;
} |
| Spork-0.21 | Spork::Template::TT2 | show |
| sub path {
$self->hub->config->template_path ||
[ $self->hub->config->template_directory ];
} |
| Spork-S5-0.05 | Spork::S5 | show |
| sub make_s5_slides {
$self->hub->template->add_path(
$self->config->slides_directory.'/template/s5'
);
my @allcontent;
my @slides = $self->hub->slides->split_slides($self->config->slides_file);
for... |
| Stat-lsMode-0.50 | Stat::lsMode | show |
| sub _novice_warning {
my $mode = shift;
if ($badmode{$mode}) {
carp "mode $mode is very surprising. Perhaps you meant 0$mode";
}
} |
| Statistics-Distributions-Analyze-0.01 | Statistics::Distributions::Analyze | show |
| sub float_precision(){
my $number = shift;
my $str = '%.' . SIGNIFICANT . 'f';
my $num = sprintf($str, $number);
return $num;
} |
| Statistics-Multtest-0.13 | Statistics::Multtest | show |
| sub _approximately_compare {
my $left = shift;
my $sign = shift;
my $right = shift;
if($sign eq ">" or $sign eq ">=") {
if($left > $right) {
return 1;
}
elsif(abs($left - $right) < EPS) {
... |
| Statistics-RserveClient-0.02 | Statistics::RserveClient::RNative | show |
| sub offsetGet($) {
my $offset = shift;
return isset( $this::data[$offset] ) ? $this::data[$offset] : null;
} |
| Statistics-Sequences-0.051 | Statistics::Sequences::Vnomes | show |
| sub _assess {
my ($v, $nstates, $stats, $delta, $orig) = @_;
my ($psisq, $df, $p_value) = ();
if ($v == 1) {
$psisq = $stats->{1}->{'psisq'};
$df = $nstates - 1;
}
else {
if ($delta == 2) {
... |
| Statistics-Sequences-0.051 | Statistics::Sequences::Runs | show |
| sub dump {
my $self = shift;
my $args = ref $_[0] ? $_[0] : {@_};
$args->{'testname'} = 'Runs';
if ($args->{'text'} and $args->{'text'} > 1) {
$args->{'title'} = "Runs test results:";
$self->SUPER::_dump_v... |
| Statistics-Sequences-0.051 | Statistics::Sequences::Turns | show |
| sub dump {
my $self = shift;
my $args = ref $_[0] ? $_[0] : {@_};
$args->{'testname'} = 'Turns';
if ($args->{'text'} and $args->{'text'} > 1) {
$args->{'title'} = "Turns test results:";
$self->SUPER::_dump... |
| Storm-0.200 | Storm::Flood | show |
| sub fill {
my ( $self, $class, $plan ) = @_;
} |
| Strava-GPX-0.01 | Strava::GPX | show |
| sub to_gpx {
my $self = shift;
my $gpx = Geo::Gpx->new;
my @points;
foreach my $latlng ( @{$self->{latlng}} ) {
push @points, { lat => $latlng->[0], lon => $latlng->[1] };
}
my $tracks = [ { name => $s... |
| String-CamelCase-0.02 | String::CamelCase | show |
| sub decamelize
{
my $s = shift;
$s =~ s{([^a-zA-Z]?)([A-Z]*)([A-Z])([a-z]?)}{
my $fc = pos($s)==0;
my ($p0,$p1,$p2,$p3) = ($1,lc$2,lc$3,$4);
my $t = $p0 || $fc ? $p0 : '_';
$t .= $p3 ? $p1 ? "${p1}_$p2$p3" : "$p2$p3" : "$p1$p2";
$t;
}ge;
$s;... |
| String-Compare-0.4 | String::Compare | show |
| sub chars_only {
my $str1 = shift;
my $str2 = shift;
$str1 =~ s/\W//g;
$str2 =~ s/\W//g;
return char_by_char($str1,$str2);
} |
| String-Gsub-0.04 | String::Gsub | show |
| sub stringy
{
my $this = shift;
$this->{s};
} |
| String-Gsub-0.04 | String::Gsub::Functions | show |
| sub subsx($$$)
{
my $re = $_[1];
my $sub = $_[2];
ref($re) or $re = qr/\Q$re\E/;
ref($sub) or $sub = do{ my$tmpl=$sub; sub{ shift->expand($tmpl); }; };
$_[0] =~ s{$re}
{
my $match = String::Gsub::Matcher->new($_[0]);
$sub->($match)... |
| String-Gsub-0.04 | String::Gsub::Matcher | show |
| sub stringy
{
my $this = shift;
substr(${$this->{origref}},$this->{st}[0], $this->{ed}[0]-$this->{st}[0]);
} |
| String-Lookup-0.12 | String::Lookup::AsyncDBI | show |
| sub parameters_ok { state $ok= [qw( dir ) ]; @{$ok} } |
| String-Lookup-0.12 | String::Lookup::FlatFile | show |
| sub parameters_ok { state $ok= [ qw( dir ) ]; @{$ok} } |
| String-Lookup-0.12 | String::Lookup::DBI | show |
| sub parameters_ok { state $ok= [ qw( dbh id name ) ]; @{$ok} } |
| String-Lookup-0.12 | String::Lookup::PurePerl | show |
| sub init {
my ( $self, $hash )= @_;
$self->[THEHASH]= $hash;
my @list;
$list[ $hash->{$_} ]= $_ foreach keys %{$hash};
$self->[THELIST]= \@list;
$self->[OFFSET]=
$#list +
$#list % $self->[INCR... |
| String-Replace-0.02 | String::Replace::Safe | show |
| sub unreplace {
croak 'Missing argument to '.__PACKAGE__.'::unreplace' unless @_;
if (blessed($_[0]) && $_[0]->isa(__PACKAGE__)) {
return &__replace_method;
} else {
return &__unreplace_fun;
}
} |
| String-Rexx-0.08 | String::Rexx | show |
| sub d2b {
validate_pos @_ , { regex => NONNEGATIVE };
local $_ = unpack 'B32'x8, pack 'N', shift ;
s/^0*//g ;
'0' x (8-(length)%8) . $_;
} |
| String-String-0.01 | UNIVERSAL::to_s | show |
| sub UNIVERSAL::to_s
{
wantarray ? map{ defined($_) ? "$_" : '' } @_ : join('', &UNIVERSAL::to_s);
} |
| String-String-0.01 | String::String | show |
| sub string
{
wantarray ? map{ defined($_) ? "$_" : '' } @_ : join('', &string);
} |
| String-StringLib-1.02 | String::StringLib | show |
| sub StripSpace ( $ ) { String::Strip::StripSpace($_[0]); } |
| String-Tokeniser-0.05 | String::Tokeniser | show |
| sub _except {
my $self = shift;
my $style = $self->{STYLE};
my %decide;
my $listref=$self->{LIST};
my @res;
while($_ = shift) {
my($left, $right) = split /$style/;
push @{$decide{$left}}, $right;
}
@_ = @$listref;
whil... |
| Su-0.110 | Su::Log | show |
| sub _make_log_string {
my ( $s, $mi, $h, $d, $m, $y ) = ( localtime(time) )[ 0 .. 6 ];
my $date_prefix = sprintf "%04d/%02d/%02d %02d:%02d:%02d", $y + 1900, $m + 1,
$d,
$h, $mi, $s;
return '[' . $date_prefix . ']' . join( '', @_, "\n" );
} |
| Sub-Current-0.02 | Sub::Current | show |
| sub import {
*{caller() . '::ROUTINE'} = *ROUTINE;
} |
| Sub-ScopeFinalizer-0.02 | Sub::ScopeFinalizer | show |
| sub DESTROY
{
my $this = shift;
$this->raise();
} |
| Sub-Slice-1.048 | Sub::Slice | show |
| sub at_stage ($$&) {
my $self = shift;
my ($this_stage, $code) = @_;
croak("undefined stage") unless defined $this_stage;
return unless $self->{'initialised'};
if (my $stage = $self->stage()) {
return unless defined $this_stage && $this_sta... |
| Sunpower-Cryocooler-0.1.5 | Sunpower::Cryocooler | show |
| sub gcl{
my $gcl_in;
print $serial -> write("E\r");
my $chars=0;
my $buffer="";
my ($count,$saw)=$serial->read(255);
if ($count > 0) {
$chars+=$count;
$buffer.=$saw;
$gcl_in = $buffer;
}
$gcl_in =~ s/^\w//g;
return $gcl_in;
} |
| Swarmage-0.01005 | Swarmage::Worker::Process | show |
| sub new
{
} |
| Sybase-Xfer-0.63 | Sybase::ObjectInfo | show |
| sub grab {
my $class = shift;
my ($dbh, $db_name, $pt) = @_;
my %info;
croak "param #1 must be a blessed Sybase::DBlib reference" if ref($dbh) ne "Sybase::DBlib";
$pt = [ $pt ] unless( ref $pt);
... |
| Sybase-Xfer-0.63 | Sybase::Xfer | show |
| sub sx_run_shell_cmd {
return system( +shift );
} |
| Syndication-NITF-0.02 | Syndication::NITF | show |
| sub getdatatype {
my ($self) = @_;
my @possiblevalues = qw( text number graphic other );
my $attr = $self->{node}->getAttributeNode("data-type");
$self->{"data-type"} = $attr ? $attr->getValue : "";
if ($self->{"data-type"} && grep !/$... |
| Syndication-NewsML-0.10 | Syndication::NewsML | show |
| sub _init {
my ($self, $node) = @_;
$self->{_multiElements}{RevisionStatus} = ZEROORMORE;
} |
| Syndication-NewsML-0.10 | Syndication::NewsML::CommentNode | show |
| Sys-RunUntil-0.04 | Sys::RunUntil | show |
| sub import {
my ( undef, $runtime )= @_;
die "Must specify a time until which the script should run\n"
if !defined $runtime;
my $cpu= ( $runtime =~ s#[cC]## );
$cpu= undef if $runtime =~ s#[wW]##;
die "Unrecognizable runtime s... |
| Sys-Uptime-0.01 | Sys::Uptime | show |
| sub users {
my $output = `uptime`;
if (!$output) { die return ("Cannot read uptime output: $!") }
$output =~ /[0-9]+\s+user/;
my ($users, undef) = split /\s+/, $&;
return ($users);
} |
| SyslogScan-0.32 | SyslogScan::In_identdLine | show |
| sub parseContent
{
my ($self) = shift;
die "no tag found in in_identd line $$self{content}" unless
defined $$self{tag};
} |
| SyslogScan-0.32 | SyslogScan::UnsupportedEntry | show |
| sub parseContent
{
my ($self) = shift;
} |
| SyslogScan-0.32 | SyslogScan::SendmailLineClone | show |
| sub parseContent
{
my($self) = shift;
my $attrHashRef = $$self{"attrHash"};
if (! defined $$attrHashRef{owner})
{
die("No owner field in clone line %$attrHashRef");
}
return;
} |
| SyslogScan-0.32 | SyslogScan::SendmailLineTrans | show |
| sub _listToHash
{
my ($self, @list) = @_;
my (%hash);
foreach (@list)
{
s/\'/\"/g;
die "equals not found in $_" unless /([^=]+)=(.+)/;
$hash{$1} = $2;
}
%hash;
} |
| SyslogScan-0.32 | SyslogScan::Summary | show |
| sub addSummary
{
my $self = shift;
my $other = shift;
my $address;
foreach $address (keys %$other)
{
if (! $$self{$address})
{
$$self{$address} = new SyslogScan::Usage();
}
$$self{$address} -> addUsage($$other{$address});
... |
| SyslogScan-0.32 | SyslogScan::SendmailLineFrom | show |
| sub parseContent
{
my ($self) = @_;
my $attrHashRef = $$self{"attrHash"};
if ($$attrHashRef{"size"} !~ /^\-?\d+$/)
{
die("No legal size field in %$attrHashRef");
}
$$attrHashRef{"size"} = 0 if $$attrHashRef{"size"} < 0;
... |
| SyslogScan-0.32 | SyslogScan::ByGroup | show |
| sub dump
{
my $self = shift;
my $retString;
my $group;
foreach $group (sort keys %$self)
{
$retString .= "$group TOTAL:\n";
$retString .= $$self{$group} -> dump();
$retString .= "\n";
}
return $retString;
} |
| SyslogScan-0.32 | SyslogScan::SendmailLineTo | show |
| sub parseContent
{
my ($self) = @_;
my $attrHashRef = $$self{attrHash};
if (! defined($$attrHashRef{"stat"}))
{
print STDERR "No status field in attrHash for id $$self{messageID}\n"
unless $::gbQuiet;
}
my(@toList) = split(... |
| System-Index-0.1 | System::Index | show |
| sub mem_index {
my $timelen=($_[0])?$_[0]:2;
my $debug=($_[1])?$_[1]:0;
my (@vals,$len);
my $a=new Benchmark;
$len=0;
while($len<$timelen) {
my $_tmp = timeit(1000, q{
my @array = [ 777 x 777 ];
my $hash = { a=> $array[0... |
| TAP-Parser-SourceHandler-pgTAP-3.29 | TAP::Parser::SourceHandler::pgTAP | show |
| sub make_iterator {
my ( $class, $source ) = @_;
my $config = $source->config_for('pgTAP');
my @command = ( $config->{psql} || 'psql' );
push @command, qw(
--no-psqlrc
--no-align
--quiet
--pset pager=
-... |
| TAPORlib-8.70 | TAPORlib | show |
| sub GetRelativeUrls {
my($url) = @_;
$url =~ m|^(http://)([^/\?\r\n]*)|i;
my $host = $2;
my $baseurl = "http://$host";
my $relurl;
if($url =~ m|^(http://)(.*)[/]+|i) {$relurl = "http://$2";}
else {$relurl = $baseurl;}
my $relurl2;
if... |
| TM-1.56 | TM::CTM::CParser | show |
| sub new { my $self = bless( {
'_AUTOTREE' => undef,
'localvars' => '',
'startcode' => '',
'_check' => {
'thisoffset' => '',
... |
| TM-1.56 | TM::LTM::CParser | show |
| sub new { my $self = bless( {
'_AUTOTREE' => undef,
'localvars' => '',
'startcode' => '',
'_check' => {
'thisoffset' => '',
... |
| TPath-0.009 | TPath::Grammar | show |
| sub parse {
my ($expr) = @_;
if ( $expr =~ $path_grammar ) {
my $ref = \%/;
normalize_compounds($ref);
complement_to_boolean($ref);
if ( contains_condition($ref) ) {
normalize_parens($ref);
operator_precedence($ref);
merge_conditions($r... |
| TVDB-API-0.33 | TVDB::API | show |
| sub getRatingsForUser {
my ($self, $user, $name, $nocache) = @_;
my $data;
if ($name) {
my $sid = $self->getSeriesId($name, $nocache?$nocache-1:0);
&verbose(1, "TVDB::API: Get rating for $user for $name ($sid)\n");
$data = $self->_download... |
| Tak-0.001003 | Tak::Role::ObjectMangling | show |
| sub decode_objects {
my ($self, $data) = @_;
$self->decoder_json->decode(encode_json($data));
} |
| Tangram-2.10 | Tangram::Expr::Coll::FromOne | show |
| sub includes_or
{
my ($self, @items) = @_;
my ($coll, $memdef) = @$self;
my $coll_tid = $coll->root_table;
my $item_class = $memdef->{class};
my $item_tid;
my $storage = $coll->{storage};
my $schema = $storage->{schema};
my (@targets_... |
| Tangram-2.10 | Tangram::Schema::Class | show |
| sub get_export_cols {
my ($self, $context) = @_;
my $table = $self->{table};
map { map { [ $table, $_ ] } $_->get_export_cols($context) } $self->get_direct_fields()
} |
| Tao-DBI-0.0008 | Tao::DBI::st_deep | show |
| sub execute {
my $self = shift;
my $bind_values = shift;
if (ref $bind_values) {
my $raw = {};
$raw = tr_hash($bind_values, $self->{META}) if $bind_values;
return $self->SUPER::execute($raw, @_);
} else {
return $self->SU... |
| Tapper-Reports-Web-4.1.2 | Tapper::Reports::Web::Controller::Root | show |
| sub end : ActionClass('RenderView') {} |
| Tcl-pTk-0.85 | Tcl::pTk::Table | show |
| sub Posn
{
my ($t,$s) = @_;
my $widgets = $t->{widgets};
my %reverseWidgets = reverse %$widgets;
my $index = $reverseWidgets{$s};
return () unless defined $index;
return split(",", $index);
} |
| Teamspeak-0.6 | Teamspeak::SQL::Channel | show |
| sub parameter {
my $self = shift;
return map { $_ =~ m/.+_channel_(.*)/; $1 } @_parameter;
} |
| Template-Like-0.11 | Template::Like | show |
| sub _option { $_[0]->{'OPTION'}; } |
| Template-Magic-1.4 | Template::Magic | show |
| sub FillInForm
{ eval
{ local $SIG{__DIE__}
; require HTML::FillInForm
}
; if ( $@ )
{ carp qq("HTML::FillInForm" is not installed on this system\n)
; sub {}
}
else
{ sub
{ my ($z) = @_
... |
| Template-Plugin-ASCIITable-0.2 | Template::Plugin::ASCIITable | show |
| sub _die {
die (Template::Exception->new('ASCIITable',$_[0]))
} |
| Template-Plugin-Pagination-0.90 | Template::Plugin::Pagination | show |
| Term-ExtendedColor-TTY-0.028 | Term::ExtendedColor::TTY::Colorschemes | show |
| sub get_colorscheme {
my $colorscheme = shift;
if(exists($colorschemes->{$colorscheme})) {
return $colorschemes->{$colorscheme};
}
else {
croak("'$colorscheme' is not a valid colorscheme\n");
}
} |
| Term-Pager-1.02 | Term::Pager | show |
| Term-ReadLine-Zoid-0.07 | Term::ReadLine::Zoid::ViCommand | show |
| sub vi_R {
my $self = shift;
return $self->vi_r(@_) if $_[0] eq 'r';
$self->switch_mode();
$$self{replace} = 1;
} |
| TermReadKey-2.30 | Configure | show |
| sub DeducePrototype {
my (@types, $checkreturn, $checknilargs, $checkniletcargs, $checkreturnnil);
if($firstdeduce) {
$firstdeduce=0;
my $checknumber=!Compile("extern int func(int a,int b);
extern int func(int a,int b,int... |
| Test-AutomationFramework-0.058.50 | Test::AutomationFramework | show |
| sub prHtml2 {
my $html =<<EOF;
&appendtoFile_( $SvrDrive.'/'.$SvrProjName.'/'.$reportHtml, $html );
&appendtoFile_( $SvrDrive.'/'.$SvrProjName.'/'.$reportHtml_http, $html );
} |
| Test-Base-0.60 | Test::Base::Filter | show |
| sub _write_to {
my $filename = shift;
open my $script, ">$filename"
or die "Couldn't open $filename: $!\n";
print $script @_;
close $script
or die "Couldn't close $filename: $!\n";
} |
| Test-CPANpm-0.010 | Test::CPANpm | show |
| sub cpan_depends_ok_force_missing {
my($deps, $missing, $test_name) = @_;
my @actual;
my @deps = sort @$deps;
my($out, $in) = change_std();
run_with_cpan_config {
my $dist_dir = dist_dir('.');
my %missing = map { $_ =&... |
| Test-CPANpm-0.010 | Test::CPANpm::Fake | show |
| sub get_prereqs {
my $dist_dir = shift or die 'dist_dir is required!';
my @followed;
my($out, $in) = change_std();
{
local *CPAN::Distribution::follow_prereqs;
local *CPAN::Distribution::unsat_prereq;
my $test_c... |
| Test-Chunks-0.39 | Test::Chunks | show |
| sub get_url {
$self->assert_scalar(@_);
my $url = shift;
CORE::chomp($url);
require LWP::Simple;
LWP::Simple::get($url);
} |
| Test-Device-SerialPort-0.05 | Test::Device::SerialPort | show |
| sub set_test_mode_active {
return unless (@_ == 2);
$testactive = $_[1];
my @fields = ();
foreach my $item (keys %validate) {
push @fields, "$item";
}
return @fields;
} |
| Test-Filesystem-0.04 | Test::Filesystem | show |
| sub files
{
my $self = shift;
$self->{ files };
} |
| Test-Less-0.11 | Test::Less | show |
| sub assert_path {
my $file = shift;
return if -e $file;
return unless $file =~ /(.+)[\\\/]/;
my $dir = $1 or return;
return if -d $dir;
mkdir $dir;
} |
| Test-MonitorSites-0.15 | Test::MonitorSites | show |
| sub _test_site {
my($self,$agent,$url,$expected_content) = @_;
$agent->get("$url");
is ($agent->success,1,"Successfully linked to $url.");
like($agent->content,qr/$expected_content/," . . . and found expected content at $url");
return $... |
| Test-Reporter-Transport-Net-SMTP-Authen-1.02 | Test::Reporter::Transport::Net::SMTP::Authen | show |
| sub trace{
my $mess = shift;
my ($package, $file, $line, $func) = caller 1;
my ($package1, $file1, $line1, $func1) = caller 0;
} |
| Test-Run-Plugin-AlternateInterpreters-0.0122 | Test::Run::CmdLine::Plugin::AlternateInterpreters | show |
| sub private_non_direct_backend_env_mapping
{
my $self = shift;
return
[
{
type => "yamldata",
env => "HARNESS_ALT_INTRP_FILE",
arg => "alternate_interpreters",
},
];
} |
| Test-Run-Plugin-ColorFileVerdicts-0.0122 | Test::Run::CmdLine::Plugin::ColorFileVerdicts | show |
| sub _get_file_verdicts_color_mappings
{
my $self = shift;
if (exists($ENV{PERL_HARNESS_VERDICT_COLORS}))
{
my $mapping_string = $ENV{PERL_HARNESS_VERDICT_COLORS};
my @assignments = split(/\s*;\s*/, $mapping_string);
r... |
| Test-Run-Plugin-TrimDisplayedFilenames-0.0123 | Test::Run::CmdLine::Plugin::TrimDisplayedFilenames | show |
| sub private_non_direct_backend_env_mapping
{
my $self = shift;
return
[
{
type => "direct",
env => "HARNESS_TRIM_FNS",
arg => "trim_displayed_filenames_query",
},
];
} |
| Test-STF-MockServer-0.01 | Test::STF::MockServer | show |
| sub url_for {
my $self = shift;
my $url = $self->url;
$url->path("@_");
return $url;
} |
| Test-Smoke-1.53 | Test::Smoke::Mailer | show |
| sub mail {
my $self = shift;
eval { require MIME::Lite; };
$self->{error} = $@ and return undef;
my $subject = $self->fetch_report();
my $cc = $self->_get_cc( $subject );
my %message = (
To => $self->... |
| Test-Smoke-1.53 | Test::Smoke::Patcher | show |
| sub call_patch {
my( $self, $ref_to_content, $switches, $descr ) = @_;
local *PATCHBIN;
my $opts = $self->_make_opts( $switches );
my $redir = $self->{v} ? "" : ">" . File::Spec->devnull . " 2>&1";
my $cwd = cwd();
... |
| Test-Smoke-1.53 | Test::Smoke::Syncer | show |
| sub sync {
my $self = shift;
my %args = map { ( $_ => $self->{ $_ } ) } keys %$self;
$args{ddir} = $self->{mdir};
$self->{v} and print "Prepare to sync ($self->{fsync}|$args{ddir})\n";
my $syncer = Test::Smoke::Syncer-&... |
| Test-Smoke-Database-1.9 | Test::Smoke::Database | show |
| sub add_to_db {
my ($self, $ref)=@_;
return if (!ref($ref) || ref($ref) ne 'HASH' || !$ref->{os});
my ($nbco, $nbcf, $nbcm, $nbcc)=(0,0,0,0);
my ($cc,$ccf,$f,$r) = ($ref->{cc}||' ',$ref->{ccver} || ' ',
$ref->{failure},$ref->{re... |
| Test-Smoke-Database-1.9 | Test::Smoke::Database::Graph | show |
| sub graph_cpan {
my ($name, $title, %perl)=@_;
foreach my $r (keys %perl) {
if ($perl{$r} <2) {
$perl{"others"}+=$perl{$r};
delete $perl{$r};
}
}
my @l = sort { $perl{$a} <=> $perl{$b} } keys %perl;
my @l2;
foreach... |
| Test-Smoke-Database-1.9 | Test::Smoke::Database::Parsing | show |
| sub parse_rpt {
my $file = shift;
my ($nbr,$fail,$col,$content)=(0);
return if (!$file);
if (!-r $file) { warn "Can't found $file"; return; }
open(FILE,$file) or die "Can't read $file:$!\n";
my %h = ( file => $file );
my @content = <FI... |
| Test-Tester-0.108 | Test::Tester::CaptureRunner | show |
| sub capture
{
return Test::Tester::Capture->new;
} |
| Test-Valgrind-1.13 | Test::Valgrind::Tool::memcheck | show |
| sub dump {
my ($self) = @_;
my $data = $self->data;
my $desc = '';
for ([ '', 2, 4 ], [ 'aux', 4, 6 ], [ 'orig', 4, 6 ]) {
my ($prefix, $wind, $sind) = @$_;
my ($what, $stack) = @{$data}{"${prefix}what", "${prefix}stack"};
next unless def... |
| Test-use-ok-0.11 | ok | show |
| sub import {
shift;
if (@_) {
goto &Test::More::pass if $_[0] eq 'ok';
goto &Test::More::use_ok;
}
my (undef, $file, $line) = caller();
($file =~ /^\(eval/) or die "Not enough arguments for 'use ok' at $file line $lin... |
| TestGen4Web-Runner-0.11 | TestGen4Web::Runner | show |
| sub _log_warn
{
my ($self, $msg) = @_;
unless ($self->{quiet})
{
print STDERR "WARNING: $msg\n";
}
} |
| TestML-0.28 | TestML::Grammar | show |
| sub make_tree {
{
'+toprule' => 'testml_document',
'assertion_call' => {
'.any' => [
{
'-wrap' => 1,
'.ref' => 'assertion_eq'
},
{
'-wrap' => 1,
'.ref' =>... |
| TestML-0.28 | TestML::Runtime::TAP | show |
| sub assert_OK {
my $self = shift;
my $context = shift;
$self->test_builder->ok(
$context->bool->value,
$self->get_label,
);
} |
| TestML-0.28 | TestML::Library::Standard | show |
| sub Sort {
my $context = shift;
my $value = $context->list->value;
return list([ sort { $a->value cmp $b->value } @$value ]);
} |
| Text-Authinfo-0.03 | Text::Authinfo | show |
| sub writeauthinfo {
my $self = shift;
my $ops = shift || undef;
if (defined($ops) && (ref($ops) ne 'HASH')) {
carp "args are passed to writeauthinfo via a hash ref";
}
if (-w $self->{FILE}) {
if (defined($ops->{... |
| Text-CSV-Simple-1.00 | Text::CSV::Simple::__::Base | show |
| sub read_file {
my ($self, $file) = @_;
$self->_file($file);
my @lines = $self->_contents;
my @return;
my $csv = $self->_parser;
foreach my $line (@lines) {
eval { $self->call_trigger(before_parse => $line) };
next if $@;
next u... |
| Text-DHCPLeases-1.0 | Text::DHCPLeases | show |
| sub _get_decl {
my ($self, $file) = @_;
open(FILE, "<$file") or croak "Can't open file $file: $!\n";
my @list;
my $lines = [];
my $header;
my $open = 0;
my $decl;
while ( <FILE> ){
my $line = $_;
next if ( $line ... |
| Text-Delimited-v2.06 | Text::Delimited | show |
| sub read {
my $self = shift @_;
my $out = {};
my $data = $self->_line;
return undef unless scalar @$data > 0;
my $i = 0;
for my $val ( @$data ) {
$val =~ s/^\s+|\s+$//g;
$out->{$self->{HDR}->[$i++]} = $val;
}
$o... |
| Text-EtText-2.2 | Text::EtText::Lists | show |
| sub stack {
my ($package, $filename, $line) = caller (1);
return "$filename:$line";
} |
| Text-German-0.06 | Text::German::Util | show |
| sub wordclass {
my ($word, $satz_anfang) = @_;
if ($satz_anfang) {
return $ANY;
} elsif ($word =~ /^[A-Z���]/) {
$CAPITAL;
} else {
$LOWER;
}
} |
| Text-Merge-0.36 | Text::Merge | show |
| sub html_convert { return htmlconv(@_); } |
| Text-Merge-0.36 | Text::Merge::Lists | show |
| sub handle_table_templates {
my ($self, $path, $list, $parent, $cache, $width) = @_;
my $text = '';
my $item = '';
my $header = list_style_template($path, $cache, 'header');
my $footer = list_style_template($path, $cache, 'footer');
my $filler = lis... |
| Text-OutdentEdge-0.01 | Text::OutdentEdge | show |
| sub outdent($;$)
{
my $text = shift;
my $opts = shift;
my $re;
if( (ref($opts)||'') eq 'Regexp' )
{
$re = $opts;
$opts = {};
}
$re ||= $opts->{indent};
if( !$re )
{
my ($len) = sort{ $a<=>$b } map{length($_)} $text =~ /^([ \t]*(?=\... |
| Text-PDF-0.29a | Text::PDF::Dict | show |
| sub copy
{
my ($self, $inpdf, $res, $unique, $outpdf, %opts) = @_;
my ($k, $path);
$res = $self->SUPER::copy($inpdf, $res, $unique, $outpdf, %opts);
$path = delete $opts{'path'};
foreach $k (keys %$self)
{
next if $self... |
| Text-PDF-0.29a | Text::PDF::Page | show |
| sub ship_out
{
my ($self, $pdf) = @_;
$pdf->ship_out($self);
if (defined $self->{'Contents'})
{ $pdf->ship_out($self->{'Contents'}->elementsof); }
$self;
} |
| Text-PDF-0.29a | Text::PDF::String | show |
| sub copy
{
my ($self, $inpdf, $res, $unique, $outpdf, %opts) = @_;
my ($i);
$res = $self->SUPER::copy($inpdf, $res, $unique, $outpdf, %opts);
$res->{'val'} = $self->{'val'};
$res->{' realised'} = 1;
$res;
} |
| Text-PDF-0.29a | Text::PDF::Number | show |
| sub as_pdf
{ $_[0]->{'val'}; } |
| Text-PDF-0.29a | Text::PDF::Name | show |
| sub name_to_string ($;$)
{
my ($str, $pdf) = @_;
$str =~ s|^/||o;
if (!defined($pdf) || (defined $pdf->{' version'} && $pdf->{' version'} >= 2))
{ $str =~ s/#([0-9a-f]{2})/chr(hex($1))/oige; }
return $str;
} |
| Text-Patch-1.8 | Text::Patch | show |
| sub TRACE {} |
| Text-Report-1.004 | Text::Report | show |
| sub AUTOLOAD
{
my $self = shift;
my %profile;
my $type = shift;
if($type){$profile{$type} = 1;}
my %this = @_;
return if $AUTOLOAD =~ /::DESTROY$/;
my $meth = $AUTOLOAD; $meth =~ s/.*://;
unless($meth =~ /^... |
| Text-Starfish-1.17 | Text::Starfish | show |
| sub _croak {
my $m = shift;
require Carp;
Carp::croak($m);
} |
| Text-T9-1.0 | Text::T9 | show |
| sub t9_find_words($$)
{
my $num = shift;
my $words = shift;
return () unless $num =~ /^[2-9]+$/;
my $len = length( $num );
my $re;
for( 0 .. $len - 1 )
{
$re .= "[" . $T9NL[substr( $num, $_, 1 )] . "]";
}
$re = "^$re\$";
... |
| Text-TEI-Markup-1.7 | Text::TEI::Markup | show |
| sub _wrap_children {
my $node = shift;
my @children = $node->childNodes;
my $new_node = XML::LibXML::Element->new( $node->nodeName );
my $docns = $node->namespaceURI;
$new_node->setNamespace( $docns );
my $open_word_node = undef;
fo... |
| Text-TinySegmenter-0.01 | Text::TinySegmenter | show |
| sub segment {
my ($class, $input) = @_;
if (!defined $input || $input eq '') {
return wantarray ? () : [];
}
my @result;
my @seg = ("B3","B2","B1");
my @ctype = ("O","O","O");
my @o = split //, $input;
for my $c (@o... |
| Text-Tradition-1.1 | Text::Tradition::Parser::TEI | show |
| sub throw {
Text::Tradition::Error->throw(
'ident' => 'Parser::TEI error',
'message' => $_[0],
);
} |
| Text-Tradition-Analysis-1.1-podfix | Text::Tradition::Analysis | show |
| sub throw {
Text::Tradition::Error->throw(
'ident' => 'Analysis error',
'message' => $_[0],
);
} |
| Text-Variations-0.02 | Text::Variations | show |
| sub _interpolate_string {
my $self = shift;
my $string = shift;
my $args = shift;
$string =~ s/ {{ (\w+) }} / $args->{$1} /xge;
return $string;
} |
| Text-WrapProp-0.03 | Text::WrapProp | show |
| sub wrap_prop {
my ($text, $width, $ref_width_table) = @_;
my @width_table = @$ref_width_table;
return '' if $text eq '';
$text =~ s/\s+/ /gs;
my $cursor = 0;
my $c;
my $out;
my $nextline = '';
my $i=0;
... |
| Thread-Conveyor-Monitored-0.14 | Thread::Conveyor::Monitored | show |
| sub CLONE { $cloned++ } |
| Thread-Exit-0.09 | Thread::Exit | show |
| sub CLONE {
$CLONE++;
$begin = $end = undef unless $inherit;
} |
| Thread-Pool-0.33 | Thread::Pool | show |
| sub CLONE { $cloned++ } |
| Thread-Queue-Any-1.13 | Thread::Queue::Any | show |
| sub _set_serializer {
my ($class)= @_;
my @errors;
eval "require $class; 1" or push @errors, $@;
my $freeze= $class->can( 'freeze' )
or push @errors, "$class does not provide a 'freeze' method";
my $thaw= $class->can( 't... |
| Thread-Queue-Any-Monitored-1.03 | Thread::Queue::Any::Monitored | show |
| sub _monitor {
my $queue= $SELF= shift;
threads->self->detach
if !shift;
my $monitor= shift;
my $exit= shift;
my $post= shift || sub {};
my $pre= shift;
$pre->(@_)
if $pre;
state $THAW= $queue->... |
| Thread-Queue-Monitored-1.04 | Thread::Queue::Monitored | show |
| sub _monitor {
my $queue= $SELF= shift;
threads->self->detach if !shift;
my $monitor= shift;
my $exit= shift;
my $post= shift || sub {};
my $pre= shift;
$pre->( @_ ) if $pre;
my @value;
while (1) {
... |
| Thread-Rand-0.07 | Thread::Rand | show |
| sub srand { $RAND= shift } |
| Thread-Rand-0.07 | Thread::Rand::Thread | show |
| sub STORE { srand( $_[1] ) } |
| Thread-Running-0.07 | Thread::Running | show |
| sub threads::exited {
shift unless ref $_[0];
return &exited;
} |
| Thread-Serialize-1.01 | Thread::Serialize | show |
| sub import {
shift;
my $namespace= caller().'::';
@_= qw( freeze thaw ) if !@_;
no strict 'refs';
*{$namespace.$_}= \&$_ foreach @_;
return;
} |
| Thread-Synchronized-0.03 | Thread::Synchronized | show |
| sub import {
my $package = caller();
my $fix = sub {
my ($sub,$prototype,$attributes) = @_;
my $code = '';
if ($attributes =~ s#\bsynchronized\b##) {
if ($attributes =~ m#\bmethod\b#) {
$co... |
| Thread-Tie-0.13 | Thread::Tie | show |
| sub UNTIE {
my $self = shift;
return if $self->{'CLONE'} != $CLONE;
$self->_handle( 'UNTIE',$self->{'ordinal'} );
} |
| Thread-Tie-0.13 | Thread::Tie::Thread | show |
| sub CLONE { $CLONE++ } |
| Tie-Array-CSV-0.07 | Tie::Array::CSV | show |
| sub _update {
my $self = shift;
$self->{csv}->combine(@{ $self->{fields} })
or croak "CSV combine error: " . $self->{csv}->error_diag();
$self->{file}[$self->{line_num}] = $self->{csv}->string;
} |
| Tie-Array-CSV-0.07 | Tie::Array::CSV::HoldRow | show |
| sub DESTROY {
my $self = shift;
$self->_deferred_update if $self->{need_update} == 1;
} |
| Tie-Cfg-0.32 | Tie::Cfg | show |
| sub __write_self {
my $cfg = shift;
my $fh = shift;
my $depth = shift;
my $sep = shift;
my $cmnt = shift;
my $section = shift;
my $key;
my $value;
if ($section) {
print $fh "[$section]\n";
}
while (... |
| Tie-Filter-1.02 | Tie::Filter | show |
| sub _filter {
my $code = shift;
if (defined $code) {
local $_ = shift;
&$code;
return $_;
} else {
return shift;
}
} |
| Tie-Proxy-Changes-0.2 | TieDump | show |
| sub SCALAR {
my $self=shift;
$self->_restore();
scalar %{$_[0]}
} |
| Tie-Scalar-MarginOfError-0.03 | Tie::Scalar::MarginOfError | show |
| sub FETCH {
my $self = shift;
return $$self->{value};
} |
| Tie-Toggle-1.08 | Tie::Toggle | show |
| sub TIESCALAR
{
my $class = shift;
my $self = [ 0, 2, [ 0 == 1, 1 == 1] ];
bless $self, $class;
} |
| Tie-Tools-1.06 | Tie::DBI::ER | show |
| sub AUTOLOAD {
my $method = (split(/::/, $AUTOLOAD))[-1];
my $package = substr($AUTOLOAD, 0, -(length($method) + 2));
my $code = <<EOM;
$@ = undef;
eval $code;
die $@ if ($@);
goto &$AUTOLOAD;
} |
| Time-Interval-1.232 | Time::Interval | show |
| sub coalesce {
require Date::Parse;
my $intervals = shift() || [];
my %epoch_map = ();
my ($flag, $repeat) = (0,1);
foreach my $int (@{$intervals}) {
foreach (@{$int}){
my $epoch = "";
if ($_ =~/^(\d{10})$/){
$epoch = $1;
}else{
... |
| TimeConvert0.5 | Time::Convert | show |
| sub ConvertSecs {
my $Time = shift;
my $sec = shift;
return "$sec seconds" if($sec < 60);
my $min = $sec / 60, $sec %= 60;
$min = int($min);
return "$min minutes and $sec seconds." if($min < 60);
my $hrs = $min / 60, $min %= 60;
$hrs = i... |
| Tivoli_0.01 | Tivoli::Logging | show |
| sub LogsClose
{
foreach (@G_FHs)
{
&LogInfo($_, "$_ closing");
if(close($_) == 0) {&LogFail($_, "Can't close $_ : $!");}
}
} |
| Tk-CodeText-0.3.4 | Tk::CodeText | show |
| sub visualend {
my $cw = shift;
my $end = $cw->linenumber('end - 1 chars');
my ($first, $last) = $cw->Tk::Text::yview;
my $vend = int($last * $end) + 2;
if ($vend > $end) {
$vend = $end;
}
return $vend;
} |
| Tk-DoCommand-0.1 | Tk::DoCommand | show |
| sub _read_stdout {
my ($self) = @_;
if ($self->{-finish}) {
$self->kill_command;
}
else {
my $h = $self->{-handle};
croak "Tk::DoCommand ($self) handle is undefined\n" if !defined $h;
my $stat;
... |
| Tk-FmtEntry-0.1 | Tk::FmtEntry | show |
| sub _fe_mapins {
my ($old, $i, $new) = @_;
my $m = 0;
my @map = ();
for my $o (0 .. length($old) - 1) {
$map[$o] = undef;
for my $n ($m .. length($new) - 1) {
if (substr($old, $o, 1) eq substr($new, $n, 1)) {... |
| Tk-FullKeypad-1.0 | Tk::FullKeypad | show |
| sub _shift {
my $this = shift;
$this->{_shift} = !$this->{_shift};
my $kpshift = $this->Subwidget("KPShift");
$kpshift->configure(-text => $this->{_shift} ? "SHIFT" : "Shift");
} |
| Tk-GBARR-2.08 | Tk::IFrame | show |
| sub addCard {
my $f = shift;
my $name = shift;
my %arg = @_;
my $row = delete $arg{-row} || 0;
my $tf = $f->Frame(
-borderwidth => 2,
-relief => 'raised'
);
my $l = $f->Label(
-text => $arg{'-label'},
-bo... |
| Tk-GraphViz-1.01 | Tk::GraphViz | show |
| sub max {
if ( defined($_[0]) ) {
if ( defined($_[1]) ) { return ($_[0] > $_[1])? $_[0] : $_[1]; }
else { return $_[0]; }
} else {
if ( defined($_[1]) ) { return $_[1]; }
else { return undef; }
}
} |
| Tk-HTML-3.003 | Tk::HTML::Handler | show |
| sub traverse
{
my ($h,$elem,$start,$depth) = @_;
my $e = ($start) ? '' : '/';
if (ref $elem)
{
my $tag = $elem->tag;
my $posn = $h->{widget}->index('insert');
if ($start)
{
$elem->{'_Start_'} = $posn;
}
else
{... |
| Tk-JComboBox-1.14 | Tk::CWidget::Util::Boolean | show |
| sub IsFalse
{
my $value = shift;
return 1
if (! defined($value) || $value =~ /^\s*(0|f(alse|)|n(o|)|off)\s*$/i);
return 0;
} |
| Tk-NumKeypad-1.4 | Tk::NumKeypad | show |
| sub _padpress {
my ($this, $n) = @_;
my $e = $this->cget('-entry');
return if !$e;
my $defval = {'C' => 'CLEAR'};
my $keyval = $this->cget('-keyval');
my $v = defined $keyval->{$n}? $keyval->{$n} : $defval->{$n} ... |
| Tk-ObjEditor-2.007 | Tk::ObjEditorDialog | show |
| sub Show
{
my $cw=shift;
my $hit = $cw->SUPER::Show(@_);
if ($hit eq 'OK')
{
return $cw->Subwidget("objeditor")->get_data();
}
else
{
return $cw->Subwidget("objeditor")->get_orig_dat... |
| Tk-Preferences-0.2 | Tk::Preferences | show |
| sub ApplyWidget {
my ($widget, $p) = @_;
my ($class,$type) = split (/::/,ref($widget));
foreach (keys %{$p->{'-prefs'}}){ if ($widget->{$_}){ $type = $_; last; } }
if ((exists($p->{"-$type"})) && (ref($p->{"-$type"}) eq "CODE")... |
| Tk-TM-0.53 | Tk::TM::wgBlank | show |
| sub Focus {
my ($self) =(shift);
my $do =$self->{-do};
return if !$do;
if (ref($do) && defined($do->{-dsrfd})) {
my $wg =$self->{-widgets}->[$do->{-dsrfd}];
return $wg->focusForce() if ref($wg)
}
else {
foreac... |
| Tk-TM-0.53 | Tk::TM::wgActionBar | show |
| sub Populate {
my ($self, $args) = (shift,shift);
$args->{-mdmnu}='';
$self->SUPER::Populate($args,@_)
} |
| Tk-TM-0.53 | Tk::TM::Common | show |
| sub DBILogin {
my $scr =(ref($_[0]) ? shift : undef);
my ($dsn, $usr, $psw, $opt, $dbopt) =@_;
$opt =$opt ||'';
$dbopt=$dbopt || {};
my $dbh;
eval('use DBI');
my $dlg =$scr ? (ref($scr) eq 'ARRAY' ? $scr->[0] : $scr)
... |
| Tk-TM-0.53 | Tk::TM::wgMenu | show |
| Tk-TM-0.53 | Tk::TM::wgTable | show |
| sub sbSet {
if (!$_[0]->{-wgscroll}) {}
elsif (!$_[0]->{-do}) {$_[0]->{-wgscroll}->set(0,1)}
else {
my $t =$_[0]->{-do}->{-dsrid} -$_[0]->{-do}->{-dsrsd};
my $b =$t +$_[0]->{-rowcount} -1;
my $c =$_[0]->{-do}-&... |
| Tk-TM-0.53 | Tk::TM::wDialogBox | show |
| sub Show {
my $self =shift;
my $wgf;
my @btn;
my $besc;
foreach my $area ($self->children) {
if ($area->name =~/top/i) {
my @wgs =$area->children;
$wgf =$wgs[0]
}
elsif ($area->name =~/bottom/i) {
... |
| Tk-TM-0.53 | Tk::TM::DataObject | show |
| sub DBIHlp {
my $self =shift;
print "DBIHlp($self; ",join(';',map {defined($_) ? $_ : 'null'} @_),")\n" if $Tk::TM::Common::Debug;
$self->wgCursorWait;
my $cmd =(ref($_[0]) ? '' : shift);
my $do =new Tk::TM::DataObject(-mdedt... |
| Tk-TM-0.53 | Tk::TM::wApp | show |
| sub DBILogin {
print "DBILogin(",join(', ',map {defined($_) ? $_ : 'null'} @_),")\n" if $Tk::TM::Common::Debug;
my ($self, $cmd) =@_;
return(1) if $cmd !~/start/;
Tk::TM::Common::DBILogin([$self->{-wgscr}, $self->{-wgmnu}->set(-wgind)]
... |
| Tk-TM-0.53 | Tk::TM::Try | show |
| sub TryHdr {
$TrySubject =$_[0] if defined($_[0]);
$TryStage =$_[1] if defined($_[1]);
$Tk::TM::Common::Echo && print($TrySubject.($TryStage ne '' ? ": $TryStage" : $TryStage)."...");
''
} |
| Tk-TM-0.53 | Tk::TM::Lang | show |
| sub txtMsg {
return($_[0]) if !$Lang;
my %msg =(
'About application' => '� ����������'
,'Cancel' => '��������'
,'Choose' => '�������'
,'Close' => '�������'
,'Closing' => '��������'
,'Condition' => '�������'
,'Data was modified'... |
| Tk-TM-0.53 | Tk::TM::DataObjSet | show |
| sub Stop {shift->doAll(sub{shift->Stop(@_)},@_)} |
| Tk-ToolBar-0.10 | Tk::ToolBar | show |
| sub _clone {
my ($self, $top, $in) = @_;
my $new = $top->ToolBar(qw/-side top -cursorcontrol/, $self->{USECC}, ($in ? (-in => $in, -movable => 0) : ()));
my $e = $self->_edge;
my @allSlaves = grep {$_ ne $e} $self->{CONTAINER... |
| Tk-WaitBox-1.3 | Tk::WaitBox | show |
| sub unShow {
my($wd) = @_;
return unless $wd->{Shown};
$wd->{CanFrame}->destroy if defined($wd->{CanFrame});
$wd->{CanFrame} = undef;
$wd->parent->configure(-cursor => 'top_left_arrow');
$wd->grab('rele... |
| Tk-Win32RotLabel-0.4 | Tk::Win32RotLabel | show |
| sub _updateMe {
my $w = shift;
return unless $w->toplevel->ismapped;
my $depth = $w->screendepth;
my @vis = $w->visualsavailable;
my $bg = $w->cget('-bg');
my $fg = $w->cget('-fg') || 'black';
my @bgRGB = $w->rg... |
| Tree-XPathEngine-0.05 | Tree::XPathEngine | show |
| sub _debug {
my ($pkg, $file, $line, $sub) = caller(1);
$sub =~ s/^$pkg\:://;
while (@_) {
my $x = shift;
$x =~ s/\bPKG\b/$pkg/g;
$x =~ s/\bLINE\b/$line/g;
$x =~ s/\bg\b/$sub/g;
print STDE... |
| Treex-Core-0.08663 | Parse::RecDescent::_Runtime | show |
| sub new { my $self = bless( {
'localvars' => '',
'startcode' => '',
'namespace' => 'Parse::RecDescent::_Runtime::Treex::Core::ScenarioParser',
'rules' => {
... |
| Treex-PML-2.16 | Treex::PML::IO | show |
| sub copy_uri {
my ($src_uri,$target_uri)=@_;
my $in = open_uri($src_uri)
or die "Cannot open source $src_uri: $!\n";
my $out = open_backend($target_uri,'w')
or die "Cannot open target $target_uri: $!\n";
my $L=1024*100;
my $buffer;
whi... |
| Tripletail-0.49 | Tripletail | show |
| sub _secure_env
{
my $this = shift;
my $uid = $<;
my ($username, $home);
if( $^O ne 'MSWin32' )
{
$username = getpwuid($uid);
$home = (getpwuid($uid))[7];
}else
{
$username = 'anonymous';
$home = 'C:/';
}
+{
LANG => 'C',
... |
| Tripletail-0.49 | Tripletail::MemCached | show |
| sub flush_all {
my $this = shift;
$this->{memd}->flush_all;
} |
| Tripletail-0.49 | Tripletail::Validator | show |
| sub getKeys {
my $this = shift;
return keys %{ $this->{_filters} };
} |
| Tripletail-0.49 | Tripletail::FileSentinel | show |
| sub __postRequest {
my $this = shift;
while(my ($fpath, $lastmod) = each %{$this->{lastmod}}) {
my $current = (stat($fpath))[9];
if(!$current) {
die __PACKAGE__."#postRequest: failed to stat [$fpath]: $! (ファイルをstatできませんでした)\n";
}
if($cur... |
| Tripletail-0.49 | Tripletail::Sendmail | show |
| sub _getoptSend {
my $this = shift;
my $pkg = ref($this);
my $data = do {
my %hash = @_;
%hash = map {
my $key = $_;
my $val = $hash{$key};
$key =~ s/^-//;
$key => $val;
} keys %hash;
\%hash;
};
if(!defined($data->{data}... |
| Tripletail-0.49 | Tripletail::RawCookie | show |
| sub __makeSetCookie {
my $this = shift;
my @result;
while(my ($key, $value) = each %{$this->{set_cookies}}) {
my @parts;
push @parts, sprintf('%s=%s', $key, defined $value ? $value : '');
if(defined($value)) {
if(defined(my $expires = $TL... |
| Tripletail-0.49 | Tripletail::TagCheck | show |
| sub tagbreak {
my $this = shift;
if(@_) {
$this->{tagbreak} = shift;
}
$this->{tagbreak};
} |
| Tripletail-0.49 | Tripletail::Mail | show |
| sub __fillHeader {
my $this = shift;
my $h = $this->{entity}->head;
if(!($h->count('Date'))) {
$h->add(Date => $this->_makeMailDate(time));
}
if(!$h->count('Message-Id')) {
$h->add(
'Message-Id' => sprintf(
'<... |
| Tripletail-0.49 | Tripletail::Error | show |
| sub __load_default_error_template
{
<<'END';
} |
| Tripletail-0.49 | Tripletail::DB | show |
| sub DESTROY
{
my $this = shift;
$this->raise();
} |
| Tripletail-0.49 | Tripletail::DateTime | show |
| sub __getGregorian {
my $this = shift;
my $tz = shift || $this->{tz};
local($_);
if($_ = $this->{greg_cache}) {
return $_;
}
my $greg = $this->{greg_cache} = {};
my $jd = $this->{jd} + 0.5 + $tz / 86400;
$greg->{wday} = int($j... |
| Tripletail-0.49 | Tripletail::HtmlMail | show |
| sub _getHTTP {
my $this = shift;
my $url = shift;
my $ua = new LWP::UserAgent;
$ua->timeout($this->{timeout});
$ua->agent('TripleTail/1.0' . ' ' . $ua->agent);
if(defined($this->{proxy})) {
$ua->proxy("http://$this->{proxy}/"... |
| Tripletail-0.49 | Tripletail::InputFilter | show |
| sub _urlDecodeString {
my $this = shift;
my $str = shift;
$str =~ tr/+/ /;
$str =~ s{\%([0-9a-fA-F][0-9a-fA-F])|\%u([0-9a-fA-F][0-9a-fA-F][0-9a-fA-F][0-9a-fA-F])}{
defined($1) ? pack("C", hex($1)) : pack("n", hex($2));
}eg;
$str =~ s/\r\n/\n/g;
... |
| Tripletail-0.49 | Tripletail::Cookie | show |
| sub _makeSetCookies {
my $class = shift;
my @result;
foreach my $this (values %$_INSTANCES) {
push @result, $this->__makeSetCookie;
}
@result;
} |
| Tripletail-0.49 | Tripletail::MemorySentinel | show |
| sub __postRequest {
my $this = shift;
if(!defined($this->{initial})) {
$this->{initial} = $this->getMemorySize;
}
my $initial = $this->{initial};
my $current = $this->getMemorySize;
my $allowed = $this->getTotalPermissibleSize;... |
| Tripletail-0.49 | Tripletail::CSV | show |
| sub next {
my $this = shift;
if ($this->{fh}->eof) {
return;
}
else {
if (my $row = $this->{csv}{csv}->getline($this->{fh})) {
$row;
}
else {
die __PACKAGE__."#next: parse error. (不正なCSV形式です)\n";
}
}
} |
| Tripletail-0.49 | Tripletail::Pager | show |
| Tripletail-0.49 | Tripletail::Form | show |
| sub _s2a {
my $this = shift;
my $str = shift;
my $array = [];
my @node = split(/y/, $str);
shift(@node);
foreach my $node (@node) {
my $data = pack('H*', $node);
if($data =~ m/^h/) {
$data = $this->_s2h($data);
} elsif($data =~ m/^y/) {... |
| Tripletail-0.49 | Tripletail::CharConv | show |
| sub __new {
my $class = shift;
my $this = bless {} => $class;
$this->{encode_is_available} = undef;
$this;
} |
| Tripletail-0.49 | Tripletail::Template | show |
| sub addSessionCheck {
my $this = shift;
$this->{root}->addSessionCheck(@_);
$this;
} |
| Tripletail-0.49 | Tripletail::Filter | show |
| sub reset {
my $this = shift;
$this->{header_flushed} = undef;
%{$this->{replacement}} = ();
%{$this->{addition}} = ();
$this;
} |
| Tripletail-0.49 | Tripletail::Session | show |
| sub _createSessionCheck
{
my $this = shift;
my $issecure = shift;
do {
local $SIG{__DIE__} = 'DEFAULT';
eval 'use Digest::HMAC_SHA1 qw(hmac_sha1_hex)';
};
if($@)
{
my $err = "failed to load Digest::HMAC_SHA1 [$@] (Digest::HMAC_SHA1が使用できませ... |
| Tripletail-0.49 | Tripletail::Debug | show |
| sub __tmpl_db_popup {
my $this = shift;
$TL->newTemplate->setTemplate(qq{
<table>
<tr>
<th>グループ</th>
<th>セット</th>
<th>コネクション</th>
<th>クエリ</th>
... |
| Tripletail-0.49 | Tripletail::Ini | show |
| sub _getrawgroupname {
my $this = shift;
my $group = shift;
my @group;
foreach my $spec (@Tripletail::specialization, '') {
my $groupname = (length $spec ? "$group:$spec" : $group);
foreach my $rawgroup ($this->getGroups(1)) {
next if(!def... |
| Tripletail-0.49 | Tripletail::Value | show |
| sub _ip_match {
my $this = shift;
my $a = shift;
my $b = shift;
my $bits = shift;
my $i = 0;
while($bits > 0) {
if($bits >= 8) {
$a->[$i] != $b->[$i]
and return 0;
$bits -= 8;
} else {
(($a->[$i] >> (8 - $bit... |
| Tripletail-0.49 | Tripletail::Filter::HeaderOnly | show |
| Tripletail-0.49 | Tripletail::Filter::MemCached | show |
| sub reset {
my $this = shift;
$this->SUPER::reset;
$this->{buffer} = '';
$this;
} |
| Tripletail-0.49 | Tripletail::Filter::MobileHTML | show |
| sub _make_header {
my $this = shift;
my %opts = ();
if(defined $this->{locationurl}) {
if(!$TL->getDebug->{location_debug}) {
%opts = (Location => $this->_relink(url => $this->{locationurl}));
}
}
return {
%opts,
... |
| Tripletail-0.49 | Tripletail::Filter::HTML | show |
| sub reset {
my $this = shift;
$this->SUPER::reset;
$this->{content_printed} = undef;
$this->{save} = $TL->newForm->set(
CCC => '愛',
);
$this->setHeader('Content-Type' => $this->{option}{contenttype});
$this->{buf... |
| Tripletail-0.49 | Tripletail::Filter::SEO | show |
| sub __makeLink {
my $this = shift;
my $link = shift;
my $query = shift;
local($_);
my @params;
foreach my $key (@{$this->{order}}) {
if($query->exists($key)) {
foreach my $value (sort $query->getValues($key)) {
push(@params, $key... |
| Tripletail-0.49 | Tripletail::Filter::CSV | show |
| sub reset {
my $this = shift;
$this->SUPER::reset;
$this->{content_printed} = undef;
$this->setHeader('Content-Type' => $this->{option}{contenttype});
if(defined($this->{option}{filename})) {
my $filename = $this->{option}{f... |
| Tripletail-0.49 | Tripletail::Filter::Binary | show |
| sub reset {
my $this = shift;
$this->SUPER::reset;
$this->setHeader('Content-Type' => $this->{option}{contenttype});
if(defined($this->{option}{filename})) {
my $filename = $this->{option}{filename};
$filename = $TL->charco... |
| Tripletail-0.49 | Tripletail::Filter::TEXT | show |
| sub reset {
my $this = shift;
$this->SUPER::reset;
$this->{content_printed} = undef;
$this->setHeader('Content-Type' => $this->{option}{contenttype});
$this;
} |
| Tripletail-0.49 | Tripletail::InputFilter::MobileHTML | show |
| sub _raw2utf8 {
my $this = shift;
my $str = shift;
my $incode = shift;
$TL->charconv($str, $incode => 'utf8', 1);
} |
| Tripletail-0.49 | Tripletail::InputFilter::Plain | show |
| sub decodeURL {
my $this = shift;
my $form = shift;
my $url = shift;
my $fragment = shift;
$this;
} |
| Tripletail-0.49 | Tripletail::InputFilter::HTML | show |
| sub __pairsFromMultipart {
my $this = shift;
local($_);
if($ENV{REQUEST_METHOD} ne 'POST') {
return ([], {});
}
if(!defined($ENV{CONTENT_LENGTH})) {
return ([], {});
}
my $boundary = do {
if ($ENV{CONTENT_TYPE} =~ m/boundary="([^"]+)"/i o... |
| Tripletail-0.49 | Tripletail::InputFilter::SEO | show |
| sub __pairsFromPathInfo {
my $this = shift;
if(!defined($ENV{PATH_INFO})) {
return ([], undef);
}
my @split = map { $this->_urlDecodeString($_) } split m!/!, $ENV{PATH_INFO};
shift @split;
my @pairs;
while(@split) {
if(defined($split[0])... |
| Tripletail-0.49 | Tripletail::Debug::Watch | show |
| sub UNTIE {
$TL->log(__PACKAGE__,
Tripletail::Debug::Watch::_calledLocation . ' ' .
"end watch \%${_[0]->[1]}\n"
);
} |
| Tripletail-0.49 | Tripletail::Template::Node | show |
| sub _compose {
my $this = shift;
my $opts = { @_ };
my $ret = '';
my $save_marks = $opts->{save_marks};
if (!$save_marks) {
foreach my $seg (@{$this->{tmplvec}}) {
if(ref $seg ) {
my $val = $this->{valmap}{${$seg->[2]}};
... |
| Tripletail-0.49 | Tripletail::Sendmail::Smtp | show |
| sub _getResultCode {
my $this = shift;
$this->{status}{resultcode};
} |
| Tripletail-0.49 | Tripletail::Sendmail::MailQueue | show |
| sub _recover_outgoing {
my $this = shift;
local($_);
my $outgoing = "$this->{queuedir}/outgoing";
my $queue = "$this->{queuedir}/queue";
opendir my $dh, $outgoing
or die __PACKAGE__."#process: failed to opendir [$outgoing] (ディレクトリを開けません)\n... |
| Tripletail-0.49 | Tripletail::Sendmail::Sendmail | show |
| sub send {
my $this = shift;
my $data = $this->_getoptSend(@_);
open my $sendmail, '|' . $this->{commandline}
or die __PACKAGE__."#send: failed to execute the sendmail command. [$this->{commandline}] (sendmailコマンドを使用できません)\n";
my $sendd... |
| Tripletail-0.49 | Tripletail::Sendmail::Esmtp | show |
| sub send {
my $this = shift;
my $data = $this->_getoptSend(@_);
my $DB = $TL->getDB($this->{dbgroup});
foreach my $rcpt (@{$data->{rcpt}}) {
$DB->execute(
q{
INSERT INTO mailsend
(start, resend, mailfrom, rcptto, hourlim... |
| Tripletail-0.49 | Tripletail::Validator::FilterFactory | show |
| sub getFilter {
my $filter = shift;
if ( !defined( $filterCache->{$filter} ) ) {
eval qq{\$filterCache->{$filter} = new Tripletail::Validator::Filter::$filter};
if ($@) {
if ( defined( $userFilters->{$filter} ) ) {
eval qq{\$filterC... |
| Tripletail-0.49 | Tripletail::HtmlFilter | show |
| sub toStr {
my $this = shift;
sprintf '<!-- %s -->', $this->[STR];
} |
| Try-Tiny-WarnCaught-0.01 | Try::Tiny::WarnCaught | show |
| sub catch (&;@) {
my $cb = shift;
Try::Tiny::catch {
warn "Caught exception: $_";
$cb->(@_);
};
} |
| TweetHook-API-0.01 | TweetHook::API | show |
| UNIVERSAL-dump-0.06 | UNIVERSAL::dump | show |
| sub import {
my $class= shift;
unshift( @_,'dump' ) unless @_;
no warnings 'redefine';
METHOD:
foreach my $spec (@_) {
if ( !ref($spec) ) {
die qq{Don't know how to install method "UNIVERSAL::$spec"\n}
... |
| UR-0.41 | UR::Doc::Writer | show |
| sub generate_index {
my ($self, @command_trees) = @_;
return '';
} |
| URIC-2.02 | URI2::Escape | show |
| sub uri_unescape
{
return URICc::uri_unescape(@_);
} |
| URIC-2.02 | URI2::URL | show |
| sub wpath { shift->_elem('frag', @_); } |
| URPM-4.9 | URPM | show |
| sub parse_rpms_build_headers {
my ($urpm, %options) = @_;
my ($dir, %cache, @headers);
if (@{$options{rpms} || []} > 0) {
$dir = $options{dir} || _get_tmp_dir();
$options{clean} and system($ENV{LD_LOADER} ? $ENV{LD_LOADER} : @{[]}, "rm",... |
| USB-Descriptor-4 | USB::HID::Descriptor::Report | show |
| sub UsagePage
{
item('usage_page', @_);
} |
| Unix-Conf-Bind8-0.3 | Unix::Conf::Bind8::Conf::Lib | show |
| sub __valid_string ($) { $_[0] =~ s/^"(.+)"$/$1/; return (1) } |
| Unix-Lsof-0.0.9 | Unix::Lsof::Result | show |
| sub _iwarn {
my $self = shift;
my $message = $_[0];
if ( $self->{options}{suppress_errors} ) {
$self->{error} .= $message;
} else {
warn @_;
}
} |
| Unix-Process-1.3101 | Unix::Process | show |
| sub AUTOLOAD {
die "unprocessable garbage: $AUTOLOAD" unless $AUTOLOAD =~ m/::(\w+)$/;
my $sub = $1;
my $f = sub {
my $this = shift;
my $pid = shift; $pid = $$ unless $pid and int($pid);
my $result = eval { capturex($... |
| V-0.13 | V | show |
| sub AUTOLOAD {
my( $self ) = @_;
use vars qw( $AUTOLOAD );
my( $method ) = $AUTOLOAD =~ m|.+::(.+)$|;
if ( exists $self->{ $method } ) {
splice @_, 1, 0, $method;
goto &accessor;
}
} |
| VMS-FlatFile-0.01 | VMS::FlatFile | show |
| sub delete {
my $self = shift;
my $key = shift;
delete(${$self->{File}}{$key});
} |
| VOMS-Lite-0.20 | VOMS::Lite::SAMLHelper | show |
| sub getNodeContentsAsText {
my $name = shift;
my $ref = shift;
my $nsref = shift;
my %ns = %{$nsref};
my @array = @{$ref};
my %attributes = (%{ shift @array },%ns);
my $str = "<$name";
if ( %attr... |
| Verilog-CodeGen-0.9.4 | Verilog::CodeGen | show |
| sub create_objtest_code {
my $objname=shift;
my $design=shift||'Verilog';
if($design eq 'Verilog') {
use Cwd;
my $dir=cwd();
$dir=~s/.*\///;
if($dir ne 'Objects') {$design=$dir; }
}
my $templ=<<'ENDHEADER';
$templ=~s/code_template/$objname/gms;... |
| Video-Filename-0.35 | Video::Filename | show |
| sub testVideoFilename {
my @funcs = qw(isDVDshow isTVshow isEpisode isMovie);
for my $pat (@filePatterns) {
for my $test (@{$pat->{test_files}}) {
my $file = new($test->[0]);
if ($file->{regex} ne $pat->{re}) {
print RED "PATT RE... |
| Video-Info-0.993 | Video::Info::Magic | show |
| sub acodec2str {
my $numeric = shift;
my %codec = (
0x1 => 'Uncompressed PCM',
0x2 => 'MS ADPCM',
0x4 => 'Windows Media Audio',
0x6 => 'aLaw',
0x7 => 'uLaw',
... |
| Video-Info-0.993 | Video::Info::MPEG::System | show |
| sub get_mux_rate {
my $self = shift;
my $offset = shift || $self->{offset};
print "\n", '-' x 74, "\nGetting Muxrate @ $offset\n", '-' x 74, "\n" if DEBUG;
my $muxrate = 0;
my $byte = $self->get_byte( $offset );
if ( ( ... |
| Video-M3U8-0.0.3 | Video::M3U8 | show |
| sub is_last_playlist {
return $cache->{ end };
} |
| Video-PlaybackMachine-0.06 | Video::PlaybackMachine::Player | show |
| sub set_stop_handler {
$_[0]->set_handler(XINE_EVENT_UI_PLAYBACK_FINISHED, $_[1]);
} |
| Video-PlaybackMachine-0.06 | Video::PlaybackMachine::TimeLayout::RangeLayout | show |
| sub min_time {
return $_[0]->{'min_time'};
} |
| Vimana-2.26 | Vimana::VimOnline::ScriptPage | show |
| sub scrape {
my $uri = shift;
my $scraper = scraper {
process "/html/body/table[2]/tr/td[3]/table/tr/td", info => scraper {
process "//span[1]", title => sub {
if ( $_->as_text =~ /(.+) : / ) {
... |
| VirtualFS-ISO9660-0.02 | VirtualFS::ISO9660 | show |
| sub STAT {
my $this = shift;
return $this->[2]->__stat($this->[1]);
} |
| Vroom-0.27 | Vroom | show |
| sub makePublisher {
my $self = shift;
my $input = $self->input;
die "Error: This doesn't look like a Vroom directory.\n"
unless -f $input;
die "Error: This doesn't look like a git repository.\n"
unless -d '.git';
die "Er... |
| W3C-LogValidator-1.4 | W3C::LogValidator::Changeme | show |
| sub process_list
{
my $self = shift;
my $max_invalid = undef;
if (exists $config{MaxInvalid}) {$max_invalid = $config{MaxInvalid}
print "Now Using the CHANGEME module :\n" if $verbose;
my @uris = undef;
my %hits;
if (defined ($config{tmpfile}))
{... |
| WAIT-1.800 | WAIT::Parse::HTML | show |
| sub tag {
my ($self, $html_source) = @_;
$html_source =~ tr/\r/\n/;
my ($pre,$title,$body)
= $html_source =~ /^(.*?<title\s*>)(.*?)(<\/title\s*>.+)/si;
(
{'text' => 1}, decode_entities($pre),
{'title' => 1}, de... |
| WAIT-1.800 | WAIT::Parse::Pod | show |
| sub tag {
my $self = shift;
$self->begin_input;
$self->parse_from_string(@_);
my $result = $self->{OUT};
delete $self->{OUT};
delete $self->{TAGS};
@{$result};
} |
| WAIT-1.800 | WAIT::Table::Independent | show |
| sub insert {
my $self = shift;
my $weight = shift;
$self->SUPER::insert(_weight => $weight, @_);
} |
| WDDX-1.02 | WDDX | show |
| sub _xml_indent {
my $xml = shift;
my $indent = $WDDX::INDENT;
my $level = 0;
$xml =~ s{ (>?)\s*(< ([?!/]?) [^>/]* (/?) ) }{
# print "Matched: $&\n 1: $1\n 2: $2\n 3: $3\n 4: $4\n";
$level-... |
| WDDX-1.02 | WDDX::Recordset | show |
| sub push {
my( $self, $element ) = @_;
my $curr_field = $self->{curr_field};
my $curr_row = ++$self->{curr_row};
my $name = $self->{'names'}[$curr_field];
if ( $curr_field < 0 ) {
die "Missing <field> tag ... |
| WDDX-1.02 | WDDX::Boolean | show |
| sub is_parser {
return 1;
} |
| WDDX-1.02 | WDDX::Parser | show |
| sub taint {
return shift() . $WDDX::Parser::TAINTED;
} |
| WDDX-1.02 | WDDX::Null | show |
| sub is_parser {
return 1;
} |
| WDDX-1.02 | WDDX::Struct | show |
| sub add {
my( $self, $name ) = @_;
my $hash = $self->{value};
$self->{curr_key} = $name;
if ( exists $hash->{lc $name} ) {
delete $hash->{ $hash->{lc $name} };
}
$hash->{lc $name} = $name un... |
| WDDX-1.02 | WDDX::Array | show |
| sub num_elements () {
my( $self ) = @_;
return scalar @{ $self->{value} };
} |
| WDDX-1.02 | WDDX::String | show |
| sub is_parser {
return 1;
} |
| WDDX-1.02 | WDDX::Binary | show |
| sub _decode {
my( $self ) = @_;
my $decoded = decode_base64( $self->{value} );
if ( defined $self->{'length'} ) {
my $declared = $self->{'length'};
my $read = length $decoded;
if ( $declared != $read ... |
| WDDX-1.02 | WDDX::Number | show |
| sub is_parser {
return 1;
} |
| WDDX-1.02 | WDDX::Datetime | show |
| sub is_parser {
return 1;
} |
| WWW-AfinimaKi-0.85 | WWW::AfinimaKi | show |
| sub get_soul_mates {
my ($self, $email_sha256) = @_;
return undef if ! $email_sha256;
my $r = $self->send_request(
'get_soul_mates',
RPC::XML::string->new($email_sha256),
);
return undef if _is_error($r);
r... |
| WWW-Bleep-0.92 | WWW::Bleep | show |
| sub _cleanurldata($) {
if ($_[0]) {
my @data = split //, shift;
my $val;
foreach my $char (@data) {
$val = ord($char);
if ($val < 48 || ($val > 57 && $val < 65) || $val > 90) {
$val = unpack('H*',chr($val));
$char = ('%'.... |
| WWW-CheckSite-0.020 | WWW::CheckSite | show |
| sub time_hhmm {
my( $start, $finish ) = @_;
my $diff = defined $finish ? abs( $finish - $start ) : $start;
my $days = int( $diff / (24*60*60) );
$diff -= 24*60*60 * $days;
my $hours = int( $diff / (60*60) );
$diff -= 60*60 * $ho... |
| WWW-CheckSite-0.020 | WWW::CheckSite::Validator | show |
| sub set_action {
my( $self, $check, $in_cache ) = @_;
defined $in_cache && defined $in_cache->[0] or do {
require Carp;
Carp::confess( "[INTERNAL ERROR]: $check" );
};
my $reason = ($in_cache->[0] & WCS_OUTSCOPE... |
| WWW-CheckSite-0.020 | WWW::CheckSite::Util | show |
| sub size {
my $self = shift;
return scalar @$self;
} |
| WWW-DHL-Detail-0.3 | WWW::DHL::Detail | show |
| sub dhlcheck {
my $paketnummer = shift;
my $language = shift || 'de';
my @newdata;
my $data = get("http://nolp.dhl.de/nextt-online-public/set_identcodes.do?lang=$language&idc=$paketnummer");
$data =~ s/[\n\r]//g;
my($detail) = ($data =~ /<table... |
| WWW-DPD-Detail-0.2 | WWW::DPD::Detail | show |
| sub dpdcheck {
my $paketnummer = shift;
my $language = shift || 'de';
my @newdata;
my $data = get("http://extranet.dpd.de/cgi-bin/delistrack?pknr=$paketnummer&typ=2&lang=$language");
$data =~ s/[\n\r]//g;
my($detail) = ($data =~ /<\/form><... |
| WWW-Deutschepost-Detail-0.2 | WWW::Deutschepost::Detail | show |
| sub deutschepostcheck {
my $paketnummer = shift;
my $tag = shift;
my $monat = shift;
my $jahr = shift;
my %post;
$post{'form.sendungsnummer'} = $paketnummer;
$post{'form.einlieferungsdatum_tag'} = $tag;
$post{'form.einlieferungsdatum_monat'} = $m... |
| WWW-Extractor-0.8 | WWW::Extractor | show |
| WWW-Freshmeat-0.22 | WWW::Freshmeat::Project | show |
| sub real_author {
croak "removed";
my $self = shift;
my $tree=$self->_html_tree();
my $nodes=$tree->findnodes(q{/html/body/div[1]/table/tr/td[2]/table/tr[3]/td[1]/p[2]/b/..});
my %list;
if (my $node=$nodes->shift) {
... |
| WWW-GLS-Detail-0.2 | WWW::GLS::Detail | show |
| sub glscheck {
my $paketnummer = shift;
my $language = shift || 'de';
my @newdata;
my $data = get("http://www.gls-group.eu/276-I-PORTAL-WEB/content/GLS/DE03/".uc($language)."/5004.htm?txtRefNo=$paketnummer&txtAction=71000");
$data =~ s/[\n\r]//g;
... |
| WWW-Gazetteer-Getty-0.11 | WWW::Gazetteer::Getty | show |
| sub find {
my ( $self, $city, $country ) = @_;
if ( $countries->{ lc $country } ) {
$country = $countries->{ lc $country };
}
my $ua = $self->{ua};
my $search_url = URI->new("http://www.getty.edu/vow/TGNServlet")... |
| WWW-Hermes-Detail-0.2 | WWW::Hermes::Detail | show |
| sub hermescheck {
my $paketnummer = shift;
my $language = shift || 'de';
my @newdata;
my $firstdata1 = get('https://www.myhermes.de/wps/portal/PRIPS_DEU/SENDUNGSSTATUS');
my($nextpostlink) = ($firstdata1 =~ /<form name="[^"]*_AuftragSucheForm" me... |
| WWW-ImageSpool-0.01 | WWW::ImageSpool | show |
| sub lag
{
return time() - $_[0]->{l};
} |
| WWW-ImageSpool-0.01 | WWW::ImageSpool::Source | show |
| sub search
{
my($self, $search, $limit, $searchlimit) = @_;
$limit ||= $self->{args}->{limit};
$searchlimit ||= $self->{args}->{searchlimit};
my $count = 0;
my(@result) = ($self->agent_search($search, $searchlimit));
my(@rv);
my $ret... |
| WWW-ImageSpool-0.01 | WWW::ImageSpool::Directory | show |
| sub fetch
{
my($self, @urls) = @_;
my $rv = 0;
my $url;
while($url = shift(@urls))
{
if(my $filename = $self->uri_filename($url))
{
my $pathname = $self->{dir} . "/$filename";
my $code = getstore($url, $pathname);
if(is_succe... |
| WWW-ImageSpool-0.01 | WWW::ImageSpool::Dictionary | show |
| sub word
{
my($self, $consume) = @_;
$self->refresh_words();
my $pos = int(rand(scalar(@{$self->{words}})));
my $word = $self->{last_word} = $self->{words}->[$pos];
splice(@{$self->{words}}, $pos, 1)
if($consume);
if($self->... |
| WWW-ImageSpool-0.01 | WWW::ImageSpool::Source::Google | show |
| sub agent_search
{
my($self, $search, $searchlimit) = @_;
my $count = 0;
if(!$search)
{
return;
}
if(!$searchlimit)
{
$searchlimit = $self->{args}->{searchlimit};
}
my $result = ($self->{agent}->search($search, limit => $... |
| WWW-ImagebinCa-Create-0.02 | WWW::ImagebinCa::Create | show |
| sub upload_id {
my $self = shift;
if ( @_ ) {
$self->{ UPLOAD_ID } = shift;
}
return $self->{ UPLOAD_ID };
} |
| WWW-Link-0.036 | WWW::Link | show |
| sub test_cookie {
my ($self,$cookie)=@_;
$self->{"test-cookie"}=$cookie if $cookie;
return $self->{"test-cookie"};
} |
| WWW-Link-0.036 | WWW::Link::Reporter::RepairForm | show |
| sub correct_form {
my $self=shift;
my $action=shift;
my $orig_url=shift;
croak "correct_form called without original url\n" unless defined $orig_url;
my $array=shift;
$self->FORM(METHOD=>"POST", ACTION=>$action);
$self->INPUT(NA... |
| WWW-Link-0.036 | WWW::Link::Reporter::LongList | show |
| sub page_list {
my $self=shift;
my @worklist=();
my @unresolve=();
my $url_to_file=$self->{"url_to_file"};
foreach my $url (@_) {
my $file = &$url_to_file($url);
if ($file) {
push @worklist, quotemeta ($file);
} else {
... |
| WWW-Link-0.036 | WWW::Link::Reporter::HTML | show |
| sub Link {
my $self=shift;
my $url=shift;
$self -> A(HREF=>$url)
-> t($url)
-> _A ;
return $self;
} |
| WWW-Link-0.036 | WWW::Link::Reporter::Compile | show |
| sub filename {
my $self=shift;
my $name=shift;
$self->{filename}=$name if defined $name;
return $self->{filename} if defined $self->{filename};
return $ARGV if defined $ARGV;
return "unknown file";
} |
| WWW-Mailgun-0.4 | WWW::Mailgun | show |
| sub mailboxes {
my $self = shift;
my $r = $self->{ua}->get($self->{url}.'mailboxes');
_handle_response($r);
return from_json($r->decoded_content);
} |
| WWW-Mechanize-Frames-0.03 | WWW::Mechanize::Frames | show |
| sub get_frames {
my $self = shift;
my $num = 0;
my @array;
my @links = $self->find_all_links( tag_regex => qr/^(iframe|frame)$/ );
foreach my $link (@links) {
++$num;
my $link = $link->url_abs;
my $clone =... |
| WWW-Mechanize-Plugin-JavaScript-0.010 | WWW::Mechanize::Plugin::DOM | show |
| sub EXISTS { exists ${$_[0]}->links->[$_[1]] } |
| WWW-Mechanize-Plugin-JavaScript-0.010 | WWW::Mechanize::Plugin::JavaScript::JE | show |
| sub new_function {
my($self, $name, $sub, $type) = @_;
if(defined $type) {
$self->new_function(
$name => sub { $self->{$type}->($sub->(@_)) }
);
weaken $self;
} else {
shift->SUPER::new_function(@_);
}
} |
| WWW-Monitor-0.24 | WWW::Monitor::Task | show |
| sub success {
my $self = shift;
return $self->{status};
} |
| WWW-PGXN-v0.12.3 | WWW::PGXN::User | show |
| sub releases {
+{ %{ shift->{releases} } }
} |
| WWW-PGXN-v0.12.3 | WWW::PGXN::Tag | show |
| sub releases {
+{ %{ shift->{releases} } }
} |
| WWW-Pastebin-PastebinCom-Retrieve-0.002 | WWW::Pastebin::PastebinCom::Retrieve | show |
| sub _parse {
my ( $self, $content ) = @_;
$content =~ m|<TITLE>404 Not Found</TITLE>|
and $content !~ /<div>/
and return $self->_set_error('This paste does not seem to exist');
my $parser = HTML::TokePars... |
| WWW-Patent-Page-0.109.0 | WWW::Patent::Page::Response | show |
| sub set_parameter {
my $self = shift;
my $parameter = shift;
my $value = shift;
if (exists($self->{$parameter})) { $self->{$parameter} = $value; return (1);}
else {return undef };
} |
| WWW-Pixelletter-0.2 | WWW::Pixelletter | show |
| sub _submitForm
{
my( $self, $xml ) = @_;
my %form = ( 'xml' => $xml );
my $file_idx = 0;
foreach( @{ $self->files() } )
{
$form{'uploadfile'.$file_idx} = $_;
$file_idx++;
}
my $response = $self->{user... |
| WWW-Promotion-5.20 | WWW::Promotion | show |
| sub getrandomkeyword {
my @keywords=split(/,/,$Promotion{'keywords'});
return $keywords[int(rand(@keywords))];
} |
| WWW-RobotRules-Extended-0.02 | WWW::RobotRules::Extended | show |
| sub dump
{
my $self = shift;
for (keys %$self) {
next if $_ eq 'loc';
print "$_ = $self->{$_}\n";
}
for (keys %{$self->{'loc'}}) {
my @rules = $self->rules($_);
print "$_: ", join("; ", @rules), "\n";
}
} |
| WWW-Romeo-0.21.01 | WWW::Romeo::Config | show |
| sub DESTROY {
my ($self) = @_;
$self = {};
return;
} |
| WWW-Romeo-0.21.01 | WWW::Romeo::DB::Session | show |
| sub remove_expired {
my ($self) = @_;
$self->db->resultset('Session')->search(
{
expire_timestamp => { '<', time },
}
)->delete_all;
} |
| WWW-Scripter-Plugin-JavaScript-0.008a | WWW::Scripter::Plugin::JavaScript::JE | show |
| sub isa {
goto &UNIVERSAL'isa;
} |
| WWW-Search-Backends-1.073 | WWW::Search::VoilaFr | show |
| sub native_retrieve_some
{
my ($self) = @_;
my($hits_found) = 0;
return undef if (!defined($self->{_next_url}));
print STDERR "WWW::Search::${engine}::native_retrieve_some: fetching " . $self->{_next_url} . "\n" if ($self->{_deb... |
| WWW-Search-RPMPbone-1.0 | WWW::Search::RPMPbone | show |
| sub _new_hit {
my ($self,$site,$site_url,$rpm,$distribution) = @_;
my $hit = new WWW::SearchResult;
$hit->add_url($site_url);
$hit->source($rpm);
$hit->description($distribution);
push(@{$self->{cache}},$hit);
return $hit;
} |
| WWW-Search-Scrape-0.08 | WWW::Search::Scrape::Yahoo | show |
| sub search($$;$)
{
my ($keyword, $results_num, $content) = @_;
my $num = 0;
if ($results_num > 100) {
carp 'WWW::Search::Scrape::Yahoo can not process results more than 100.';
return undef;
}
my @res;
unless ... |
| WWW-Search-Scrape-0.08 | WWW::Search::Scrape::Bing | show |
| sub search($$;$)
{
my ($keyword, $results_num, $content) = @_;
my $num = 0;
if ($results_num > 50) {
carp 'WWW::Search::Scrape::Bing can not process results more than 50.';
return undef;
}
my @res;
unless ($c... |
| WWW-Shopify-0.13 | WWW::Shopify::URLHandler::Queued | show |
| sub delete_url {
my $self = shift;
eval {
$self->SUPER::delete_url(@_);
};
if ($@) {
die $@ unless ($@->code == 503);
my $db = $self->{_db};
$db->create({created => $currentDate, request_json => $request_json});
}
} |
| WWW-Splunk-2.01 | WWW::Splunk::API | show |
| sub request {
my $self = shift;
my $method = shift;
my $location = shift;
my $data = shift;
my $callback = shift;
my $url = $self->{url}.$prefix.$location;
my $request;
if (ref $method and ref $method eq 'CODE') {
$request = $method->($u... |
| WWW-Txodds-0.68 | WWW::Txodds | show |
| sub clean_obj {
my ( $self, $BadObj ) = @_;
my %sports = $self->sports();
my %mgroups = $self->mgroups();
my $obj->{'timestamp'} = $BadObj->{'timestamp'};
$obj->{time} = $BadObj->{'time'};
$obj->{'time'} =~
s... |
| WWW-UPS-Detail-0.4 | WWW::UPS::Detail | show |
| sub upscheck {
my $paketnummer = shift;
my $language = shift || 'de';
my $lang;
if($language eq "de"){
$lang = '&Lang=ger';
}
my @newdata;
my $firstdata1 = get("http://wwwapps.ups.com/ietracking/tracking.cgi?tracknum=$paketnummer&IATA=$language$... |
| WWW-WhoCallsMe-0.02 | WWW::WhoCallsMe | show |
| sub fetch
{
my $self = shift;
my $number = shift;
$number =~ s/[^0-9]//g;
my $req = HTTP::Request->new(GET => 'http://whocallsme.com/Phone-Number.aspx/'.$number);
my $res = $self->{ua}->request($req);
my $return = {
number =&... |
| WWW-Yahoo-Horoskop-0.2 | WWW::Yahoo::Horoskop | show |
| sub horoskop {
my $zwei = shift || 'widder';
my $erst = shift || 'tag';
my $text;
if($erst eq "woche"){
my $url = get("http://de.lifestyle.yahoo.com/sterne/wochenhoroskop-$zwei.html");
($text) = ($url =~ /(<p><b>Gesundheit\/Fitness<... |
| WWW-Zooomr-Scraper-v0.3.1 | WWW::Zooomr::Scraper | show |
| sub upload {
my $self = shift;
my $config = ref($_[0]) ? $_[0] : {@_};
my ($updater) = $self->_config_or_default($config, 'updater');
my $filename = $config->{filename};
my $ua = $self->get_agent();
(my $barename = fil... |
| WWW-iloxx-Detail-0.2 | WWW::iloxx::Detail | show |
| sub iloxxcheck {
my $paketnummer = shift;
my $language = shift || 'de';
my @newdata;
my $firstdata1 = get("http://www.iloxx.de/net/einzelversand/tracking.aspx?ix=$paketnummer");
my($detail) = ($firstdata1 =~ /<td><\/td><td class="cont... |
| Watchdog-0.10 | Watchdog::Process | show |
| sub is_alive() {
my $DEBUG = 0;
my $self = attr shift;
my $t = new Proc::ProcessTable;
for ( @{$t->table} ) {
my $cmndline = $_->cmndline;
print STDERR "\$cmndline = $cmndline\n" if $DEBUG;
return 1 if defined($cmndline) && $... |
| Watchdog-0.10 | Watchdog::Mysql | show |
| sub is_alive() {
my $DEBUG = 0;
my $self = attr shift;
print STDERR "Mysql::is_alive()\n" if $DEBUG;
print STDERR "\$DB = $DB\n" if $DEBUG;
my $dsn = "DBI:mysql:database=$DB;host=$HOST";
$dsn .= ";port=$PORT" if defined($PORT);
print STDERR... |
| Watchdog-0.10 | Watchdog::Base | show |
| sub id() {
my $self = attr shift;
my $id = "$NAME\@$HOST";
$id .= ":$PORT" if defined($PORT);
$id .= "/$FILE" if ($FILE eq '');
return $id;
} |
| Watchdog-0.10 | Watchdog::HTTP | show |
| sub is_alive() {
my $self = attr shift;
my $request = new HTTP::Request(GET => "http://$HOST:$PORT/$FILE");
my $ua = new LWP::UserAgent;
my $response = $ua->request($request);
return $response->is_success ? 1 : 0;
} |
| Web-App-1.21 | Web::App::Presenter | show |
| sub init {
my $class = shift;
my $params = shift || {};
bless $params, $class;
my $app = Web::App->app;
my $type = ($params->{'type'} =~ /^presenter:(.*)/)[0];
$app->config->int->{'presenters'}->{$type} = $params;
if ($... |
| Web-App-1.21 | Web::App::Presenter::JSON | show |
| sub wrap_log {
my $self = shift;
my $content = shift;
$content =~ s/\*\//***COMMENT END***/gs;
return join '', "\n/********************\n", $content, "\n********************/\n";
} |
| Web-MicroID-0.02 | Web::MicroID | show |
| sub new {
my $class = shift;
my $conf = shift || {};
my $self = bless [$conf], $class;
return $self;
} |
| WebDyne-1.213 | WebDyne | show |
| sub AUTOLOAD {
} |
| WebDyne-1.213 | WebDyne::Err | show |
| sub err_eval {
my ($self, $message, @param)=@_;
my $param_ar=pop @param;
unless (ref($param_ar) eq ARRAY) {
return err('err_eval called without array ref to eval error param')
}
$self->{'_err_eval_ar'}=$... |
| WebDyne-1.213 | WebDyne::Cache | show |
| sub handler : method {
my ($self,$r)=(shift, shift);
my $cache=$r->dir_config('WebDyneCacheHandler') ||
return $self->err_html(
'unable to get cache handler name - have you set the WebDyneCacheHandler var ?');
$self->c... |
| WebDyne-1.213 | WebDyne::Handler | show |
| sub import {
my ($class, @param)=@_;
my $self_cr=UNIVERSAL::can(scalar caller, 'self') || return;
my $self=$self_cr->() || return;
my %param=(@param==1) ? (handler => @param) : @param;
$self->set_handler($param{'handler'});
... |
| WebDyne-1.213 | WebDyne::Install | show |
| sub cache_dn {
my $prefix=shift();
my $cache_dn;
if ($WEBDYNE_CACHE_DN) {
$cache_dn=$WEBDYNE_CACHE_DN;
}
elsif ($prefix && ($prefix ne $Config{'prefix'})) {
$cache_dn=File::Spec->catdir($prefix, 'cache');
}
... |
| WebDyne-1.213 | WebDyne::Static | show |
| sub handler : method {
my $self=shift();
$self->static(1);
$self->SUPER::handler(@_);
} |
| WebDyne-1.213 | WebDyne::Compile | show |
| sub parse {
my ($self, $html_or, $meta_hr)=@_;
my ($line_no, $line_no_tag_end)=@{$html_or}{'_line_no', '_line_no_tag_end'};
debug("parse $self, $html_or line_no $line_no line_no_tag_end $line_no_tag_end");
my @data;
@data[
... |
| WebDyne-1.213 | WebDyne::Base | show |
| sub errstack {
return @_ ? \(@Err=@{$_[1]}) : \@Err;
} |
| WebDyne-1.213 | WebDyne::Install::Apache | show |
| sub install {
my ($class, $prefix, $installbin, $option_hr)=@_;
unless ($Uninstall_fg) {
WebDyne::Install->install($prefix, $installbin) ||
return err();
}
else {
WebDyne::Install->uninstall($prefix, $installbin) ||
r... |
| WebDyne-1.213 | WebDyne::Request::Fake | show |
| sub DESTROY {
my $r=shift();
if (my $cr_ar=delete $r->{'register_cleanup'}) {
foreach my $cr (@{$cr_ar}) {
$cr->($r);
}
}
} |
| WebDyne-1.213 | WebDyne::HTML::TreeBuilder | show |
| sub include {
my ($self, $method)=(shift,shift);
debug("block self $self, method $method, @_ text_fg $Text_fg");
$self->$method(@_);
} |
| WebDyne-Chain-1.050 | WebDyne::Chain | show |
| sub UNIVERSAL::AUTOLOAD {
my $self=$_[0];
my $autoload=$UNIVERSAL::AUTOLOAD || return;
return if $autoload=~/::DESTROY$/;
debug("in UNIVERSAL::AUTOLOAD, self $self, autoload $autoload, caller %s",
Dumper([(caller(1))[0..3]]));
... |
| WebDyne-Install-Lighttpd-1.009 | WebDyne::Install::Lighttpd | show |
| sub install {
my ($class, $prefix, $installbin)=@_;
unless ($Uninstall_fg) {
WebDyne::Install->install($prefix, $installbin) ||
return err();
}
else {
WebDyne::Install->uninstall($prefix, $installbin) ||
return err();... |
| WebDyne-Request-FastCGI-1.021 | WebDyne::Request::FastCGI | show |
| sub env {
return \%Dir_config_env;
} |
| WebDyne-Request-FastCGI-1.021 | WebDyne::Request::FastCGI::Static | show |
| sub run {
my ($r, $self)=@_;
my $fn=$r->filename();
if (!-f $fn) {
warn("file '$fn' not found");
return $r->status(RC_NOT_FOUND);
}
elsif (my $fh=IO::File->new($fn, O_RDONLY)) {
my $hr=$r->headers_out();
my $size=(stat... |
| WebDyne-Request-FastCGI-1.021 | WebDyne::Request::FastCGI::Run | show |
| sub start {
my ($class, $socket_fn, $backlog)=@_;
my $socket_fh=$socket_fn && do {
$backlog ||= WEBDYNE_FASTCGI_BACKLOG;
FCGI::OpenSocket($socket_fn, $backlog) ||
die ("could not open socket $socket_fn, $!");
};
my %env... |
| WebDyne-Session-1.044 | WebDyne::Session | show |
| sub session_id {
my $self=shift();
return $self->{'_session_id'};
} |
| WebDyne-Template-1.023 | WebDyne::Template | show |
| sub filter {
my ($self, $data_main_ar, $meta_main_hr)=@_;
debug("in $self filter");
my $r=$self->r() ||
return err('unable to get request object');
my $template_cn=${ $self->template() || return err() };
debug("template_pn... |
| WebService-Class-0.03 | WebService::Class::LivedoorWeather | show |
| sub weather{
my $self = shift;
my $city = shift;
my $day = shift;
return $self->request_api()->request('GET',$self->define_city,{'city'=>$city,'day'=>$day})->parse_xml();
} |
| WebService-TVDB-1.130690 | WebService::TVDB::Util | show |
| sub get_api_key_from_file {
my ($file) = @_;
return do {
local $/ = undef;
open my $fh, "<", $file
or die "could not open $file: $!";
my $doc = <$fh>;
$doc =~ s/(\r|\n)//g;
return $doc;... |
| WebService-UrbanAirship-0.04 | WebService::UrbanAirship::APNS | show |
| sub _craft_payload {
my $self = shift;
my %args = %{shift || {}};
my $badge = eval { int delete $args{badge} };
my $alert = delete $args{alert};
my $sound = delete $args{sound};
my $payload = {};
$payload->{badge} = $badge if defined... |
| Wiki-Toolkit-0.80 | Wiki::Toolkit::Setup::Database | show |
| sub perm_check {
my $dbh = shift;
eval {
my $sth = $dbh->prepare("CREATE TABLE dbtest (test int)");
$sth->execute;
$sth = $dbh->prepare("CREATE INDEX dbtest_index ON dbtest (test)");
$sth->execute;
... |
| Win32-ASP-2.15 | Win32::ASP::IO | show |
| sub SetCookie($$;%)
{
my ($name, $value, %hash) = @_;
if (ref($value) eq 'HASH')
{
$value = join( "\&" ,
map { $::Server->URLEncode($_) . '=' . $::Server->URLEncode($$value{$_}) }
keys(%$value)
... |
| Win32-ASP-CGI-0.13 | Win32::ASP::CGI::IO | show |
| sub AddDeathHook(@) {
push @DeathHooks, @_;
} |
| Win32-Codepage-Simple-0.01 | Win32::Codepage::Simple | show |
| sub get_oemcp
{
$get_oemcp && $get_oemcp->Call();
} |
| Win32-Daemon-20110117 | TestFramework | show |
| sub LogStart
{
my( $self ) = @_;
return if( scalar @{$self->{log_filehandle_list}} );
if( 0 == scalar @{$self->{log_path_list}} )
{
push( @{$self->{log_path_list}}, @{$self->{default}->{log_path_list}} );
}
foreach my $Path ( @{... |
| Win32-GetDefaultBrowser-1.00 | Win32::GetDefaultBrowser | show |
| sub get_default_browser
{
my $browser_str = '';
my $sub_browser_str = '';
my $fallback = 0;
my $is64bit = 0;
if($ENV{'PROGRAMW6432'} =~ m/\w/)
{
$is64bit = 1;
}
if(($is64bit) && (-e ($ENV{'SYSTEMDRIVE'} . '\\Program File... |
| Win32-Girder-IEvent-0.04 | Win32::Girder::IEvent::Common | show |
| sub hash_password ($$) {
my ($cookie,$pass) = @_;
return md5_hex("$cookie:$pass");
} |
| Win32-Girder-IEvent-0.04 | Win32::Girder::IEvent::Server | show |
| sub DESTROY {
my ($obj) = @_;
$$obj->{_girder_pass} = undef;
$$obj->{_girder_rin} = undef;
$$obj->{_girder_clients} = undef;
$obj->SUPER::DESTROY();
} |
| Win32-Girder-IEvent-0.04 | Win32::Girder::IEvent::Client | show |
| sub DESTROY {
my ($obj) = @_;
$$obj->{_girder_pass} = undef;
$obj->SUPER::DESTROY();
} |
| Win32-HideConsole-1.00 | Win32::HideConsole | show |
| sub hide_console
{
my $GetConsoleTitle = new Win32::API('kernel32', 'GetConsoleTitle', 'PN', 'N');
my $SetConsoleTitle = new Win32::API('kernel32', 'SetConsoleTitle', 'P', 'N');
my $FindWindow = new Win32::API('user32', 'FindWindow', 'PP', 'N');
my $S... |
| Win32-IE-Mechanize-0.009 | Win32::IE::Image | show |
| sub alt {
my $self = ${ $_[0] };
return $self->{ALT};
} |
| Win32-IE-Mechanize-0.009 | Win32::IE::Form | show |
| sub _radio_group {
my $self = shift;
my $form = $$self;
my $name = shift or return;
my @rgroup;
for ( my $i = 0; $i < $form->all->length; $i++ ) {
next unless $form->all( $i )->tagName =~ /input/i;
next ... |
| Win32-IE-Mechanize-0.009 | Win32::IE::Input | show |
| sub click { ${ $_[0] }->click } |
| Win32-IIS-Admin-1.024 | Win32::IIS::Admin | show |
| sub new
{
my ($class, %parameters) = @_;
if ($^O ne 'MSWin32')
{
DEBUG && print STDERR " DDD this is not windows\n";
return undef;
}
my (@asTry, $sCscript);
push @asTry, catfile($ENV{windir}, 'system32', 'cscript.exe');
foreac... |
| Win32-MSI-DB-1.06 | Win32::MSI::DB | show |
| sub _extract_fields
{
my ($hdl, @types) = @_;
my $i = $MsiRecordGetFieldCount->Call($hdl) or die $!;
my @a = ();
for my $c (1..$i)
{
my $s;
if (@types)
{
my $t = shift @types;
$s = $t == $COLTYPE_INT ? _getI($hdl, $c)... |
| Win32-MediaPlayer-0.3 | Win32::MediaPlayer | show |
| sub doMM {
my($cmd) = @_;
my $ret = "\0" x 1025;
my $rc = $mciSendString->Call($cmd, $ret, 1024, 0);
if($rc == 0) {
$ret =~ s/\0*$//;
return $ret;
}else{
return "error '$cmd': $rc";
}
} |
| Win32-Script-0.58 | Win32::Script | show |
| sub WScript {
Try eval { local $ErrorDie =2;
my $u =!defined($_[0]) ? shift : 1;
my $n =shift;
return($WScript{$n}) if $u && exists($WScript{$n});
$WScript{$n} =undef if $u;
my $o =OLECreate(($n eq 'FSO' ? 'Scripting.FileSystemObject' : "WScript.$n"... |
| Win32API-File-Time-0.006 | Win32API::File::Time | show |
| sub _perltime_to_filetime {
my @result;
$SystemTimeToFileTime ||= _map (
'KERNEL32', 'SystemTimeToFileTime', [qw{P P}], 'I');
$LocalFileTimeToFileTime ||= _map (
'KERNEL32', 'LocalFileTimeToFileTime', [qw{P P}], 'I');
my $zero = pack 'LL', 0, 0;
my ($f... |
| Wizard-0.1006 | HTML::EP::Wizard | show |
| sub _ep_form_object {
my $self = shift; my $attr = shift; my $func = shift;
my $debug = $self->{'debug'};
my $template;
if (!defined($template = delete $attr->{template})) {
$func->{'default'} ||= 'template';
return undef... |
| Wizard-0.1006 | Wizard::SaveAble | show |
| sub Store {
my $self = shift;
my $copy = { %$self };
bless($copy, ref($self));
return unless delete $copy->{'_wizard_saveable_modified'};
delete $copy->{'_wizard_saveable_createme'};
my $file = delete $copy->{'_wizard_s... |
| Wizard-0.1006 | Wizard::Form::HTML | show |
| sub object {
my $self = shift; my $o = $self->{'objects'};
my $name = shift;
return (keys %$o) if wantarray && !$name;
if(@_) {
my $obj = shift;
$name ||= $obj->{'name'};
unless($name) {
my $pre = ref($obj); my $num = 0;
... |
| Wizard-0.1006 | Wizard::Examples::ISDN::Settings | show |
| sub Action_Reset {
my($self, $wiz) = @_;
my ($prefs) = $self->init();
my $cfile = $prefs->{'isdn-prefs-cfile'};
$self->{'settings'} = Wizard::SaveAble::ShellVars->new('file' => $cfile, 'load' => 1, 'prefix' => 'isdn-s... |
| Wizard-0.1006 | Wizard::Examples::Apache::Host | show |
| sub Action_DeleteHost4 {
my($self, $wiz) = @_;
$self->DeleteItem($wiz, 1);
$self->Action_Reset($wiz);
} |
| Wizard-0.1006 | Wizard::Examples::Apache::VirtualServer | show |
| sub Action_DeleteVServer4 {
my($self, $wiz) = @_;
$self->DeleteItem($wiz,1);
$self->Action_Reset($wiz);
} |
| Wizard-0.1006 | Wizard::Examples::Apache::Directory | show |
| sub Action_DeleteDirectory4 {
my($self, $wiz) = @_;
$self->DeleteItem($wiz,1);
$self->Action_Reset($wiz);
} |
| Wizard-0.1006 | Wizard::Examples::Apache::Server | show |
| sub Action_DeleteServer4 {
my($self, $wiz) = @_;
$self->DeleteItem($wiz,1);
$self->Action_Reset($wiz);
} |
| Wizard-0.1006 | Wizard::Elem::CheckBox::HTML | show |
| sub Display {
my($self, $wiz, $form, $state) = @_;
$self->SUPER::Display($wiz, $form, $state);
$self->{'default'} ||= 'no';
$self->{'value'} ||= $self->{'default'};
$form->AddHTML('<tr><td>' . HTML::Entities... |
| Wizard-0.1006 | Wizard::Elem::Link::Shell | show |
| sub Display {
} |
| Wizard-0.1006 | Wizard::Elem::BR::HTML | show |
| sub Display {
my($self, $wiz, $form, $state) = @_;
$self->SUPER::Display($wiz, $form, $state);
$form->AddHTML('<BR>');
} |
| Wizard-0.1006 | Wizard::SaveAble::ShellVars | show |
| sub Store {
my $self = shift;
my $prefix = $self->{'prefix'};
return unless $self->{'_wizard_saveable_modified'};
my $file = $self->{'_wizard_saveable_file'};
my $dir = File::Basename::dirname($file);
die "Failed to crea... |
| Wizard-LDAP-0.1008 | Wizard::LDAP::Host | show |
| sub Action_DeleteHost3 {
my($self, $wiz) = @_;
my($prefs, $admin, $net, $host) = $self->init(1);
$host->Delete();
$self->OnChange('host');
$self->Action_Reset($wiz);
} |
| Wizard-LDAP-0.1008 | Wizard::LDAP::User | show |
| sub Action_DeleteUser3 {
my($self, $wiz) = @_;
my($prefs, $admin, $user) = $self->init(1);
$user->Delete();
$self->OnChange('user', '-delete', {'user' => $user->{'ldap-user-uid'}, 'options' =>
''});
$self->Action_... |
| Wizard-LDAP-0.1008 | Wizard::LDAP::Net | show |
| sub Action_DeleteNet3 {
my($self, $wiz) = @_;
my($prefs, $admin, $net) = $self->init(1);
($prefs, $admin) = $self->init();
my $base = "network=" . $net->{'ldap-net-netname'} . ", " . $prefs->{'ldap-prefs-netbase'};
my $mes... |
| WordLists-0.013 | WordLists::Tag::Tagger | show |
| sub get_wordlist
{
my ($self, $sUntagged, $args) = @_;
my $wl;
if (defined $args->{'wl'} and ref $args->{'wl'} eq 'WordLists::WordList')
{
$wl=$args->{'wl'};
}
else
{
$wl = WordLists::WordList->new;
}
foreach my $sSentence (@{$s... |
| Working-Daemon-0.31 | Working::Daemon::Syslog | show |
| sub action_stop {
my $self = shift;
$self->NEXT::action_stop(@_);
closelog();
} |
| Wx-Perl-Throbber-1.05 | Wx::Perl::Throbber | show |
| sub _set_bitmap_size {
my $self = shift;
my ($bitmap, $framesWidth) = @_;
my ($width, $height) = $self -> GetSizeWH();
if ($width == -1) {
if (ref $bitmap && ref $bitmap eq 'ARRAY') {
$width = $bitmap -> [0] ->... |
| XForms-Generator-0.70 | PostFilter | show |
| sub parse {
my($self,$params)=@_;
my $inst=$params->{$inst_param};
die "No instance data in params" unless $inst;
print STDERR "$inst\n" if $self->{debug} > 1;
delete $params->{$inst_param};
$self->{parser}||=XML::LibXML->new;
... |
| XML-Comma-1.998 | XML::Comma::Pkg::Textsearch::Preprocessor | show |
| sub stem_and_count {
die "abstract method";
} |
| XML-Comma-1.998 | XML::Comma::SQL::Lock | show |
| sub DESTROY {
$_[0]->disconnect();
} |
| XML-Config-0.2 | XML::Config | show |
| sub __charparse {
my ($xp,$str) = @_;
my $self = $xp->{parent};
return if $str =~ /^\s*$/m;
$self->{conf}{$xp->current_element} = $str;
} |
| XML-DTDParser-2.01 | XML::DTDParser | show |
| sub FindDTDRoot {
my $elements = shift;
my @roots;
foreach my $element (keys %$elements) {
if (!exists $elements->{$element}->{parent}) {
push @roots, $element;
$elements->{$element}->{option} = '!';
}
}
return @roots;
} |
| XML-EP-0.01 | XML::EP::Error | show |
| sub new {
my $proto = shift; my $msg = shift; my $code = shift;
$self = { msg => $msg, code => $code };
bless($self, (ref($proto) || $proto));
} |
| XML-EP-0.01 | XML::EP::Install | show |
| sub Save {
my $self = shift; my $file = shift;
my $array = [ @$self ];
my $dump = Data::Dumper->new([$array])->Terse(1)->Indent(1)->Dump();
my $fh = Symbol::gensym();
(open($fh, ">$file") and
(print $fh "package XM... |
| XML-EP-0.01 | XML::EP::Response | show |
| sub Headers {
my $self = shift;
"content-type: " . $self->ContentType() . "\n\n";
} |
| XML-EP-0.01 | XML::EP::Control | show |
| sub CreatePipe {
my $self = shift; my $ep = shift;
my $class = $ep->{cfg}->{Producer} || "XML::EP::Producer::File";
$ep->Require($class);
my $producer = $class->new();
my $xml = $producer->Produce($ep);
my $processo... |
| XML-EP-0.01 | XML::EP::Formatter::HTML | show |
| sub Format {
my $self = shift; my $ep = shift; my $xml = shift;
my $response = $ep->Response();
$response->ContentType("text/html") unless $response->ContentType();
my $fh = $ep->Request()->FileHandle();
XML::DOM::setT... |
| XML-Generator-RSS10-egms-0.02 | XML::Generator::RSS10::egms | show |
| XML-Generator-RSS10-ev-0.01 | XML::Generator::RSS10::ev | show |
| XML-Generator-RSS10-gcl-0.02 | XML::Generator::RSS10::gcl | show |
| XML-Generator-RSS10-ipsv-0.01 | XML::Generator::RSS10::ipsv | show |
| XML-Generator-RSS10-lgcl-0.02 | XML::Generator::RSS10::lgcl | show |
| XML-Grammar-Fiction-0.12.1 | rejects::QnD | show |
| sub _find_next_inner_text
{
my $self = shift;
my $which_tag;
my $text = "";
my $l = $self->curr_line_ref();
$$l =~ m{\G([^\<\[\]\&]*)}cgms;
$text .= (defined($1) ? $1 : "");
if ($$l =~ m{\G\&})
{
$which_t... |
| XML-Grammar-Fiction-0.12.1 | rejects::Screenplay_Parser_QnD | show |
| sub _determine_tag
{
my $self = shift;
my $l = $self->curr_line_ref();
return
($$l =~ m{\G\[}) ? "open_desc"
: ($$l =~ m{\G\&}) ? "entity"
: ($$l =~ m{\G(?:</|\])}) ? "close"
: ($$l =~ m{\G<}) ? "op... |
| XML-RSS-FOXSports-0.02 | XML::RSS::FOXSports::Utils | show |
| XML-Sablotron-1.01 | XML::Sablotron::DOM | show |
| sub removeNamedItemNS {
my ($self, $nsUri, $locName) = @_;
$self->[3] && die(XML::Sablotron::DOM::NO_MODIFICATION_ALLOWED_ERR);
my $old = $self->getNamedItemNS($nsUri, $locName);
$old || die(XML::Sablotron::DOM::NOT_FOUND_ERR);
m... |
| XML-Schema-0.07 | XML::Schema::Type::List | show |
| sub init {
my ($self, $config) = @_;
$self->SUPER::init($config)
|| return;
$self->{ _VARIETY } = 'list';
return $self;
} |
| XML-Simple-DTDReader-0.04 | XML::Simple::DTDReader | show |
| sub End {
local $Carp::CarpLevel = 3;
my $self = shift;
my($parser,$tag) = @_;
shift @{$self->{Element}};
if ($self->{DTD}{$tag}{Element}->isseq) {
my @blocking = grep {not empty($_)} @{$self->{Expected}[0]};
if (@blocking) {... |
| XML-Stream-1.23 | XML::Stream::Parser::DTD | show |
| sub deleteattrib
{
my $self = shift;
my ($tag,$att,$tree) = @_;
return $tree unless exists($self->{ATTLIST}->{$tag});
return $tree unless exists($self->{ATTLIST}->{$tag}->{$att});
return if $self->attribrequired($ta... |
| XML-Template-3.20 | XML::Template::Parser::Cond | show |
| sub new { my $self = bless( {
'_AUTOTREE' => undef,
'localvars' => '',
'startcode' => '',
'_check' => {
'thisoffset' => '',
... |
| XML-Template-3.20 | XML::Template::Parser::String | show |
| sub new { my $self = bless( {
'_AUTOTREE' => undef,
'localvars' => '',
'startcode' => '',
'_check' => {
'thisoffset' => '',
... |
| XML-XPathEngine-0.13 | XML::XPathEngine | show |
| sub _debug {
my ($pkg, $file, $line, $sub) = caller(1);
$sub =~ s/^$pkg\:://;
while (@_) {
my $x = shift;
$x =~ s/\bPKG\b/$pkg/g;
$x =~ s/\bLINE\b/$line/g;
$x =~ s/\bg\b/$sub/g;
print STDE... |
| XML-Xerces-2.7.0-0 | SWIG | show |
| sub fix_method {
my ($in_fh,$out_fh,$match_pattern,$subst_string,$keep,$subst_line_func) = @_;
$keep = 0 unless defined $keep;
if (defined $subst_line_func) {
die "fix_method: Must supply a CODE ref for substitution method"
unless ref($sub... |
| XML-Xerces-2.7.0-0 | XML::Xerces | show |
| sub resolve_entity {
my ($self,$pub,$sys) = @_;
XML::Xerces::error (__PACKAGE__ . ": Must call initialize before using the resolver")
unless defined $self->maps or defined $self->remaps;
my $href;
if ($pub) {
$href = $self->ma... |
| XML-Xerces-2.7.0-0 | XML::Xerces::XMLSimple | show |
| sub node2hash {
my $node = shift;
my $return = [{}];
my $nodename = $node->getNodeName();
if ($node->hasAttributes()) {
my %attrs = $node->getAttributes();
foreach my $attr (keys %attrs) {
$return->[0]->{$attr} = $att... |
| XPlanner-0.01 | ProjectData | show |
| sub delete {
my $self = shift;
my $proxy = $self->{_proxy};
$proxy->removeProject($self->{id});
} |
| YAML-0.84 | YAML::Dumper::Base | show |
| sub bless {
my $self = shift;
my ($ref, $blessing) = @_;
my $ynode;
$ref = \$_[0] unless ref $ref;
my (undef, undef, $node_id) = YAML::Mo::Object->node_info($ref);
if (not defined $blessing) {
$ynode = YAML::Node->new... |
| YAML-Old-0.81 | YAML::Old::Dumper::Base | show |
| sub bless {
my $self = shift;
my ($ref, $blessing) = @_;
my $ynode;
$ref = \$_[0] unless ref $ref;
my (undef, undef, $node_id) = YAML::Old::Base->node_info($ref);
if (not defined $blessing) {
$ynode = YAML::Old::Node->... |
| Yukki-0.121790 | Yukki::Web::View::Attachment | show |
| sub remove {
my ($self, $ctx, $vars) = @_;
my $file = $vars->{file};
$ctx->response->page_title($vars->{title});
return $self->render_page(
template => 'attachment/remove.html',
context => $ctx,
... |
| Zoidberg-0.981 | ModuleBuildZoid | show |
| sub man1page_name {
my $self = shift;
my $name = File::Basename::basename( shift );
$name =~ s/\.pod$//;
return $name;
} |
| as-0.08 | as | show |
| sub _import {
return if @_ < 3 or $_[-2] ne 'as';
_alias( $_[0], $_[-1] );
return;
} |
| cPanel-PublicAPI-1.002 | cPanel::PublicAPI | show |
| sub format_http_query {
my ( $self, $formdata ) = @_;
if ( ref $formdata ) {
return join( '&', map { $CFG{'uri_encoder_func'}->($_) . '=' . $CFG{'uri_encoder_func'}->( $formdata->{$_} ) } keys %{$formdata} );
}
return $for... |
| cPanel-PublicAPI-1.002 | cPanel::PublicAPI::DNS | show |
| sub zoneexists_local {
my $self = shift;
my $exists = cPanel::PublicAPI::Utils::remove_trailing_newline( $self->simple_post_whmreq( '/scripts2/zoneexists_local', \@_, [ 'zone', 'dnsuniqid' ] ) );
$exists =~ s/[\r\n]//g;
if ( $exists eq ... |
| caGRID-CQL1-1.0.2 | caGRID::Net::Util | show |
| sub testHTTP {
my ( $host ) = @_;
my $s = Net::HTTP->new(Host => $host);
$s->write_request(GET => "/", 'User-Agent' => "Mozilla/5.0");
my($code, $mess, %h) = $s->read_response_headers;
return 1 if ( $code == 200 || $code == 302 )... |
| cnutt-feed-1.21 | Cnutt::Feed | show |
| sub fetch {
my $options = shift;
my @names = @_;
Cnutt::Feed::Actions::Fetch::fetch($options, @names);
} |
| combine_4.005 | Combine::LoadTermList | show |
| sub SaveTermListSQL {
my ($self, $databasehandle) = @_;
$databasehandle->do(qq{DELETE FROM topicdefinition;});
my $sth = $databasehandle->prepare(qq{INSERT INTO topicdefinition (term,class,weight) VALUES(?,?,?);});
foreach my $i (0 .. $#{$se... |
| combine_4.005 | Combine::selurl | show |
| sub cleanquery
{
my($query, %opt) = @_;
my $unique = $opt{'unique'} || 'kvpairs';
my %sessid;
if($opt{'cleansessions'} == 1)
{
my $c = Combine::Config::Get('url');
%sessid = %{$c->{'sessionids'}};
}
my $cleaned= '';
... |
| cyrillic-1.05 | Convert::Cyrillic | show |
| sub toUpper {
my ($s, $Code) = @_;
$Code = uc ($Code);
if (exists $UCase {$Code} and exists $LCase {$Code}) {
eval ("\$s =~ tr/$LCase{$Code}/$UCase{$Code}/");
}
$s;
} |
| cyrillic-1.05 | Convert::Cyrillic::Utils | show |
| sub Platform2DefEncoding {
my ($platform) = @_;
$encoding = '';
$encoding = 'win' if $platform=~/WIN/io;
$encoding = 'mac' if $platform eq 'MAC';
$encoding = 'koi' if $platform eq 'UNIX';
$encoding = 'dos' if $platform eq 'OS2';
$encoding = 'nocs' ... |
| dbMan-0.37 | DBIx::dbMan::MemPool | show |
| sub get_register {
my $obj = shift;
my $name = shift;
return () unless exists $obj->{-registers};
return () unless exists $obj->{-registers}->{$name};
return keys %{$obj->{-registers}->{$name}};
} |
| dbMan-0.37 | DBIx::dbMan::Extension | show |
| sub handle_action {
my ($obj,%action) = @_;
$action{processed} = 1;
return %action;
} |
| dbMan-0.37 | DBIx::dbMan::Interface | show |
| sub current_line {
my $obj = shift;
return '';
} |
| dbMan-0.37 | DBIx::dbMan::DBI | show |
| sub discard_profile_data {
my $obj = shift;
return unless $obj->{current};
} |
| dbMan-0.37 | DBIx::dbMan::History | show |
| sub reverse_search {
my ($obj,$pattern,$dec) = @_;
$dec = 0 unless defined $dec;
my $curr = $obj->{position}-$dec;
while ($curr >= 0) {
if ($obj->{buffer}->[$curr] =~ /$pattern/i) {
$obj->{position} = $curr;
return $obj->{bu... |
| dbMan-0.37 | DBIx::dbMan::Lang | show |
| sub str {
my $obj = shift;
my $str = join '',@_;
return gettext $str;
} |
| dbMan-0.37 | DBIx::dbMan::Config | show |
| sub AUTOLOAD {
my $obj = shift;
$AUTOLOAD =~ s/^DBIx::dbMan::Config:://;
my $res = $obj->{config}->{$AUTOLOAD};
if (defined $res) {
if (ref $res and scalar @$res > 1) {
return wantarray ? @$res : $res;
} else {
return wantarray ? @... |
| dbMan-0.37 | DBIx::dbMan::Interface::tkgui | show |
| sub can_pager {
return 0;
} |
| dbMan-0.37 | DBIx::dbMan::Interface::cmdline | show |
| sub get_key {
my $obj = shift;
ReadMode 3;
my $seq = '';
while (1) {
my $key = ReadKey(0);
$key = '\e' if ord $key == 0x1b;
$seq .= $key;
if ($seq =~ /^\\e/) {
last if $seq =~ /^\\e\[(\d+)~/ ||
$seq =~ /^\\e\[\[?[A-Z]/ ||
$seq =... |
| dbMan-0.37 | DBIx::dbMan::Interface::curses | show |
| sub current_line {
my $obj = shift;
return $obj->{sqleditor}->get();
} |
| dbMan-0.37 | DBIx::dbMan::Extension::Describe | show |
| sub handle_action {
my ($obj,%action) = @_;
if ($action{action} eq 'DESCRIBE') {
$action{action} = 'NONE';
unless ($obj->{-dbi}->current) {
$obj->{-interface}->error("No current connection selected.");
return %action;
}
if ($... |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdDescribe | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
return () unless $obj->{-dbi}->current;
return $obj->listoftables if $line =~ /^\s*(DESCRIBE|\\d)\s+\S*$/i;
return qw/DESCRIBE/ if $line =~ /^\s*[A-Z]*$/i;
return ('d') if $line =~ /^\s*\\... |
| dbMan-0.37 | DBIx::dbMan::Extension::Eval | show |
| sub handle_action {
my ($obj,%action) = @_;
if ($action{action} eq 'EVAL') {
if ($action{type} eq 'perl') {
my $code = $action{what};
eval $code;
$action{action} = 'OUTPUT';
$action{output} = $@ || '';
} elsif ($action{type} eq 'system'... |
| dbMan-0.37 | DBIx::dbMan::Extension::Clear | show |
| sub handle_action {
my ($obj,%action) = @_;
if ($action{action} eq 'SCREEN') {
if ($action{operation} eq 'clear') {
$obj->{-interface}->clear_screen();
$action{action} = 'NONE';
}
}
$action{processed} = 1;
return %action;
} |
| dbMan-0.37 | DBIx::dbMan::Extension::OracleSQL | show |
| sub handle_action {
my ($obj,%action) = @_;
if ($action{action} eq 'COMMAND' and $obj->{-dbi}->driver eq 'Oracle') {
$action{processed} = 1;
$obj->{-dbi}->set('LongTruncOk',1);
if ($obj->{-mempool}->get('dbms_output')) {
$obj... |
| dbMan-0.37 | DBIx::dbMan::Extension::MacroWorks | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
my @macros = @{$obj->{-mempool}->get('macros')};
return () unless @macros;
my @names = ();
for (@macros) {
s#^s/##;
s#/([ige])?$##;
s#^(.+)(?!\\)/.*$#$1#;
push @names,$_ if $_;
}
... |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdLongSQL | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
return () if $obj->{-mempool}->get('long_active_complete');
if ($obj->{-mempool}->get('long_active')) {
my @base = (); my @res = ();
@base = ('g') if $line =~ /^\s*\\[A-Z]*$/i;
unl... |
| dbMan-0.37 | DBIx::dbMan::Extension::EditObjects | show |
| sub handle_action {
my ($obj,%action) = @_;
$action{processed} = 1;
if ($action{action} eq 'EDIT_OBJECT' and not $action{type}) {
$action{action} = 'NONE';
unless ($obj->{-dbi}->current) {
$obj->{-interface}->error("No current conne... |
| dbMan-0.37 | DBIx::dbMan::Extension::Connections | show |
| sub handle_action {
my ($obj,%action) = @_;
if ($action{action} eq 'CONNECTION') {
if ($action{operation} eq 'open') {
my $error = $obj->{-dbi}->open($action{what});
$action{action} = 'OUTPUT';
$action{output} = $obj->solve_open_err... |
| dbMan-0.37 | DBIx::dbMan::Extension::GUI | show |
| sub handle_action {
my ($obj,%action) = @_;
if ($action{action} eq 'COMMAND' and not $action{gui_tested}
and $obj->{-mempool}->get('gui')) {
++$action{gui};
delete $action{processed};
} else {
$action{processed} = 1;
}
++$action{gui_... |
| dbMan-0.37 | DBIx::dbMan::Extension::AutoSQL | show |
| sub handle_action {
my ($obj,%action) = @_;
if ($action{action} eq 'AUTO_SQL') {
$action{action} = 'OUTPUT';
$action{output} = '';
my $current = $obj->{-dbi}->current;
$obj->{-dbi}->set_current($action{connection});
my $asql = $... |
| dbMan-0.37 | DBIx::dbMan::Extension::ClipboardInfo | show |
| sub handle_action {
my ($obj,%action) = @_;
$action{processed} = 1;
if ($action{action} eq 'OUTPUT' and $action{output_info}) {
$action{output} .= $action{output_info};
}
return %action;
} |
| dbMan-0.37 | DBIx::dbMan::Extension::DescribePg | show |
| sub handle_action {
my ($obj,%action) = @_;
if ($action{action} eq 'DESCRIBE' and $obj->{-dbi}->driver eq 'Pg' and not $action{oper}) {
$action{action} = 'NONE';
unless ($obj->{-dbi}->current) {
$obj->{-interface}->error("No cu... |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdSetAllowSystemTables | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
return qw/ON OFF/ if $line =~ /^\s*SET\s+ALLOW\s+SYSTEM\s+TABLES\s+\S*$/i;
return qw/TABLES/ if $line =~ /^\s*SET\s+ALLOW\s+SYSTEM\s+\S*$/i;
return qw/SYSTEM/ if $line =~ /^\s*SET\s+ALLOW\s+\S*$/i;
... |
| dbMan-0.37 | DBIx::dbMan::Extension::GuiLoadExtension | show |
| sub handle_action {
my ($obj,%action) = @_;
if ($action{action} eq 'GUI') {
if ($action{operation} eq 'load_extension') {
if ($obj->{-interface}->can('is_curses')
and $obj->{-interface}->is_curses()) {
$action{action} = 'NONE';... |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdClear | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
return qw/SCREEN/ if $line =~ /^\s*CLEAR\s+\S*$/i;
return qw/CLEAR/ if $line =~ /^\s*[A-Z]*$/i;
return ();
} |
| dbMan-0.37 | DBIx::dbMan::Extension::Format | show |
| sub handle_action {
my ($obj,%action) = @_;
if (exists $action{old_output_format}) {
$obj->{-mempool}->set('output_format',$action{old_output_format});
}
$action{processed} = 1;
return %action;
} |
| dbMan-0.37 | DBIx::dbMan::Extension::InputCSV | show |
| sub handle_action {
my ($obj,%action) = @_;
if ($action{action} eq 'CSV_IN') {
$action{action} = 'NONE';
my $csv = new Text::CSV_XS { quote_char => $action{opt_quote},
eol => $action{opt_eol}, binary => 1,
sep_char => $action{opt_... |
| dbMan-0.37 | DBIx::dbMan::Extension::TrimCmd | show |
| sub handle_action {
my ($obj,%action) = @_;
if ($action{action} eq 'COMMAND') {
return %action if $action{cmd} =~ s/^\s+//;
return %action if $action{cmd} =~ s/\s+$//;
}
$action{processed} = 1;
return %action;
} |
| dbMan-0.37 | DBIx::dbMan::Extension::KeyBindings | show |
| sub handle_action {
my ($obj,%action) = @_;
if ($action{action} eq 'KEYS') {
if ($action{operation} eq 'clear') {
$obj->clear_keys;
my $add = '';
$add = 'permanently ' if ($action{permanent} and unlink $obj->keysfile);
$action{actio... |
| dbMan-0.37 | DBIx::dbMan::Extension::EditLine | show |
| sub handle_action {
my ($obj,%action) = @_;
$action{processed} = 1;
if ($action{action} eq 'EDIT_LINE') {
$action{what} = $obj->{-interface}->current_line() if $action{get_what};
my $text = $action{what} || '';
my $editor = $ENV{DBMAN_EDIT... |
| dbMan-0.37 | DBIx::dbMan::Extension::SQLOutputCube | show |
| sub handle_action {
my ($obj,%action) = @_;
$action{processed} = 1;
if ($action{action} eq 'SQL_OUTPUT') {
if ($obj->{-mempool}->get('output_format') eq 'cube') {
my %cube = ();
my %fields = ();
for (@{$action{result}})... |
| dbMan-0.37 | DBIx::dbMan::Extension::OutputPager | show |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdMacros | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
return qw/PERMANENT/ if $line =~ /^\s*(CLEAR|ERASE)\s+MACROS\s+\S*$/i;
return qw/MACROS/ if $line =~ /^\s*(SHOW|CLEAR|ERASE|RELOAD)\s+\S*$/i;
return qw/MACRO/ if $line =~ /^\s*(UN)?DEF(INE)?\s+\S*$/... |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdTransaction | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
return () unless $obj->{-dbi}->current;
return ('tc','tr','ta') if $line =~ /^\s*\\[A-Z]*$/i and $obj->{-dbi}->in_transaction;
return ('tb') if $line =~ /^\s*\\[A-Z]*$/i and not $obj->... |
| dbMan-0.37 | DBIx::dbMan::Extension::OutputQuiet | show |
| sub handle_action {
my ($obj,%action) = @_;
$action{processed} = 1;
$action{action} = 'NONE' if $action{action} eq 'OUTPUT' && $action{output_quiet};
return %action;
} |
| dbMan-0.37 | DBIx::dbMan::Extension::DeviceOutput | show |
| sub handle_action {
my ($obj,%action) = @_;
if ($action{action} eq 'OUTPUT' and $action{output_device}) {
$action{output_device} = ">>$action{output_device}" if $action{output_device} !~ /^[|>]./;
if (open F,$action{output_device}) {
pr... |
| dbMan-0.37 | DBIx::dbMan::Extension::CountPre | show |
| sub handle_action {
my ($obj,%action) = @_;
$action{processed} = 1;
if ($action{action} eq 'COUNT' and $obj->{-dbi}->current) {
if ($action{count_re}) {
my $sth = $obj->{-dbi}->table_info();
my $ret = $sth->fetchall_arrayref();
... |
| dbMan-0.37 | DBIx::dbMan::Extension::SQLOutputNULL | show |
| sub handle_action {
my ($obj,%action) = @_;
$action{processed} = 1;
if ($action{action} eq 'SQL_OUTPUT' and $obj->{-mempool}->get('output_format') ne 'plain' and $obj->{-mempool}->get('output_format') ne 'insert') {
for my $outer (@{$act... |
| dbMan-0.37 | DBIx::dbMan::Extension::SimpleMacros | show |
| sub handle_action {
my ($obj,%action) = @_;
$action{processed} = 1;
if ($action{action} eq 'COMMAND') {
my @macros = @{$obj->{-mempool}->get('macros')};
if (@macros) {
my $cmd = $action{cmd};
unless ($cmd =~ /^undef(ine)?(\s+macro)?\s+... |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdInputCSV | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
return () unless $obj->{-dbi}->current;
return $obj->restart_complete($text,$1,$start-(length($line)-length($1))) if $line =~ /^\s*\\csvin(?:\[.*?\])?\s*\(.+?\)\s+(.*)$/i;
return $obj->{... |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdEditObjects | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
return qw/ON OFF/ if $line =~ /^\s*SET\s+EDIT\s+OBJECT\s+ERRORS\s+\S*$/i;
return qw/ERRORS/ if $line =~ /^\s*SET\s+EDIT\s+OBJECT\s+\S*$/i;
return qw/OBJECT/ if $line =~ /^\s*SET\s+EDIT\s+\S*$/i;
re... |
| dbMan-0.37 | DBIx::dbMan::Extension::DescribeCompleteOracle | show |
| sub handle_action {
my ($obj,%action) = @_;
if ($action{action} eq 'DESCRIBE' and $action{oper} eq 'complete' and $obj->{-dbi}->driver eq 'Oracle') {
$action{action} = 'NONE';
unless ($obj->{-dbi}->current) {
$obj->{-interface}-&g... |
| dbMan-0.37 | DBIx::dbMan::Extension::SQLOutputHTML | show |
| sub handle_action {
my ($obj,%action) = @_;
$action{processed} = 1;
if ($action{action} eq 'SQL_OUTPUT') {
if ($obj->{-mempool}->get('output_format') eq 'html') {
my $output = "<TABLE>\n<TR>";
$output .= join '',map { "<TH... |
| dbMan-0.37 | DBIx::dbMan::Extension::Quit | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
return qw/q/ if $line =~ /^\s*\\[A-Z]*$/i;
return qw/QUIT EXIT LOGOUT \q/ if $line =~ /^\s*[A-Z]*$/i;
return ();
} |
| dbMan-0.37 | DBIx::dbMan::Extension::SQLOutputOldTable | show |
| sub handle_action {
my ($obj,%action) = @_;
$action{processed} = 1;
if ($action{action} eq 'SQL_OUTPUT') {
if ($obj->{-mempool}->get('output_format') =~ /^(oldtable|sqlplus|records)$/) {
my @widths = ();
for ($action{fieldnames},@{$actio... |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdSetHorizScrollBar | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
return qw/ON OFF/ if $line =~ /^\s*SET\s+HORIZ(ONTAL)?(\s+SCROLLBAR)?\s+\S*$/i;
return qw/SCROLLBAR/ if $line =~ /^\s*SET\s+HORIZ(ONTAL)?\s+\S*$/i;
return qw/HORIZONTAL/ if $line =~ /^\s*SET\s+\S*$/... |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdSetGUI | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
return qw/ON OFF/ if $line =~ /^\s*SET\s+GUI\s+\S*$/i;
return qw/GUI/ if $line =~ /^\s*SET\s+\S*$/i;
return qw/SET/ if $line =~ /^\s*[A-Z]*$/i;
return ();
} |
| dbMan-0.37 | DBIx::dbMan::Extension::Extensions | show |
| sub handle_action {
my ($obj,%action) = @_;
$action{processed} = 1;
if ($action{action} eq 'EXTENSION') {
if ($action{operation} eq 'show') {
my $table = new Text::FormatTable '| r | l | l |';
$table->rule;
$table->head('PRI','NAME','... |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdEval | show |
| sub cmdhelp {
my $obj = shift;
return [ 'EVAL <commands>' => 'Evaluate Perl commands',
'SYSTEM <command>' => 'Evaluate shell expression' ];
} |
| dbMan-0.37 | DBIx::dbMan::Extension::SQLShowResult | show |
| sub handle_action {
my ($obj,%action) = @_;
$action{processed} = 1;
if ($action{action} eq 'SQL_RESULT') {
if ($action{type} eq 'select') {
$action{action} = 'SQL_OUTPUT';
unless ($obj->{-mempool}->get('output_format')) {
my @all_for... |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdHistory | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
return qw/HISTORY/ if $line =~ /^\s*(SHOW|CLEAR)\s+\S*$/i;
return qw/SHOW CLEAR/ if $line =~ /^\s*[A-Z]*$/i;
return ();
} |
| dbMan-0.37 | DBIx::dbMan::Extension::EditOracle | show |
| sub handle_action {
my ($obj,%action) = @_;
$action{processed} = 1;
if ($action{action} eq 'EDIT' and $obj->{-dbi}->driver eq 'Oracle') {
if ($action{testerror}) {
$action{action} = 'NONE';
my $d = $obj->{-dbi}->selectall_arrayref(... |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdSetLineNumbers | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
return qw/ON OFF/ if $line =~ /^\s*SET\s+LINE\s+NUMBERING\s+\S*$/i;
return qw/NUMBERING/ if $line =~ /^\s*SET\s+LINE\s+\S*$/i;
return qw/LINE/ if $line =~ /^\s*SET\s+\S*$/i;
return qw/SET/ if $line... |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdSetDBMS | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
return qw/ON OFF/ if $line =~ /^\s*SET\s+SERVER\s+OUTPUT\s+\S*$/i;
return qw/OUTPUT/ if $line =~ /^\s*SET\s+SERVER\s+\S*$/i;
return qw/SERVER/ if $line =~ /^\s*SET\s+\S*$/i;
return qw/SET/ if $line... |
| dbMan-0.37 | DBIx::dbMan::Extension::SQLOutputInsert | show |
| sub handle_action {
my ($obj,%action) = @_;
$action{processed} = 1;
if ($action{action} eq 'SQL_OUTPUT') {
if ($obj->{-mempool}->get('output_format') eq 'insert') {
my $begin = 'INSERT INTO new_table ('.join(',',@{$action{fieldnames}}).') V... |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdEditLine | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
return ('\e') if $line =~ /^\s*$/i;
return ('e') if $line =~ /^\s*\\[A-Z]*$/i;
return ();
} |
| dbMan-0.37 | DBIx::dbMan::Extension::Transaction | show |
| sub done {
my $obj = shift;
$obj->{-interface}->deregister_prompt($obj->{-prompt_num});
for (@{$obj->{-dbi}->list('active')}) {
my $name = $_->{name};
$obj->{-dbi}->set_current($name);
if ($obj->{-dbi}->in_trans... |
| dbMan-0.37 | DBIx::dbMan::Extension::TotalCount | show |
| sub handle_action {
my ($obj,%action) = @_;
$action{processed} = 1;
if ($action{action} eq 'OUTPUT' and $action{type} eq 'select' and $action{sql} and $obj->{-mempool}->get('total_count') and defined $action{result}) {
my $num = scalar @{$acti... |
| dbMan-0.37 | DBIx::dbMan::Extension::GuiInputFile | show |
| sub handle_action {
my ($obj,%action) = @_;
if ($action{action} eq 'GUI') {
if ($action{operation} eq 'input_sql_file') {
if ($obj->{-interface}->can('is_curses')
and $obj->{-interface}->is_curses()) {
$action{action} = 'NONE';... |
| dbMan-0.37 | DBIx::dbMan::Extension::SQLOutputPlain | show |
| sub handle_action {
my ($obj,%action) = @_;
$action{processed} = 1;
if ($action{action} eq 'SQL_OUTPUT') {
if ($obj->{-mempool}->get('output_format') eq 'plain') {
my $output = join ',',@{$action{fieldnames}};
$output .= "\n";
my @lit... |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdSetTotalCount | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
return qw/ON OFF/ if $line =~ /^\s*SET\s+TOTAL\s+COUNT\s+\S*$/i;
return qw/COUNT/ if $line =~ /^\s*SET\s+TOTAL\s+\S*$/i;
return qw/TOTAL/ if $line =~ /^\s*SET\s+\S*$/i;
return qw/SET/ if $line =~ /... |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdKeyBindings | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
return qw/PERMANENT/ if $line =~ /^\s*(CLEAR|ERASE)\s+KEYS\s+\S*$/i;
return qw/FOR/ if $line =~ /^\s*DEFINE\s+KEY\s+\S*$/i;
return qw/KEYS/ if $line =~ /^\s*(SHOW|CLEAR|ERASE|RELOAD)\s+\S*$/i;
retu... |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdOutputToFile | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
return $obj->restart_complete($text,$1,$start-(length($line)-length($1))) if $line =~ /^\s*\\sc?\s*\(.+?\)\s+(.*)$/i;
return $obj->{-interface}->filenames_complete($text,$line,$start) if $li... |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdConnections | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
return $obj->connectionlist(lc $1) if $line =~ /^\s*(REOPEN|OPEN|CLOSE|USE|DROP\s+(PERMANENT\s+)?CONNECTION)\s+\S*$/i;
return qw/AUTOOPEN/ if $line =~ /^\s*CREATE\s+(PERMANENT\s+)?CONNECTION\s+\S+... |
| dbMan-0.37 | DBIx::dbMan::Extension::Output | show |
| sub handle_action {
my ($obj,%action) = @_;
if ($action{action} eq 'OUTPUT') {
$obj->{-interface}->print($action{output});
$action{action} = 'NONE';
}
$action{processed} = 1;
return %action;
} |
| dbMan-0.37 | DBIx::dbMan::Extension::LineComplete | show |
| sub handle_action {
my ($obj,%action) = @_;
if ($action{action} eq 'LINE_COMPLETE') {
$action{list} = [];
my %maybe = ();
for my $ext (@{$obj->{-core}->{extensions}}) {
if ($ext->can('cmdcomplete')) {
study "\Q$action{text}";
... |
| dbMan-0.37 | DBIx::dbMan::Extension::InputFile | show |
| sub handle_action {
my ($obj,%action) = @_;
if ($action{action} eq 'INPUT_FILE') {
$action{action} = 'NONE';
unless (open F,$action{file}) {
$obj->{-interface}->error("Can't load input file $action{file}.");
return %action;
}
while ... |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdInputFile | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
return $obj->{-interface}->filenames_complete($text,$line,$start) if $line =~ /^\s*(\\i\s+|@)/;
return ('\i','@') if $line =~ /^\s*$/i;
return ('i') if $line =~ /^\s*\\[A-Z]*$/i;
return ();
} |
| dbMan-0.37 | DBIx::dbMan::Extension::BenchmarkStop | show |
| sub handle_action {
my ($obj,%action) = @_;
if ($action{benchmark_starttime}) {
my $time;
if ($obj->{hires}) {
eval q{
$time = tv_interval($action{benchmark_starttime},[ gettimeofday ]);
};
} else {
$time = time-$action{benchmark_... |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdComments | show |
| dbMan-0.37 | DBIx::dbMan::Extension::HelpCommands | show |
| sub handle_action {
my ($obj,%action) = @_;
if ($action{action} eq 'HELP') {
if ($action{type} eq 'commands') {
my @help = ();
for my $ext (@{$obj->{-core}->{extensions}}) {
if ($ext->can('cmdhelp')) {
my %h = @{$ext->cmdhe... |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdFormat | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
return $obj->restart_complete($text,$1,$start-(length($line)-length($1))) if $line =~ /^\s*\\f\s*\(.+?\)\s+(.*)$/i;
return $obj->formatlist if $line =~ /^\s*\\f\s*\(\s*\S*$/i;
return $o... |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdSetTracing | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
return qw/ON OFF/ if $line =~ /^\s*SET\s+TRACING\s+\S*$/i;
return qw/TRACING/ if $line =~ /^\s*SET\s+\S*$/i;
return qw/SET/ if $line =~ /^\s*[A-Z]*$/i;
return ();
} |
| dbMan-0.37 | DBIx::dbMan::Extension::ShowTables | show |
| sub handle_action {
my ($obj,%action) = @_;
if ($action{action} eq 'SHOW_TABLES') {
$action{action} = 'NONE';
unless ($obj->{-dbi}->current) {
$obj->{-interface}->error("No current connection selected.");
return %action;
}
m... |
| dbMan-0.37 | DBIx::dbMan::Extension::History | show |
| sub handle_action {
my ($obj,%action) = @_;
if ($action{action} eq 'HISTORY') {
if ($action{operation} eq 'show') {
my $table = new Text::FormatTable '| r l |';
$table->rule;
my $i = 1;
my $history = new DBIx::dbMan::History -config =&... |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdPager | show |
| dbMan-0.37 | DBIx::dbMan::Extension::Authors | show |
| sub handle_action {
my ($obj,%action) = @_;
if ($action{action} eq 'AUTHORS') {
my %authors = ();
for my $ext (@{$obj->{-core}->{extensions}}) {
my $id = $ext->IDENTIFICATION;
$id =~ s/-.*//;
++$authors{$id};
if ($ext->can('... |
| dbMan-0.37 | DBIx::dbMan::Extension::GuiCreateConnection | show |
| sub handle_action {
my ($obj,%action) = @_;
if ($action{action} eq 'GUI') {
if ($action{operation} eq 'create_connection') {
if ($obj->{-interface}->can('is_curses')
and $obj->{-interface}->is_curses()) {
$action{action} = 'NON... |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdExtensions | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
return qw/ID NAME PREFERENCE/ if $line =~ /^\s*SHOW\s+EXTENSIONS?\s+BY\s+\S*$/i;
return qw/BY/ if $line =~ /^\s*SHOW\s+EXTENSIONS?\s+\S*$/i;
return qw/EXTENSIONS/ if $line =~ /^\s*SHOW\s+\S*$/i;
re... |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdSetOutputFormat | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
return $obj->formatlist if $line =~ /^\s*SET\s+OUTPUT\s+FORMAT\s+TO\s+\S*$/i;
return qw/TO/ if $line =~ /^\s*SET\s+OUTPUT\s+FORMAT\s+\S*$/i;
return qw/FORMAT/ if $line =~ /^\s*SET\s+OUTPUT\s+\S*$... |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdHelp | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
return qw/VERSION LICENSE/ if $line =~ /^\s*SHOW\s+[A-Z]*$/i;
return qw/HELP SHOW/ if $line =~ /^\s*[A-Z]*$/i;
return ();
} |
| dbMan-0.37 | DBIx::dbMan::Extension::BenchmarkStart | show |
| sub handle_action {
my ($obj,%action) = @_;
if ($action{action} eq 'COMMAND' and
$obj->{-mempool}->get('benchmark') and
not $action{benchmark_starttime}) {
if ($obj->{hires}) {
eval q{
$action{benchmark_starttime} = [ gettimeof... |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdCount | show |
| sub cmdhelp {
my $obj = shift;
return [ 'COUNT <table>,...' => 'Select base statistics of tables',
'COUNTRE <re>' => 'COUNT on table name fit to RE' ] if $obj->{-dbi}->current;
return [];
} |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdStandardSQL | show |
| sub cmdhelp {
my $obj = shift;
my $helps = ['EXPLAIN PLAN FOR <select>' => 'Explain (Oracle) plan for executing query <select>'];
push @$helps,('EXECUTE <plsql>' => 'Execute PL/SQL code') if $obj->{-dbi}->driver eq 'Oracl... |
| dbMan-0.37 | DBIx::dbMan::Extension::EditObjectsOracle | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
return () unless $obj->{-dbi}->current;
return $obj->objectlist('PACKAGE BODY') if $line =~ /^\s*EDIT\s+PACKAGE\s+BODY\s+\S*$/i;
return ('BODY',$obj->objectlist('PACKAGE')) if $line =~ /... |
| dbMan-0.37 | DBIx::dbMan::Extension::LineNumbers | show |
| sub handle_action {
my ($obj,%action) = @_;
$action{processed} = 1;
if ($action{action} eq 'SQL_OUTPUT' and $obj->{-mempool}->get('line_numbers') and $obj->{-mempool}->get('output_format') ne 'insert') {
my $i = 0;
for my $line (@{$act... |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdShowErrors | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
return unless $obj->{-dbi}->current;
return unless $obj->{-dbi}->driver eq 'Oracle';
return qw/ERRORS/ if $line =~ /^\s*SHOW\s+\S*$/i;
return qw/SHOW/ if $line =~ /^\s*[A-Z]*$/i;
retur... |
| dbMan-0.37 | DBIx::dbMan::Extension::EditFallback | show |
| sub handle_action {
my ($obj,%action) = @_;
$action{processed} = 1;
if ($action{action} eq 'EDIT_OBJECT') {
$action{action} = 'OUTPUT';
$action{output} = "I can't edit $action{what}".($action{type}?" (type $action{type})":"").".\n";
delete $act... |
| dbMan-0.37 | DBIx::dbMan::Extension::Fallback | show |
| sub handle_action {
my ($obj,%action) = @_;
$action{processed} = 1;
$action{action} = 'NONE' if $action{action} eq 'IDLE';
if ($action{action} eq 'COMMAND') {
$action{action} = 'OUTPUT';
$action{output} = "Unknown command.\n";
delete $action{... |
| dbMan-0.37 | DBIx::dbMan::Extension::CountPost | show |
| sub handle_action {
my ($obj,%action) = @_;
$action{processed} = 1;
if ($action{count_process} eq '1') {
delete $action{processed};
delete $action{count_process};
my $oldaction = $action{action};
$action{action} = 'COUNT';
$action{sql} = uc ... |
| dbMan-0.37 | DBIx::dbMan::Extension::SQLResultPreprocess | show |
| sub handle_action {
my ($obj,%action) = @_;
$action{processed} = 1;
if ($action{action} eq 'SQL_RESULT' and not $action{sql_result_preprocess} and ref $action{result} eq 'ARRAY') {
@$_ = map { (defined) ? join '',(map { ($_ >= 32 && $_ <= 254 ... |
| dbMan-0.37 | DBIx::dbMan::Extension::Clipboard | show |
| sub handle_action {
my ($obj,%action) = @_;
$action{processed} = 1;
if ($action{action} eq 'SQL_RESULT' and $action{copy_to_clipboard} and ref $action{result} eq 'ARRAY') {
delete $action{copy_to_clipboard};
if ($action{union_clipboard}) {
my $... |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdSQLHelp | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
return ('\h') if $line =~ /^\s*$/i;
return ('h') if $line =~ /^\s*\\[A-Z]*$/i;
return ();
} |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdSetBenchmark | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
return qw/ON OFF/ if $line =~ /^\s*SET\s+BENCHMARK\s+\S*$/i;
return qw/BENCHMARK/ if $line =~ /^\s*SET\s+\S*$/i;
return qw/SET/ if $line =~ /^\s*[A-Z]*$/i;
return ();
} |
| dbMan-0.37 | DBIx::dbMan::Extension::SQLHelp | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
return sort keys %{$obj->{lines}} if $line =~ /^\s*\\h\s+[A-Z]*$/i;
return ();
} |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdShowTables | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
return () unless $obj->{-dbi}->current;
return qw/OBJECTS TABLES VIEWS SEQUENCES/ if $line =~ /^\s*SHOW\s+\S*$/i;
return ('SHOW','\dt') if $line =~ /^\s*$/;
return ('dt') if $line =~ /^\s*\\[... |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdClipboard | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
return $obj->restart_complete($text,$1,$start-(length($line)-length($1))) if $line =~ /^\s*\\(?:copy|unioncopy|paste)\s*\(.+?\)\s+(.*)$/i;
return ('CLIPBOARD') if $line =~ /^\s*SHOW\s+/i;
return ... |
| dbMan-0.37 | DBIx::dbMan::Extension::CmdAuthors | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
return qw/AUTHORS/ if $line =~ /^\s*[A-Z]*$/i;
return ();
} |
| dbMan-0.37 | DBIx::dbMan::Extension::SQLOutputTable | show |
| sub handle_action {
my ($obj,%action) = @_;
$action{processed} = 1;
if ($action{action} eq 'SQL_OUTPUT') {
my $table = new Text::FormatTable ('|'.( 'l|' x scalar @{$action{fieldnames}} ));
$table->rule;
$table->head(@{$action{fieldnames}}... |
| dbMan-0.37 | DBIx::dbMan::Extension::ShowTablesOracle | show |
| sub handle_action {
my ($obj,%action) = @_;
if ($action{action} eq 'SHOW_TABLES' and $obj->{-dbi}->driver eq 'Oracle') {
my $table = new Text::FormatTable '| l | l |';
$table->rule;
$table->head('NAME','TYPE');
$table->rule;
m... |
| dbMan-0.37 | DBIx::dbMan::Extension::StandardSQL | show |
| sub handle_action {
my ($obj,%action) = @_;
$action{processed} = 1;
if ($action{action} eq 'SQL') {
if ($action{oper} eq 'complete') {
$action{action} = 'NONE';
$action{type} = 'object' if lc $action{type} eq 'context';
if ($action{what} e... |
| dbMan-0.37 | DBIx::dbMan::Extension::SQLOracleOutput | show |
| sub handle_action {
my ($obj,%action) = @_;
$action{processed} = 1;
if ($action{action} eq 'OUTPUT' and $obj->{-dbi}->driver eq 'Oracle' and $action{oracle_dbms}) {
my $dbms = join "\n",$obj->{-dbi}->func('dbms_output_get');
$dbms = "D... |
| dbsh-0.01 | dbsh::Panel | show |
| sub cd {
my $obj = shift;
my $item = shift;
my $data = $obj->{list}->info('data',$item);
if ($data =~ /\/$/) {
$obj->{cwd} = $data;
$obj->ls;
}
} |
| dotReader-v0.11.2 | test_lib::server | show |
| sub new {
my $self = shift;
my (%args) = @_;
$self->SUPER::new(
port => $self->USE_PORT,
%args
);
} |
| dotReader-v0.11.2 | dtRdr::GUI::Wx::Plugins::InfoButton | show |
| sub init {
my $package = shift;
my ($frame) = @_;
my $data_dir = $package->DATA_DIR;
my %infos = $package->load_yml_files($data_dir);
foreach my $item (keys(%infos)) {
my $info = $infos{$item};
my $url = $info->{url};
my $i... |
| dvdrip-0.98.11 | Video::DVDRip::TranscodeRC | show |
| sub quit {
my $self = shift;
$self->send ( line => "quit" );
1;
} |
| ePortal-4.5 | ePortal::MethodMaker | show |
| sub import
{
my $caller = caller;
shift;
my %p = @_;
if ($p{read_only})
{
foreach my $ro ( ref $p{read_only} ? @{ $p{read_only} } : $p{read_only} )
{
no strict 'refs';
*{"$caller\::$ro"} = sub { return shift->{$ro} };
... |
| extproc_perl-2.51 | ExtProc::Util | show |
| sub substitute
{
my ($string, $pattern, $replace) = @_;
if ($string =~ /(.*)/) {
$string = $1;
}
if ($pattern =~ /(.*)/) {
$pattern = $1;
}
if ($replace =~ /(.*)/) {
$replace = $1;
}
if ($pattern e... |
| forks-0.34 | forks::shared | show |
| sub _croak { return &Carp::confess(shift) } |
| forks-0.34 | threads::shared::array | show |
| sub DELETE { delete ${$_[0]}->[$_[1]] } |
| forks-0.34 | threads::shared::scalar | show |
| sub STORE { ${${$_[0]}} = $_[1] } |
| forks-0.34 | threads::shared::hash | show |
| sub DELETE { delete ${$_[0]}->{$_[1]} } |
| forks-0.34 | threads::shared::handle | show |
| sub WRITE { syswrite( ${$_[0]},$_[1],$_[2],$_[3] ) } |
| former-0.2beta | ConfigFile | show |
| sub _cleanup
{
my ($str) = @_;
$str =~ /^"(.+)"$/o && return ($1);
$str =~ s/\s/ /og;
$str =~ tr/ / /s;
return ($str);
} |
| fwlog-1.3 | fwlog | show |
| sub Ipchains {
my $logline = $_[0];
my $source="";
my $destination="";
my $protocol="";
my $port="";
$logline =~ s/[ ]+/ /g;
$logline =~ /Packet\slog:\s\w+\s([\w\d\-_]+)/;
$protocol = $1;
... |
| go-perl-0.14 | GO::Model::Species | show |
| sub binomial {
my $self = shift;
return ($self->genus || "")." ".($self->species || "");
} |
| hp200lx-db-0.09 | HP200LX::DBgui::vpt | show |
| sub select_vpt
{
my $DBgui= shift;
my $lb= shift;
my $action= shift;
my $lb_idx= $lb->index ('active');
if ($action eq 'dump')
{
my $db= $DBgui->{db};
my $vptd= $db->find_viewptdef ($lb_idx);
&HP200LX::DB::vpt::show_viewp... |
| hp200lx-db-0.09 | HP200LX::DBgui::list | show |
| sub show_record
{
my ($DBlist, $num, $whence)= @_;
if ($whence == 2) { $DBlist->{disp}= $DBlist->{num} - $num; }
elsif ($whence == 1) { $DBlist->{disp} += $num; }
else { $DBlist->{disp}= $num; }
$num= $DBlist-... |
| htpl-3.14 | HTML::HTPL::Munge | show |
| sub AUTOLOAD {
my $save = $@;
$@ = undef;
my $index = rindex($AUTOLOAD, "::");
Carp::croak("Can't parse $AUTOLOAD") unless ($index > -1);
my $class = substr($AUTOLOAD, 0, $index);
my $method = substr($AUTOLOAD, $index + 2);
... |
| ifdef-0.09 | ifdef | show |
| sub import {
warn "The '".
__PACKAGE__.
"' pragma is not supposed to be called from source\n"
if ( (caller)[2] ) and ( $_[0] ne '_testing_' and !shift );
shift;
my @ignored;
foreach (@_) {
if ( m#^... |
| ldapsh-2.00 | Net::LDAP::Shell::Completion | show |
| sub maxCommon {
return '' unless scalar(@_);
my $firstElement = shift;
my $common = '';
for (my $i = 1; $i <= length($firstElement); $i++) {
my $str = substr($firstElement, 0, $i);
last if (grep {substr($_, 0, $i) ne $str} @_);
$common = $str... |
| libapreq2-2.13 | APR::Request::Custom | show |
| sub EXISTS {
my ($t, $key) = @_;
return defined $t->FETCH($key);
} |
| libapreq2-2.13 | APR::Request::Cookie | show |
| sub thaw { return shift->value } |
| llg-1.07 | Area | show |
| sub forward {
my $self = shift;
my $step = $_[0];
my $cape = $self->[2];
my $x = $step * cos($self->[2]*$K);
my $y = $step * sin($self->[2]*$K);
my $xo = $self->[0];
my $yo = $self->[1];
$self->[0] = $x... |
| load-0.23 | load | show |
| sub _can {
my ( $module, $sub )= @_;
return if $module eq 'main';
_scan( $module ) unless exists $load::AUTOLOAD{$module};
my ( $subline, $start, $length )=
unpack( 'w3', $load::AUTOLOAD{ $module, $sub } || '' );
return if !$s... |
| local-lib-deps-0.09 | Test::local::lib::deps | show |
| sub show_fails {
my ( $tmp ) = @_;
open( my $LOG, "<", "$tmp/build.out" );
print STDERR join( "", my @list = <$LOG> );
close( $LOG );
} |
| mGen-1.03 | Bio::mGen | show |
| sub mGen_codon2aa{
my ($seq,$start,%translate)=@_; my $res; $seq =~ s/\r?\n//g;
if ($seq=~/^($start)/) {$res='M';} else {$res=$translate{substr($seq,0,3)};}
for (my $i=3;$i<length($seq);$i+=3) {$res.=$translate{substr($seq,$i,3)};}
return $res;
} |
| math-image-109 | App::MathImage::RectByXY | show |
| sub next {
my ($self) = @_;
my $quad = $self->{'quad'};
my $x = $self->{'x'};
my $y = $self->{'y'};
for (;;) {
if ($quad == 1) {
$x--;
$y++;
if ($x >= 0 && $x >= $self->{'x_min'} && $y <= $self->{'y... |
| math-image-109 | App::MathImage::Gtk1::Main | show |
| sub command_line {
my ($class, $mathimage) = @_;
my $gen_options = $mathimage->{'gen_options'};
my $width = delete $gen_options->{'width'};
my $height = delete $gen_options->{'height'};
my $self = $class->new
(fullscreen =>... |
| mmm-0.43 | MMM::Utils | show |
| sub _setid {
my ($uid, $gid) = @_;
my ($olduid, $oldgid) = ($>, $));
if (defined($gid) && $) != $gid) {
$) = $gid;
if ($) != $gid) {
$oldgid = undef;
}
}
if (defined($uid) && $> != $uid) {
... |
| new.spirit-2.2.2 | NewSpirit::SqlShell::Text | show |
| sub get_screen_width {
my $self = shift;
my $screen_width = $self->get_preference('screen_width');
if ( not $screen_width ) {
eval {
require Term::ReadKey;
($screen_width) = Term::ReadKey::GetTerminalSize();
};
if ( $@ ) {
$self-&... |
| new.spirit-2.2.2 | NewSpirit::SqlShell::HTML | show |
| sub print_help_footer {
my $self = shift;
print "</pre><p>\n";
} |
| newslib-0.84 | News::Article::Ref | show |
| sub create_date {
my ($self, $time) = @_; $time ||= time;
my ($sec,$min,$hr,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);
my ($gsec,$gmin,$ghr,$gmday) = gmtime($time);
use integer;
$gmday = $mday + ($mday <=> $gmday) if (abs(... |
| nonsense-0.01 | nonsense | show |
| sub unimport {
my ($class, $command, @args) = @_;
my $into = caller;
strict->import;
warnings->import;
true->import;
namespace::autoclean->import(
-cleanee => $into,
);
return $into;
} |
| nvidia-ml-pl-4.304.1 | nvidia::smi | show |
| sub XmlDeviceQuery
{
my $ret = nvmlInit();
if ($ret != $NVML_SUCCESS)
{
return "nvmlInit(): " . nvmlErrorString($ret);
}
my $strResult = "";
$strResult .= "<?xml version=\"1.0\" ?>\n";
$strResult .= "<!DOCTYPE... |
| oEdtk-0.8032 | oEdtk::Messenger | show |
| sub oe_send_mail {
my ($to, $subject, @body) = @_;
my $cfg = config_read('MAIL');
$subject ||=$0;
$subject = $cfg->{'EDTK_TYPE_ENV'} . " - $subject ";
my $transport = Email::Sender::Transport::SMTP->new({
host => $cfg->{'EDTK_MAIL_SMTP... |
| ogd-0.03 | ogd | show |
| sub _destroy { } |
| onsearch-0.99 | OnSearch::Results | show |
| sub collate_results {
my $rlist = $_[0];
my $nresults = $_[1];
my $q = $_[2];
my ($i, $i_val, $n, %results, $word, $collated_rlist, $regex);
$regex = $q -> {displayregex};
foreach $i (@{$rlist}) {
($word) = ($i =~ m"($regex)... |
| onsearch-0.99 | OnSearch::Search | show |
| sub s_write {
my $session_id = shift;
my $buf = shift;
my ($name, $clientfh, $serverfh, $r, $buflength);
$name = '/tmp/.onsearch.sock.' . $session_id;
socket ($serverfh, PF_UNIX, SOCK_STREAM, 0) ||
die "OnSearch: s_write socket: $!";... |
| onsearch-0.99 | OnSearch::URL | show |
| sub local_url {
my $path = $_[0];
my $server_domain = $ENV{DOCUMENT_ROOT};
my $server_name = $ENV{SERVER_NAME};
my $server_port = $ENV{SERVER_PORT};
my $symlinks_ok = OnSearch::AppConfig->str ('HasSymLinks');
my ($sitepath, $ur... |
| optimize-0.05 | optimize::int | show |
| sub check {
my $class = shift;
my $op = shift;
my $mutate = 0;
if(exists($int{$op->name})) {
my $cv = $op->find_cv();
if(exists($optimize::pads{$cv->ROOT->seq}) &&
$optimize::pads{$cv->ROOT->seq}->[$op->targ]-... |
| p5-Palm-1.012 | Palm | show |
| sub mkpdbname {
my $name = shift;
$name =~ s![%/\x00-\x19\x7f-\xff]!sprintf("%%%02X",ord($&))!ge;
return $name;
} |
| pee-1.07 | Pee::FileRunner | show |
| sub write_scratch {
my ($dir, $filename, $buf) = @_;
return if (!-w $dir);
$filename =~ s/\//_/g;
open (SCRATCH, ">$dir/$filename") or warn "writing scratch: $!\n";
print SCRATCH $buf;
close (SCRATCH);
} |
| perl5i-v2.11.2 | perl5i::2 | show |
| sub force_list_context(@) {
return @_;
} |
| persona-0.12 | persona | show |
| sub _inc_handler {
my ( $self, $file )= @_;
if ( !$all and !first { $file =~ m#$_# } @only_for ) {
TELL 'Not handling %s', $file if DEBUG > 1;
return undef;
}
my $first= first { $INC[$_] eq $self } 0 .. $#INC;
die ... |
| pkg-0.03 | pkg | show |
| sub _die {
require Carp;
my $err = @_ > 1 ? sprintf( shift, @_ ) : $_[0];
Carp::croak( q[error in use pkg: ], $err );
} |
| psh-1.8 | Psh::Builtins::Elsif | show |
| sub bi_elsif {
return ($Psh::Builtins::If::last_success,undef) if $Psh::Builtins::If::last_success;
return Psh::Builtins::If::bi_if(@_);
} |
| psh-1.8 | Psh::Builtins::Else | show |
| sub bi_else {
my @words=@{$_[1]};
return ($Psh::Builtins::If::last_success,undef) if $Psh::Builtins::If::last_success;
return Psh::evl(Psh::Parser::ungroup(shift @words));
} |
| ptkFAQ-0_03 | Dial | show |
| sub setvalue {
my $c = shift;
my $w = $c->parent;
my $value = $w->{-value};
my ($margin, $radius, $min, $max, $dummy, $format) = @$w{@flags};
my ($center_x, $center_y) = ($margin + $radius) x 2;
if ($value > $max) {
$value = $max;
} elsif ($va... |
| releasesystem-1.00 | IMS::ReleaseMgr | show |
| sub DESTROY
{
my $self = shift;
if (defined $self->{validated} and $self->{validated})
{
unless (defined $self->{committed} and $self->{committed})
{
warn "IMS::ReleaseMgr::DESTROY -- freeing object tha... |
| releasesystem-1.00 | IMS::ReleaseMgr::Transfer | show |
| sub send_and_expect
{
my ($ofh, $ifh, $send, $expect, $debug) = @_;
$debug |= 0;
print STDERR "> $send" if ($debug and $send !~ /user|pass/);
print $ofh $send;
my $line;
while (defined($line = <$ifh>))
{
pr... |
| releasesystem-1.00 | IMS::ReleaseMgr::FileList | show |
| sub error
{
my $text = shift;
$IMS::ReleaseMgr::FileList::error_text = $text
if (defined $text and $text);
$IMS::ReleaseMgr::FileList::error_text;
} |
| releasesystem-1.00 | IMS::ReleaseMgr::Utils | show |
| sub SIG_dec_trace
{
my $sig = shift;
$SIG{$sig} = \&SIG_dec_trace;
my $cmd = ($main::cmd || $0);
$cmd =~ s|.*/||o;
if (defined $main::trace and $main::trace)
{
$main::trace--;
}
else
{
$main::trace = ... |
| releasesystem-1.00 | IMS::ReleaseMgr::Access | show |
| sub ACL_dir
{
my $dir = shift;
my $ret_val = $ACL_DIR;
$ACL_DIR = $dir if (defined $dir and ! ref($dir));
$ret_val;
} |
| rpn | cmo::rpn::deco::Sqrt | show |
| sub toString(){
return 'Sqrt';
} |
| rpn | cmo::rpn::deco::Multiply | show |
| sub toString(){
return 'Multiply';
} |
| rpn | cmo::rpn::deco::Divide | show |
| sub toString(){
return 'Divide';
} |
| rpn | cmo::rpn::deco::Plus | show |
| sub toString(){
return 'Plus';
} |
| rpn | cmo::rpn::deco::Minus | show |
| sub toString(){
return 'Minus';
} |
| rpn | cmo::rpn::deco::Mod | show |
| sub toString(){
return 'Mod';
} |
| setenv-0.04 | setenv | show |
| sub unimport {
shift;
if (@_) {
delete @ENV{@_};
}
else {
%ENV= ();
}
return;
} |
| stockmonkey-2.9020 | Math::Business::BollingerBands | show |
| sub query {
my $this = shift;
return ($this->{L}, $this->{M}, $this->{U}) if wantarray;
return $this->{M};
} |
| stockmonkey-2.9020 | Math::Business::WMA | show |
| sub query {
my $this = shift;
return $this->[-1];
} |
| stockmonkey-2.9020 | Math::Business::DMI | show |
| sub query {
my $this = shift;
return ($this->{PDI}, $this->{MDI}, $this->{ADX}) if wantarray;
return $this->{ADX};
} |
| stockmonkey-2.9020 | Math::Business::SMA | show |
| sub query {
my $this = shift;
return $this->{SMA};
} |
| stockmonkey-2.9020 | Math::Business::EMA | show |
| sub query {
my $this = shift;
return $this->{EMA};
} |
| stockmonkey-2.9020 | Math::Business::ParabolicSAR | show |
| sub short {
my $this = shift;
$this->{ls} == SHORT;
} |
| stockmonkey-2.9020 | Math::Business::RSI | show |
| sub query {
my $this = shift;
return $this->{RSI};
} |
| stockmonkey-2.9020 | Math::Business::ATR | show |
| sub query {
my $this = shift;
return $this->{ATR};
} |
| stockmonkey-2.9020 | Math::Business::LaguerreFilter | show |
| sub query {
my $this = shift;
return $this->[F];
} |
| stockmonkey-2.9020 | Math::Business::HMA | show |
| sub query {
my $this = shift;
return $this->[-1]->query;
} |
| stockmonkey-2.9020 | Math::Business::MACD | show |
| sub insert {
my $this = shift;
croak "You must set the number of days before you try to insert" if not $this->{days};
while( defined( my $value = shift ) ) {
$this->{slow_EMA}->insert($value);
$this->{fast_EMA}-&... |
| tidyview-1.14 | TidyView::Frame | show |
| sub new {
my (undef, %args) = @_;
my ($parent, $frameOptions, $packOptions) = @args{qw(parent frameOptions packOptions)};
$frameOptions ||= {};
$packOptions ||= {};
my %frameOptions = (%$frameDefaults, %$frameOptions);
my %packOptions =... |
| tk-zinc-3.303 | SimpleRadarControls | show |
| sub hidebox {
my ($zinc, $self) = @_;
my $ev = $zinc->XEvent();
my $lx = $ev->x;
my $ly = $ev->y;
my @next;
@next = $zinc->find('closest', $lx, $ly);
if ((scalar(@next) == 0) ||
! $zinc->hastag($next[0], 'c... |
| triceps-1.0.91-20121129 | Triceps::X::DumbClient | show |
| sub run
{
my $labels = shift;
my ($port, $pid) = Triceps::X::SimpleServer::startServer(0, $labels);
my $sock = IO::Socket::INET->new(
Proto => "tcp",
PeerAddr => "localhost",
PeerPort => $port,
) or confess "socket failed: $!";
wh... |
| uplug-main-0.3.8 | Uplug::Data::Align | show |
| sub toHTML{
my $self=shift;
my $html=$self->{source}->toHTML();
$html.=$self->{target}->toHTML();
} |
| uplug-main-0.3.8 | Uplug::IO::LWA | show |
| sub close{
my $self=shift;
$self->{source}->close();
$self->{target}->close();
$self->SUPER::close(@_);
} |
| uplug-main-0.3.8 | Uplug::IO::XCESalign | show |
| sub ReadSegmentsOld{
my ($stream,$data,$IDs,$lang)=@_;
if (not ref($stream)){return;}
if (not @{$IDs}){return;}
my $i=0;
if (not ref($data->{$lang})){
$data->{$lang}=Uplug::Data::Lang->new();
}
if (not ref($data-... |
| uplug-main-0.3.8 | Uplug::IO::LiuAlign | show |
| sub FindDataFile{
my $self=shift;
my ($file)=@_;
if (-e $file){
return $file;
}
if ($self->{AccessMode} eq 'read'){
my $AlignFile=$self->{StreamOptions}->{file};
my $AlignDir='';
if ($AlignFile=~/^(.*[\\\/])([^\\\/]+)$/... |
| uplug-main-0.3.8 | Uplug::IO::Tab | show |
| sub addheader{
my $self=shift;
$self->SUPER::addheader(@_);
my $header=$self->header;
if (ref($header) eq 'HASH'){
if (defined $header->{columns}){
$self->setOption('columns',$header->{columns});
}
}
} |
| uplug-main-0.3.8 | Uplug::IO::Storable | show |
| sub write{
my $self=shift;
my $data=shift;
if (not ref($data)){return 0;}
my $fh=$self->{'FileHandle'};
binmode($fh);
my $ref=Storable::store_fd($data,$fh);
} |
| uplug-main-0.3.8 | Uplug::IO::XML | show |
| sub CloseAllTags{
my ($self)=@_;
if (defined $self->{OpenTagStack}){
while (@{$self->{OpenTagStack}}){
$self->CloseTag;
}
}
} |
| uplug-main-0.3.8 | Uplug::IO::PlugXML | show |
| sub readFromHandle{
my $self=shift;
my $txt=$self->SUPER::readFromHandle(@_);
if ($txt=~/\<align\s+id\=[^\"\']/){
$txt=~s/(\<align\s+id\=)([^\"\'])/$1\'$2/;
}
if ($txt=~/\<\?xml/){
if ($txt!~/encoding/){
$txt=~s/\?\&... |
| uplug-main-0.3.8 | Uplug::IO::Text | show |
| sub FindDataFile{
my ($file)=@_;
if (-f $file){return $file;}
if ($file!~/\.gz$/){
my $new=&FindDataFile("$file.gz");
if (-f $new){return $new;}
}
if (-f "data/$file"){return "data/$file";}
if (-f "$ENV{UPLUGHOME}/$file... |
| uplug-main-0.3.8 | Uplug::XML::SubTree | show |
| sub XmlDoctype{
my ($p,$name,$sysid,$publid,$internal)=@_;
} |
| uplug-main-0.3.8 | Uplug::Web::User | show |
| sub SendFile{
my ($to,$subject,$file)=@_;
if (not -e $file){return 0;}
my $mailer=Mail::Mailer->new("sendmail");
$mailer->open({From => $UplugAdmin,
To => $to,
Subject => $subject});
if ($file=~/\.g... |
| uplug-main-0.3.8 | Uplug::Web::Corpus | show |
| sub ChangeWordLinks{
my $file=shift;
my $links=shift;
my $params=shift;
my $sentLink=$params->{seg};
print "change links is not implemented yet!<br>";
print join '+',@{$links};
print '<hr>';
} |
| uplug-main-0.3.8 | Uplug::Web::Config | show |
| sub write{
my $self=shift;
my $content=shift;
if (ref($content) ne 'HASH'){return 0;}
if ($self->{STATUS} eq 'open'){
my $fh=$self->{FH};
seek ($fh,0,0);
print $fh Dumper($content);
truncate($fh,tell($fh));
return 1;
}
... |
| uplug-main-0.3.8 | Uplug::Web::Process::Stack | show |
| sub find{
my $self=shift;
my @data=@_;
map($_=quotemeta($_),@data);
my $pattern='^'.join(':',@data).'(\:|\Z)';
my @content=$self->read();
my @match=grep($_=~/$pattern/,@content);
chomp($match[0]);
return wantarray ? spl... |
| urpmi-7.9 | urpm::lock | show |
| sub DESTROY {
my ($lock) = @_;
unlock($lock) if $lock->{fh};
} |
| vstadaf-0.01 | Tk::Application::Stadaf | show |
| sub dump_records {
my $self = shift;
my $DB = $self->{DB};
unless ($DB) {
$self->ErrorMsgBox( "Sorry!\nOpen a database first...");
return;
}
$self->{FH} = shift || 0;
my %options = ( 'rs' => "\n", 'fs' =>... |
| xmltv-0.5.33 | Uninstall | show |
| sub uninstall( % ) {
my %h = @_;
my %seen_pl;
foreach (qw(read write)) {
my $pl = delete $h{$_};
if (defined $pl and not $seen_pl{$pl}++) {
warn "ignoring packlist $pl\n";
}
}
foreach my $from (keys %h) {
next if not -e $from;... |