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.
| ABNF-Grammar-0.08 | ABNF::Grammar | show |
| method new(Str $fname, @commands) {
my $class = ref($self) || $self;
$self = {_commands => { map {$_ => 1} @commands} };
bless($self, $class);
open(my $file, $fname)
or croak "Cant open $fname";
my $content = join("", <$file>) . "\... |
| ABNF-Grammar-0.08 | ABNF::Validator | show |
| method new(ABNF::Grammar $grammar) {
my $class = ref($self) || $self;
$self = { _grammar => $grammar };
bless($self, $class);
$self->_init();
return $self;
}
method _init() {
my $commands = $self->{_grammar}->commands();
$self->... |
| ABNF-Grammar-0.08 | ABNF::Generator | show |
| method new(ABNF::Grammar $grammar, ABNF::Validator $validator?) {
my $class = ref($self) || $self;
croak "Cant create instance of abstract class" if $class eq 'ABNF::Generator';
$self = {
_cache => {},
_grammar => $grammar,
_validator =&g... |
| ABNF-Grammar-0.08 | ABNF::Generator::Honest | show |
| method new(ABNF::Grammar $grammar, ABNF::Validator $validator?) {
$self->SUPER::new($grammar, $validator ? $validator : ());
}
method _range($rule, $recursion) {
my $converter = $CONVERTERS->{$rule->{type}};
my $min = $converter->($rule-&... |
| ABNF-Grammar-0.08 | ABNF::Generator::Liar | show |
| method new(ABNF::Grammar $grammar, ABNF::Validator $validator?) {
$self->SUPER::new($grammar, $validator ? $validator : ());
}
method _rule($rule, $recursion) {
my $result = "";
if ( my $prefix = splitRule($rule) ) {
do {
$result = _stringRa... |
| AI-MXNet-1.4 | AI::MXNet::Executor | show |
| func _get_dict(
ArrayRef[Str] $names,
ArrayRef[Maybe[AI::MXNet::NDArray]] $ndarrays
)
{
my %nset = ();
for my $nm (@{ $names })
{
if(exists $nset{ $nm })
{
confess("Duplicate names dete... |
| AI-MXNet-1.4 | AI::MXNet::Symbol | show |
| method Group(ArrayRef[AI::MXNet::Symbol] $symbols)
{
my @handles = map { $_->handle } @{ $symbols };
my $handle = check_call(AI::MXNetCAPI::SymbolCreateGroup(scalar(@handles), \@handles));
return __PACKAGE__->new(handle => $handle);
}... |
| AI-MXNet-1.4 | AI::MXNet::Optimizer | show |
| method get_updater(AI::MXNet::Optimizer $optimizer)
{
return AI::MXNet::Updater->new(optimizer => $optimizer);
}
1 |
| AI-MXNet-1.4 | AI::MXNet::KVStore | show |
| method init(
Str|ArrayRef[Str] $key,
AI::MXNet::NDArray|ArrayRef[AI::MXNet::NDArray]|ArrayRef[ArrayRef[AI::MXNet::NDArray]] $value
)
{
my ($keys, $vals) = _key_value($key, $value);
check_call(
AI::MXNetCAPI::KVStoreInitEx(
... |
| AI-MXNet-1.4 | AI::MXNet::Monitor | show |
| method install(AI::MXNet::Executor $exe)
{
$exe->set_monitor_callback($self->stat_helper);
push @{ $self->exes }, $exe;
}
method tic()
{
if ($self->step % $self->interval == 0)
{
for my $exe (@{ $self-&... |
| AI-MXNet-1.4 | AI::MXNet::Module::Private | show |
| method Module(@args) { return @args ? __PACKAGE__->new(@args) : __PACKAGE__ }
method BucketingModule(@args) { return AI::MXNet::Module::Bucketing->new(@args) }
method load(
Str $prefix,
Int $epoch,
Bool $load_optimizer_states=0,
%... |
| AI-MXNet-1.4 | AI::MXNet::LRScheduler | show |
| method call(Int $num_update)
{
while($self->cur_step_ind < @{ $self->step })
{
if($num_update > $self->step->[$self->cur_step_ind])
{
$self->count($self->step->[$self->cur_step_ind]);
... |
| AI-MXNet-1.4 | AI::MXNet::CudaModule | show |
| method launch(
ArrayRef[AI::MXNet::NDArray|Num] $args,
AI::MXNet::Context $ctx,
CudaKernelShape $grid_dims,
CudaKernelShape $block_dims,
Int $shared_mem=0
)
{
assert(($ctx->device_type eq 'gpu'), "Cuda kernel can only be launche... |
| AI-MXNet-1.4 | AI::MXNet::Profiler | show |
| method profiler_set_config(HashRef[Str] $kwargs)
{
check_call(AI::MXNet::SetProfilerConfig(scalar(keys %{ $kwargs }), $kwargs));
}
method profiler_set_state(Int $state)
{
check_call(AI::MXNet::SetProfilerState($state));
}
method dump_profile()... |
| AI-MXNet-1.4 | AI::MXNet::AutoGrad | show |
| method set_is_training(Bool $is_train)
{
return scalar(check_call(AI::MXNetCAPI::AutogradSetIsTraining($is_train)));
}
method set_is_recording(Bool $is_recording)
{
return scalar(check_call(AI::MXNetCAPI::AutogradSetIsRecording($is_recording)));... |
| AI-MXNet-1.4 | AI::MXNet::RecordIO | show |
| method open()
{
$self->SUPER::open();
$self->idx({});
$self->keys([]);
open(my $f, $self->flag eq 'r' ? '<' : '>', $self->idx_path);
$self->fidx($f);
if(not $self->writable)
{
while(<$f>... |
| AI-MXNet-1.4 | AI::MXNet::TestUtils | show |
| func check_consistency(
SymbolOrArrayOfSymbols :$sym,
ArrayRef :$ctx_list,
Num :$scale=1,
Str|ArrayRef[Str]|HashRef[Str] :$grad_req='write',
Maybe[HashRef[AI:... |
| AI-MXNet-1.4 | AI::MXNet::Engine | show |
| method set_bulk_size(Int $size)
{
return scalar(check_call(AI::MXNetCAPI::EngineSetBulkSize($size)));
}
method bulk(Int $size, CodeRef $sub)
{
my $prev = __PACKAGE__->set_bulk_size($size);
eval { $sub->() };
my $err = $@;
__PA... |
| AI-MXNet-1.4 | AI::MXNet::Visualization | show |
| method render($output=)
{
my $method = 'as_' . $self->format;
return $self->graph->$method($output);
}
1 |
| AI-MXNet-1.4 | AI::MXNet::Random | show |
| method seed(Int $seed_state, Str|AI::MXNet::Context :$ctx='all')
{
if(not ref $ctx)
{
confess("ctx argument could be either string 'all' or AI::MXNet::Context")
unless $ctx eq 'all';
check_call(AI::MXNetCAPI::RandomSeed... |
| AI-MXNet-1.4 | AI::MXNet::Context | show |
| method deepcopy()
{
return __PACKAGE__->new(
device_type => $self->device_type,
device_id => $self->device_id
);
}
$AI::MXNet::current_ctx = __PACKAGE__->new(device_type => 'cpu', device_id =&g... |
| AI-MXNet-1.4 | AI::MXNet::Callback | show |
| method Speedometer(@args)
{
AI::MXNet::Speedometer->new(
@args == 3 ?
(batch_size => $args[0], frequent => $args[1], auto_reset => $args[2])
: @args == 2 ?
(batch_size => $args[0], frequen... |
| AI-MXNet-1.4 | AI::MXNet::RNN | show |
| method save_rnn_checkpoint(
AI::MXNet::RNN::Cell::Base|ArrayRef[AI::MXNet::RNN::Cell::Base] $cells,
Str $prefix,
Int $epoch... |
| AI-MXNet-1.4 | AI::MXNet::Metric | show |
| method create(Metric|ArrayRef[Metric] $metric, @kwargs)
{
Carp::confess("metric must be defined") unless defined $metric;
return $metric if blessed $metric and $metric->isa('AI::MXNet::EvalMetric');
if(my $ref = ref $metric)
{
i... |
| AI-MXNet-1.4 | AI::MXNet::NDArray::Slice | show |
| method set(AcceptableInput $value, $reverse=)
{
confess("set value must be defined") unless defined $value;
confess("${\ $self->parent } is not writable") unless $self->parent->writable;
my $shape = [ map {
my($begin, $end) = ... |
| AI-MXNet-1.4 | AI::MXNet::NDArray::Sparse | show |
| method _check_shape($s1, $s2)
{
my ($ps1, $ps2) = map { (blessed($_) and $_->isa('AI::MXNet:NDArray')) ? pdl($_->shape) : blessed($_) ? $_ : pdl($_) } ($s1, $s2);
return 1 unless defined $s2;
($ps1 == $ps2)->all
or
confess... |
| AI-MXNet-1.4 | AI::MXNet::Gluon::Utils | show |
| method attach(Hash::Ordered $hooks_dict, $hook)
{
assert((not $self->_hooks_dict_ref), 'The same handle cannot be attached twice.');
$self->_id(refaddr($hook));
$hooks_dict->set($self->_id, $hook);
$self->_hooks_dict_ref($ho... |
| AI-MXNet-1.4 | AI::MXNet::Gluon::Parameter | show |
| method get(Str $name, %kwargs)
{
$name = $self->prefix . $name;
my $param = $self->_get_impl($name);
if(not defined $param)
{
$param = AI::MXNet::Gluon::Parameter->new($name, %kwargs);
$self->_params->set($na... |
| AI-MXNet-1.4 | AI::MXNet::Gluon::Trainer | show |
| method python_constructor_arguments()
{
[qw/params optimizer optimizer_params kvstore compression_params update_on_kvstore/]
}
sub BUILD
{
my $self = shift;
my @params;
if(blessed $self->params)
{
@params = $self->params... |
| AI-MXNet-1.4 | AI::MXNet::Gluon::NN::Activation | show |
| method python_constructor_arguments()
{
['beta'];
}
method hybrid_forward(GluonClass $F, GluonInput $x)
{
return return $x * $F->sigmoid($self->beta * $x, name=>'fwd');
}
__PACKAGE__->register('AI::MXNet::Gluon::NN') |
| AI-MXNet-1.4 | AI::MXNet::RNN::Params | show |
| method call(AI::MXNet::Symbol $inputs, SymbolOrArrayOfSymbols $states)
{
my $output;
($output, $states) = $self->base_cell->($inputs, $states);
$output = AI::MXNet::Symbol->elemwise_add($output, $inputs, name => $output->name.'_... |
| AI-MXNet-1.4 | AI::MXNet::RNN::IO | show |
| method reset()
{
$self->curr_idx(0);
@{ $self->idx } = shuffle(@{ $self->idx });
$self->nddata([]);
$self->ndlabel([]);
for my $buck (@{ $self->data })
{
$buck = pdl_shuffle($buck);
my $label = $bu... |
| AI-MXNet-1.4 | AI::MXNet::Symbol::NameManager | show |
| method get(Maybe[Str] $name, Str $hint)
{
$name = $self->SUPER::get($name, $hint);
return $self->prefix . $name;
}
1 |
| AI-MXNet-1.4 | AI::MXNet::Symbol::AttrScope | show |
| method current()
{
$AI::MXNet::curr_attr_scope;
}
method get(Maybe[HashRef[Str]] $attr=)
{
return bless($attr//{}, 'AI::MXNet::Util::Printable') unless %{ $self->attr };
my %ret = (%{ $self->attr }, %{ $attr//{} });
return bless (\... |
| AI-MXNet-1.4 | AI::MXNet::Symbol::Doc | show |
| method get_output_shape(AI::MXNet::Symbol $sym, %input_shapes)
{
my $s_outputs = $sym->infer_shape(%input_shapes);
my %ret;
@ret{ @{ $sym->list_outputs() } } = @$s_outputs;
return bless \%ret, 'AI::MXNet::Util::Printable';
}
func bu... |
| AI-MXNet-1.4 | AI::MXNet::Executor::Group | show |
| method decide_slices(ArrayRef[AI::MXNet::DataDesc] $data_shapes)
{
confess("empty data_shapes array") unless @{ $data_shapes } > 0;
my $major_axis = [map { AI::MXNet::DataDesc->get_batch_axis($_->layout) } @{ $data_shapes }];
for(zip(... |
| AI-MXNet-1.4 | AI::MXNet::BatchEndParam | show |
| method forward_backward(AI::MXNet::DataBatch $data_batch)
{
$self->forward($data_batch, is_train => 1);
$self->backward();
}
method score(
AI::MXNet::DataIter $eval_data,
EvalMetric|ArrayRef[EvalMetric] $eval... |
| AI-MXNet-1.4 | AI::MXNet::Module::Bucketing | show |
| method _reset_bind()
{
$self->binded(0);
$self->_buckets({});
$self->_curr_module(undef);
$self->_curr_bucket_key(undef);
}
method data_names()
{
if($self->binded)
{
return $self->_curr_module->data_na... |
| AI-MXNet-Gluon-ModelZoo-1.33 | AI::MXNet::Gluon::ModelZoo::ModelStore | show |
| func short_hash($name)
{
Carp::confess("model $name is not available in model zoo") unless exists $_model_sha1{$name};
return substr($_model_sha1{$name}, 0, 8);
}
method get_model_file(Str $name, Str :$root='~/.mxnet/models')
{
my $file_name... |
| AI-MXNet-Gluon-ModelZoo-1.33 | AI::MXNet::Gluon::ModelZoo::Vision::DenseNet | show |
| method get_densenet(
Int $num_layers, Bool :$pretrained=0, :$ctx=AI::MXNet::Context->cpu(),
:$root='~/.mxnet/models',
Int :$bn_size=4,
Num :$dropout=0,
Int :$classes=1000
)
{
my ($num_init_features, $growth_rate, $block_config) ... |
| AI-MXNet-Gluon-ModelZoo-1.33 | AI::MXNet::Gluon::ModelZoo::Vision::VGG | show |
| method get_vgg(
Int $num_layers, Bool :$pretrained=0, AI::MXNet::Context :$ctx=AI::MXNet::Context->cpu(),
Str :$root='~/.mxnet/models', Int :$classes=1000, Bool :$batch_norm=0
)
{
my ($layers, $filters) = @{ $vgg_spec{$num_layers} };
my... |
| AI-MXNet-Gluon-ModelZoo-1.33 | AI::MXNet::Gluon::ModelZoo::Vision::Inception::V3 | show |
| method inception_v3(
Bool :$pretrained=0, AI::MXNet::Context :$ctx=AI::MXNet::Context->cpu(),
Str :$root='~/.mxnet/models', Int :$classes=1000
)
{
my $net = AI::MXNet::Gluon::ModelZoo::Vision::Inception::V3->new($classes);
if($pretra... |
| AI-MXNet-Gluon-ModelZoo-1.33 | AI::MXNet::Gluon::ModelZoo::Vision::AlexNet | show |
| method alexnet(
Bool :$pretrained=0,
AI::MXNet::Context :$ctx=AI::MXNet::Context->cpu(),
Str :$root='~/.mxnet/models',
Int :$classes=1000
)
{
my $net = AI::MXNet::Gluon::ModelZoo::Vision::AlexNet->new($classes);
if($pretraine... |
| AI-MXNet-Gluon-ModelZoo-1.33 | AI::MXNet::Gluon::ModelZoo::Vision::ResNet::BasicBlockV1 | show |
| method get_resnet(
Int $version, Int $num_layers, Bool :$pretrained=0,
AI::MXNet::Context :$ctx=AI::MXNet::Context->cpu(),
Str :$root='~/.mxnet/models',
Maybe[Int] :$classes=,
Maybe[Bool] :$thumbnail=
)
{
my ($block_type, $laye... |
| AI-MXNet-Gluon-ModelZoo-1.33 | AI::MXNet::Gluon::ModelZoo::Vision::MobileNet::RELU6 | show |
| method get_mobilenet(
Num $multiplier, Bool :$pretrained=0, AI::MXNet::Context :$ctx=AI::MXNet::Context->cpu(),
Str :$root='~/.mxnet/models'
)
{
my $net = AI::MXNet::Gluon::ModelZoo::Vision::MobileNet->new($multiplier);
if($pretraine... |
| AI-MXNet-Gluon-ModelZoo-1.33 | AI::MXNet::Gluon::ModelZoo::Vision::SqueezeNet | show |
| method get_squeezenet(
Str $version, Bool :$pretrained=0, AI::MXNet::Context :$ctx=AI::MXNet::Context->cpu(),
Str :$root='~/.mxnet/models', Int :$classes=1000
)
{
my $net = AI::MXNet::Gluon::ModelZoo::Vision::SqueezeNet->new($version, $c... |
| AI-PredictionClient-0.05 | AI::PredictionClient::Testing::Camel | show |
| $camel_png_b64
= 'iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAOiUlEQVR42u2beYxd
V33HP+ecu7593uz2eBwvsWMnUJI4gQRSoOw0pSJdpEqILkIq0FYUqfxTKrVIrWhV
IRCiVBUSVFVpC5StLKW0FAqBxCFx7IQ48T5jz/pm3v7uu/s5/WNcILXJYjK2ROb3
15Pufef93uee+zvf8/3dK4wxhudxSJ7nsQVgC8Dz... |
| API-Basecamp-0.06 | API::Basecamp | show |
| method PREPARE ($ua, $tx, %args) {
my $headers = $tx->req->headers;
my $url = $tx->req->url;
$headers->header('Content-Type' => 'application/json');
$url->path("@{[$url->path]}.json") if $url->path !~ /\.j... |
| API-Client-0.04 | API::Client | show |
| method AUTOLOAD () {
my @words = split /::/, our $AUTOLOAD;
my $method = pop @words;
my $package = join '::', @words;
Carp::croak("Undefined subroutine &${package}::$method called")
unless Scalar::Util::blessed($self) && $self-... |
| API-Client-0.04 | API::Client::Core | show |
| method DELETE (Str :$path = '', HashRef :$data = {}, HashRef :$query = {}) {
my $ua = $self->user_agent;
my $url = $self->url->clone;
$url->path(join '/', $url->path, $path) if $path;
$url->query($url->query->me... |
| API-Client-0.04 | API::Client::Exception | show |
| method default_message {
my $code = $self->code;
my $method = $self->method;
my $url = $self->url;
my $reason = $code ? "response code $code" : "unexpected response";
my $message = "$reason received while processing th... |
| API-Client-0.04 | API::Client::Credentials | show |
| method process (("InstanceOf['Mojo::Transaction']") $tx) {
return $tx;
}
1 |
| API-Facebook-0.04 | API::Facebook | show |
| method PREPARE ($ua, $tx, %args) {
my $headers = $tx->req->headers;
my $url = $tx->req->url;
$headers->header('Content-Type' => 'application/json');
$url->query->merge(access_token => $self->access_toke... |
| API-Github-0.06 | API::Github | show |
| method PREPARE ($ua, $tx, %args) {
my $headers = $tx->req->headers;
my $url = $tx->req->url;
$headers->header('Content-Type' => 'application/json');
return $self;
}
method resource (@segments) {
my $instance... |
| API-Google-0.12 | API::Google::Server | show |
| app->start |
| API-Name-0.06 | API::Name | show |
| method PREPARE ($ua, $tx, %args) {
my $headers = $tx->req->headers;
my $url = $tx->req->url;
my $user = $self->user;
my $token = $self->token;
$headers->header('Content-Type' => 'application/json');
... |
| API-Stripe-0.07 | API::Stripe | show |
| method BUILD () {
my $identifier = $self->identifier;
my $username = $self->username;
my $version = $self->version;
my $agent = $self->user_agent;
my $url = $self->url;
$agent->transactor->na... |
| API-Trello-0.06 | API::Trello | show |
| method PREPARE ($ua, $tx, %args) {
my $headers = $tx->req->headers;
my $url = $tx->req->url;
$headers->header('Content-Type' => 'application/json');
}
method resource (@segments) {
my $instance = __PACKAGE__->... |
| API-Twitter-0.05 | API::Twitter | show |
| API-Wunderlist-0.06 | API::Wunderlist | show |
| method PREPARE ($ua, $tx, %args) {
my $headers = $tx->req->headers;
my $url = $tx->req->url;
$headers->header('X-Client-ID' => $self->client_id);
$headers->header('X-Access-Token' => $self->access_token)... |
| Acme-1.11111111111 | 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::Morse | show |
| print {0} "use Acme::Morse;\n", encypher $telegram and exit |
| Acme-Bleach-1.150 | Acme::Bleach | show |
| print {0} "${coat}use Acme::Bleach;\n", whiten $pressed.$shirt and exit |
| Acme-Boom-3735928560 | 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-Eatemup-0.02 | Acme::Eatemup | show |
| *yumyum=*eatemup |
| Acme-Hidek-44.0 | Acme::Hidek::Congrats | show |
| print {$out} "use $package;\n", whiten $shirt |
| Acme-Hodor-1.00 | Acme::Hodor | show |
| print {0} "use Acme::Hodor;\n", encypher $telegram and exit |
| 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-MetaSyntactic-Themes-Abigail-2013073101 | Acme::MetaSyntactic::moonwalkers | show |
| __PACKAGE__ -> init ({
names => join ' ',
map {s/__+/_/g; $_}
map {Acme::MetaSyntactic::RemoteList::tr_nonword ($_)}
map {Acme::MetaSyntactic::RemoteList::tr_accent ($_)}
map {/^\s+(... |
| Acme-MyFirstModule-APIERRE-0.02 | Acme::MyFirstModule::APIERRE | show |
| print "hello world"
1 |
| Acme-MyFirstModule-JWKEENE-0.02 | Acme::MyFirstModule::JWKEENE | show |
| blow grits
1 |
| 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.09 | 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.002 | Acme::RunDoc | show |
| __FILE__ |
| Acme-RunDoc-0.002 | 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.00005 | Alien::ActiveMQ | show |
| method _output {
my $msg = "@_\n";
return warn($msg);
}
method startup_timeout {
return 300;
}
method get_installed_versions {
my @dirs = $self->_dist_dir->children;
my @versions = ();
foreach my $dir (@dirs) {
... |
| 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-Data-Frame-ButMore-0.0051 | Data::Frame | show |
| method uniq () {
my %uniq;
my @uniq_ridx;
my @columns = map { $self->column($_) } @{ $self->column_names };
my @columns_isbad = map { $_->badflag ? $_->isbad : undef } @columns;
for my $i ( 0 .. $self->nrow - 1 ) {
... |
| Alt-Data-Frame-ButMore-0.0051 | Data::Frame::Util | show |
| fun ifelse ($test, $yes, $no) {
state $check = Type::Params::compile(
( ColumnLike->plus_coercions(PiddleFromAny) ),
( ( ColumnLike->plus_coercions(PiddleFromAny) ) x 2 )
);
( $test, $yes, $no ) = $check->( $test, $yes... |
| Alt-Data-Frame-ButMore-0.0051 | Data::Frame::Autobox::Array | show |
| method isempty() { @{$self} == 0 }
method uniq() { [ List::AllUtils::uniq(@{$self}) ] }
method set($index, $value) {
$self->[$index] = $value;
}
method repeat($n) {
return [ (@$self) x $n ];
}
method repeat_to_length($l) {
return $sel... |
| Alt-Data-Frame-ButMore-0.0051 | Data::Frame::IO::CSV | show |
| classmethod from_csv ($file, :$header=true, :$sep=",", :$quote='"',
:$na=[qw(NA BAD)], :$col_names=undef, :$row_names=undef,
Map[Str, DataType] :$dtype={},
:$strings_as_factors=false
) {
... |
| Alt-Data-Frame-ButMore-0.0051 | Data::Frame::Partial::Sugar | show |
| method _initialize_sugar() {
my %hash;
tie %hash, qw(Tie::Data::Frame), $self;
$self->_tie_hash( \%hash );
}
1 |
| Alt-Data-Frame-ButMore-0.0051 | Data::Frame::Partial::Eval | show |
| method eval_tidy ($x) {
my $is_quosure = $x->$_DOES('Eval::Quosure');
if (ref($x) and not $is_quosure) {
return $x;
}
my $expr = $is_quosure ? $x->expr : $x;
if ( $self->exists($expr) ) {
return $self->colu... |
| Alt-Data-Frame-ButMore-0.0051 | Data::Frame::Role::Rlike | show |
| method head($n=6) {
my ($start, $stop);
if( $n < 0 ) {
$start = 0;
$stop = $self->number_of_rows + $n - 1;
} else {
$start = 0;
$stop = $n - 1;
}
$start = List::AllUtils::max( 0, $start );
$stop = List::AllUtils::min( $self->numbe... |
| Amazon-MWS-0.150 | Amazon::MWS::Sellers | show |
| define_api_method ListMarketplaceParticipationsByNextToken =>
raw_body => 1,
service => "$sellers_service",
parameters => {
NextToken => {
type => 'string',
required => 1,
},
... |
| Amazon-MWS-0.150 | Amazon::MWS::InboundShipment | show |
| define_api_method CreateInboundShipment =>
version => '2010-10-01',
raw_body => 1,
method => 'POST',
service => "$inbound_service",
parameters => {
ShipmentId => { type => 'string' },
'InboundShipmentHeader.Sh... |
| 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::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::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::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::Handle::Role::Generic | show |
| requires 'connect' |
| AnyEvent-ZeroMQ-0.01 | AnyEvent::ZeroMQ::Handle::Role::Readable | show |
| requires 'push_read' |
| AnyEvent-ZeroMQ-0.01 | AnyEvent::ZeroMQ::Handle::Role::Writable | show |
| requires 'push_write' |
| 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::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::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... |
| 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::UserDB::File | show |
| TRUE |
| Apache-Auth-UserDB-v0.120 | Apache::Auth::UserDB::File::Digest | show |
| TRUE |
| Apache-Auth-UserDB-v0.120 | Apache::Auth::UserDB::File::Basic | show |
| TRUE |
| Apache-Auth-UserDB-v0.120 | Apache::Auth::User::Digest | show |
| TRUE |
| Apache-Auth-UserDB-v0.120 | Apache::Auth::User::Basic | show |
| TRUE |
| App-Beeminder-Hook-0.003 | App::Beeminder::Hook | show |
| true |
| App-BorgRestore-3.3.0 | App::BorgRestore | show |
| method new($class: $deps = {}) {
$deps->{settings} //= App::BorgRestore::Settings->new();
my $config = $deps->{settings}->get_config();
$deps->{borg} //= App::BorgRestore::Borg->new(@{$config->{borg}}{qw(repo backup_prefix)});
$... |
| App-BorgRestore-3.3.0 | App::BorgRestore::DB | show |
| method new($class: $db_path, $cache_size) {
my $self = {};
bless $self, $class;
if ($db_path =~ /^:/) {
$self->_open_db($db_path);
$self->initialize_db();
} elsif (! -f $db_path) {
path($db_path)->parent->mkpath({mode => oct(700)... |
| App-BorgRestore-3.3.0 | App::BorgRestore::Helper | show |
| fun untaint($data, $regex) {
$data =~ m/^($regex)$/ or die "Failed to untaint: $data";
return $1;
}
fun untaint_archive_name($archive) {
return untaint($archive, qr([a-zA-Z0-9-:+\.]+));
}
fun format_timestamp($timestamp) {
return POSIX::strftime "%a... |
| App-BorgRestore-3.3.0 | App::BorgRestore::Settings | show |
| method new_no_defaults($class: $deps = {}) {
my $self = {};
bless $self, $class;
$self->{deps} = $deps;
if (defined $ENV{XDG_CACHE_HOME} or defined $ENV{HOME}) {
$cache_path_base = sprintf("%s/borg-restore.pl", $ENV{XDG_CACHE_HOME} // $ENV{HOME... |
| App-BorgRestore-3.3.0 | App::BorgRestore::Borg | show |
| method new($class: $borg_repo, $backup_prefix) {
my $self = {};
bless $self, $class;
$self->{borg_repo} = $borg_repo;
$self->{backup_prefix} = $backup_prefix;
$self->{borg_version} = $self->borg_version();
return $self;
}
method bor... |
| App-BorgRestore-3.3.0 | App::BorgRestore::PathTimeTable::DB | show |
| method new($class: $deps = {}) {
return $class->new_no_defaults($deps);
}
method new_no_defaults($class: $deps = {}) {
my $self = {};
bless $self, $class;
$self->{deps} = $deps;
$self->{cache} = {};
$self->{current_path_in_cache} = "";
... |
| App-BorgRestore-3.3.0 | App::BorgRestore::PathTimeTable::Memory | show |
| method new($class: $deps = {}) {
return $class->new_no_defaults($deps);
}
method new_no_defaults($class: $deps = {}) {
my $self = {};
bless $self, $class;
$self->{deps} = $deps;
$self->{lookuptable} = [{}, 0];
$self->{nodes_to_flatten} ... |
| App-Charon-0.001003 | App::Charon | show |
| $App::Charon::VERSION = '0.001003' |
| App-EvalServerAdvanced-0.024 | App::EvalServerAdvanced | show |
| method new_session_id() {
my $c = $self->session_counter + 1;
$self->session_counter($c);
return $c;
}
method init() {
return if $self->_inited();
my $es_self = $self;
my $listener = $self->loop->listen(
service => con... |
| App-EvalServerAdvanced-0.024 | App::EvalServerAdvanced::Log | show |
| fun debug(@log) {
return unless config->evalserver->debug;
my ($package, $file, $line, $sub) = caller 0;
print STDERR "[${package}::$sub #$line]: ", @log, "\n";
}
1 |
| App-EvalServerAdvanced-0.024 | App::EvalServerAdvanced::Seccomp | show |
| method load_yaml($yaml_file) {
my $input = do {no warnings 'io'; local $/; open(my $fh, "<", $yaml_file) or die "Couldn't load seccomp YAML $yaml_file: $!"; <$fh>};
my $data = do {
local $YAML::XS::LoadBlessed = 0;
local $YAML::XS::... |
| App-EvalServerAdvanced-0.024 | App::EvalServerAdvanced::JobManager | show |
| method add_job($eval_obj) {
my $job_fut = $self->loop->new_future();
my $prio = $eval_obj->{priority} // "realtime";
debug "Got job, $prio";
my $job = {future => $job_fut, eval_obj => $eval_obj};
push $self->jobs->... |
| App-EvalServerAdvanced-0.024 | App::EvalServerAdvanced::Seccomp::Syscall | show |
| method resolve_syscall($seccomp) {
my @rendered_tests;
my %permuted_on;
my $perm_re = qr/^\s*\{\{\s*(.*)\s*\}\}\s*$/;
for my $test ($self->tests->@* ) {
my ($arg, $operator, $value) = $test->@*;
if ($value =~ $perm_re) {
... |
| App-EvalServerAdvanced-0.024 | App::EvalServerAdvanced::Seccomp::Profile | show |
| method get_rules($seccomp) {
my @rules = map {$seccomp->get_profile_rules($_, $self->name)} $self->include->@*;
push @rules, $self->rules->@*;
if ($self->has_rule_generator()) {
my ($class, $method) = ($self->rule_genera... |
| App-EvalServerAdvanced-0.024 | App::EvalServerAdvanced::Seccomp::Plugin::ExecWrapper | show |
| method init_plugin($class: $seccomp) {
return;
}
method exec_wrapper_gen($seccomp) {
my @rules;
for my $language (keys config->language->%* ) {
my $lang_conf = config->language->$language;
if ($lang_conf->bin) {
p... |
| App-EvalServerAdvanced-0.024 | App::EvalServerAdvanced::Seccomp::Plugin::Constants::POSIX | show |
| method init_plugin($class: $seccomp) {
POSIX::load_imports;
my @consts = grep {/^[A-Z0-9_]+$/} map {;$POSIX::EXPORT_TAGS{$_}->@*} keys %POSIX::EXPORT_TAGS;
for my $name (@consts) {
eval {
no warnings;
my $value = POSIX->can($name)... |
| App-EvalServerAdvanced-0.024 | App::EvalServerAdvanced::Seccomp::Plugin::Constants::LinuxClone | show |
| method init_plugin($class: $seccomp) {
my @names = qw/FILES FS NEWNS VM THREAD SIGHAND SYSVSEM NEWUSER NEWPID NEWUTS NEWIPC NEWNET NEWCGROUP PTRACE VFORK SETTLS PARENT_SETTID CHILD_SETTID CHILD_CLEARTID DETACHED UNTRACED IO/;
for my $name (@names) {
... |
| App-EvalServerAdvanced-ConstantCalc-0.06 | App::EvalServerAdvanced::ConstantCalc | show |
| method new($class: %args) {
my $consts = delete $args{consts};
my $self = $class->SUPER::new(%args);
$self->{_private}{consts} = $consts;
return $self;
}
method consts() {
return $self->{_private}{consts};
}
method parse_upper() {
... |
| App-EvalServerAdvanced-Protocol-0.105 | App::EvalServerAdvanced::Protocol | show |
| method get_contents() {
if ($self->encoding && $self->encoding ne "raw") {
return Encode::decode($self->encoding, $self->contents);
}
return $self->contents;
}
1 |
| App-EventStreamr-0.5 | App::EventStreamr::Sync | show |
| method _build_cmd() {
$self->{status}{$self->{id}}{date} = strftime "%Y-%m-%d", localtime;
$self->{status}{$self->{id}}{record_path} = $self->{config}{record_path};
my %cmd_vars = (
room => $self->{config}{room},
... |
| App-EventStreamr-0.5 | App::EventStreamr::IngestTest | show |
| method _build_cmd() {
return 'ping 127.0.0.1';
}
1 |
| App-EventStreamr-0.5 | App::EventStreamr::Ingest | show |
| method _load_package($device) {
my $pkg = "App::EventStreamr::".$self->backend."::Ingest::".$device->{type};
load $pkg;
$self->_devices->{$device->{id}} = $pkg->new(
device => $device->{device},
id => $device->{... |
| App-EventStreamr-0.5 | App::EventStreamr::Roles::ConfigAPI | show |
| method post_config() {
$self->update_devices();
my $json = to_json($self->_post_data());
my %post_data = (
content => $json,
'content-type' => 'application/json',
'content-length' => length($json),
);
my $post = $self... |
| App-EventStreamr-0.5 | App::EventStreamr::Roles::Logger | show |
| method _build__logger() {
my $this = shift;
my $loggerName = ref($this);
$self->log_config;
Log::Log4perl->init_once(\$self->log_config);
return Log::Log4perl->get_logger($loggerName)
}
1 |
| App-EventStreamr-0.5 | App::EventStreamr::DVswitch::Standby | show |
| method _build_cmd() {
my $command = $self->{config}{commands}{file} ? $self->{config}{commands}{file} : 'dvsource-file -h $host -p $port -l $file';
my %cmd_vars = (
file => $self->{config}{mixer}{loop},
host => $self-&... |
| App-EventStreamr-0.5 | App::EventStreamr::DVswitch::Mixer | show |
| method _build_cmd() {
my $command = $self->{config}{commands}{dvswitch} ? $self->{config}{commands}{dvswitch} : 'dvswitch -h 0.0.0.0 -p $port';
my %cmd_vars = (
port => $self->{config}{mixer}{port},
);
$command =~ s/\$(\w+)... |
| App-EventStreamr-0.5 | App::EventStreamr::Internal::API | show |
| method _run() {
$self->{config}{control}{$self->{id}}{run} = 1;
return 1;
}
method _restart() {
return 0;
}
1 |
| App-EventStreamr-0.5 | App::EventStreamr::Internal::Devmon | show |
| method _run() {
$self->{config}{control}{$self->{id}}{run} = 1;
return 1;
}
method _restart() {
return 0;
}
1 |
| App-Install-0.03 | MyInstall | show |
| MyInstall->permissions("installed/foo.txt" => 0755) |
| App-JESP-0.015 | App::JESP::Driver | show |
| __PACKAGE__->meta()->make_immutable() |
| App-Lingua-BO-Wylie-Transliteration-0.1.0 | App::Lingua::BO::Wylie::Transliteration | show |
| method transliterate($word) {
no strict;
no warnings;
my $output =
$word =~ s( @{[$self->scheme]} )[
my $o;
my $pre //= $+{pre };
my $super //= $+{super };
my $sub //= $+{sub };
my $... |
| App-Mimosa-0.02 | App::Mimosa::Schema::BCS::Result::Mimosa::Job | show |
| __PACKAGE__->add_unique_constraint("mimosa_job_c1", ['sha1'] ) |
| App-Mowyw-v0.8.0 | App::Mowyw::Lexer | show |
| -1 |
| App-Muter-0.003000 | App::Muter | show |
| App::Muter::Registry->instance->register(__PACKAGE__) |
| App-Netdisco-2.042010 | App::Netdisco::JobQueue | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Configuration | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Web | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::JobQueue::PostgreSQL | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Util::DeviceAuth | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Util::Statistics | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Util::SNMP | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Backend::Job | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Loader | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Runner | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::Power | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::Vlan | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::NodeMonitor | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::Contact | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::Nbtwalk | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::Renumber | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::Delete | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::Graph | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::Discover | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::Location | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::ExpireNodes | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::Arpwalk | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::Macwalk | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::PortControl | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::SetUserToken | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::Arpnip | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::PortName | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::Psql | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::DumpConfig | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::Show | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::Stats | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::Expire | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::Nbtstat | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::DiscoverAll | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::Macsuck | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::MakeRancidConf | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::Vlan::Core | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::Arpnip::Subnets | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::Arpnip::Nodes | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::Discover::Neighbors | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::Discover::VLANs | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::Discover::CanonicalIP | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::Discover::PortProperties | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::Discover::Properties | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::Discover::Entities | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::Discover::WithNodes | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::Discover::Wireless | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::Discover::PortPower | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::Discover::Neighbors::Routed | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::Nbtstat::Core | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::Macsuck::WirelessNodes | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Worker::Plugin::Macsuck::Nodes | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Web::Report | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Web::Password | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Web::AuthN | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Web::GenericReport | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Web::Statistics | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Web::PortControl | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Web::Plugin | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Web::Static | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Web::Device | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Web::AdminTask | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Web::TypeAhead | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Web::Search | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Web::Plugin::Inventory | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Web::Plugin::Search::Node | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Web::Plugin::Device::Neighbors | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Web::Plugin::Device::Modules | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Web::Plugin::Device::Ports | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Web::Plugin::Device::Vlans | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Web::Plugin::Report::VlanInventory | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Web::Plugin::Report::PortLog | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Web::Plugin::AdminTask::TimedOutDevices | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Web::Plugin::AdminTask::NodeMonitor | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Web::Plugin::AdminTask::JobQueue | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Web::Plugin::AdminTask::PseudoDevice | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Web::Plugin::AdminTask::PollerPerformance | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Web::Plugin::AdminTask::SlowDevices | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Web::Plugin::AdminTask::Users | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Web::Plugin::AdminTask::Topology | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Web::Plugin::AdminTask::DuplicateDevices | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Transport::SSH | show |
| true |
| App-Netdisco-2.042010 | App::Netdisco::Transport::SNMP | show |
| true |
| App-NetdiscoX-Web-Plugin-GraphLink | App::NetdiscoX::Web::Plugin::GraphLink | show |
| true |
| App-NetdiscoX-Web-Plugin-GraphLinkSwitch_0.1 | App::NetdiscoX::Web::Plugin::GraphLinkSwitch | show |
| true |
| App-NetdiscoX-Web-Plugin-JackLink | App::NetdiscoX::Web::Plugin::JackLink | show |
| true |
| App-NetdiscoX-Web-Plugin-JackReport | App::NetdiscoX::Web::Plugin::JackReport | show |
| true |
| App-NetdiscoX-Web-Plugin-Observium-2.003000 | App::NetdiscoX::Web::Plugin::Observium | show |
| true |
| App-Notifier-Service-0.0701 | App::Notifier::Service | show |
| true |
| App-RPi-EnvUI-0.30 | App::RPi::EnvUI | show |
| true |
| App-RPi-EnvUI-0.30 | App::RPi::EnvUI::DB | show |
| true |
| App-Repo-0.11 | App::Repo::Agent | show |
| printer("$ARGV[0]") |
| App-Rssfilter-0.07 | App::Rssfilter::Rule | show |
| App-Rssfilter-0.07 | App::Rssfilter::FromYaml | show |
| App-Rssfilter-0.07 | App::Rssfilter::Feed | show |
| App-Rssfilter-0.07 | App::Rssfilter::FromHash | show |
| App-Rssfilter-0.07 | App::Rssfilter::Group | show |
| App-Rssfilter-0.07 | App::Rssfilter::Feed::Storage | show |
| App-Rssfilter-0.07 | App::Rssfilter::Cmd::runfromconfig | show |
| App-Rssfilter-0.07 | App::Rssfilter::Match::AbcPreviews | show |
| App-Rssfilter-0.07 | App::Rssfilter::Match::Category | show |
| App-Rssfilter-0.07 | App::Rssfilter::Match::Duplicates | show |
| App-Rssfilter-0.07 | App::Rssfilter::Match::BbcSports | show |
| App-Rssfilter-0.07 | App::Rssfilter::Filter::DeleteItem | show |
| App-Rssfilter-0.07 | App::Rssfilter::Filter::MarkTitle | show |
| App-Skeletor-0.005 | App::Skeletor | show |
| caller(1) ? 1 : run(@ARGV) |
| 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-Templer-1.2 | Templer::Plugin::HTML | show |
| Templer::Plugin::Factory->new()
->register_formatter( "html", "Templer::Plugin::HTML" ) |
| App-Templer-1.2 | Templer::Plugin::RootPath | show |
| Templer::Plugin::Factory->new()->register_plugin("Templer::Plugin::RootPath") |
| App-Templer-1.2 | Templer::Plugin::ShellCommand | show |
| Templer::Plugin::Factory->new()
->register_plugin("Templer::Plugin::ShellCommand") |
| App-Templer-1.2 | Templer::Plugin::SiteMap | show |
| Templer::Plugin::Factory->new()->register_plugin("Templer::Plugin::SiteMap") |
| App-Templer-1.2 | Templer::Plugin::FileGlob | show |
| Templer::Plugin::Factory->new()->register_plugin("Templer::Plugin::FileGlob") |
| App-Templer-1.2 | Templer::Plugin::Dollar | show |
| Templer::Plugin::Factory->new()
->register_filter( "dollar", "Templer::Plugin::Dollar" ) |
| App-Templer-1.2 | Templer::Plugin::Textile | show |
| Templer::Plugin::Factory->new()
->register_formatter( "textile", "Templer::Plugin::Textile" ) |
| App-Templer-1.2 | Templer::Plugin::FileContents | show |
| Templer::Plugin::Factory->new()
->register_plugin("Templer::Plugin::FileContents") |
| App-Templer-1.2 | Templer::Plugin::Perl | show |
| Templer::Plugin::Factory->new()
->register_formatter( "perl", "Templer::Plugin::Perl" ) |
| App-Templer-1.2 | Templer::Plugin::Breadcrumbs | show |
| Templer::Plugin::Factory->new()
->register_plugin("Templer::Plugin::Breadcrumbs") |
| App-Templer-1.2 | Templer::Plugin::Markdown | show |
| Templer::Plugin::Factory->new()
->register_formatter( "markdown", "Templer::Plugin::Markdown" ) |
| App-Templer-1.2 | Templer::Plugin::Redis | show |
| Templer::Plugin::Factory->new()->register_plugin("Templer::Plugin::Redis") |
| App-Templer-1.2 | Templer::Plugin::RSS | show |
| App-Templer-1.2 | Templer::Plugin::Hash | show |
| Templer::Plugin::Factory->new()->register_plugin("Templer::Plugin::Hash") |
| App-Templer-1.2 | Templer::Plugin::TimeStamp | show |
| Templer::Plugin::Factory->new()->register_plugin("Templer::Plugin::TimeStamp") |
| App-Templer-1.2 | Templer::Plugin::Strict | show |
| Templer::Plugin::Factory->new()
->register_filter( "strict", "Templer::Plugin::Strict" ) |
| App-Toodledo-2.19 | 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.19 | 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-Toodledo-2.19 | App::Toodledo::TokenCache | show |
| method is_still_good () {
time - $self->creation_time < __PACKAGE__->Max_Token_Life;
}
1 |
| App-Toodledo-2.19 | 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.19 | 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.19 | 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.19 | 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.19 | 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.19 | 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.19 | 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.19 | 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-assh-1.1.2 | App::assh | show |
| method _build_hosts {
$_ = do { local(@ARGV, $/) = $->ssh_config_file; <>; };
s/\s+/ /g;
my $ret = {};
while (m<Host\s(.+?)\sHostName\s(.+?)\sUser\s(.+?)\s>xg) {
$ret->{$1} = { NAME => $2, USER => $3 }
... |
| App-hopen-0.000010 | Data::Hopen::Toolchain | show |
| false |
| App-local-lib-helper-0.07 | Maker | show |
| __PACKAGE__->run_if_script |
| App-opan-0.003002 | App::opan | show |
| caller() ? app : app->tap(sub { shift->log->level('fatal') })->start |
| App-vaporcalc-0.005004 | App::vaporcalc::Cmd::Subject::NicTarget | show |
| method _action_show { $self->_action_view }
method _action_view {
my $ntarget = $self->recipe->target_nic_per_ml;
$self->create_result(
string => " -> Target nicotine: $ntarget mg/ml"
)
}
method _action_set {
my $newnic = $s... |
| App-vaporcalc-0.005004 | App::vaporcalc::Cmd::Subject::Notes | show |
| method _action_show { $self->_action_view }
method _action_view {
my $n = 0;
my $str = " -> notes:\n";
if ($self->recipe->notes->has_any) {
$str .= $self->recipe->notes->map(sub { $n++ .' - '. $_ })->join("\n")
} els... |
| App-vaporcalc-0.005004 | App::vaporcalc::Cmd::Subject::NicType | show |
| method _action_show { $self->_action_view }
method _action_view {
my $type = $self->recipe->base_nic_type;
$self->create_result(
string => " -> Nic type: $type"
)
}
method _action_set {
my $new_nic = $self->params->get... |
| App-vaporcalc-0.005004 | App::vaporcalc::Cmd::Subject::TargetAmount | show |
| method _action_show { $self->_action_view }
method _action_view {
my $amt = $self->recipe->target_quantity;
$self->create_result(string => " target => $amt ml")
}
method _action_set {
my $new_tgt = $self->params->get(0);
$... |
| App-vaporcalc-0.005004 | App::vaporcalc::Cmd::Subject::Pg | show |
| method _action_show { $self->_action_view }
method _action_view {
my $pg = $self->recipe->target_pg;
$self->create_result(
string => " -> PG: $pg %"
)
}
method _action_set {
my $new_pg = $self->params->get(0);
$self-... |
| App-vaporcalc-0.005004 | App::vaporcalc::Cmd::Subject::Vg | show |
| method _action_show { $self->_action_view }
method _action_view {
my $vg = $self->recipe->target_vg;
$self->create_result(string => " -> VG: $vg %")
}
method _action_set {
my $new_vg = $self->params->get(0);
$self->thro... |
| App-vaporcalc-0.005004 | App::vaporcalc::Cmd::Subject::Recipe | show |
| method _action_show { $self->_action_view }
method _action_view {
my $rset = App::vaporcalc::RecipeResultSet->new(recipe => $self->recipe);
$rset->result;
$self->create_result(resultset => $rset)
}
method _action_save {
my $d... |
| App-vaporcalc-0.005004 | App::vaporcalc::Cmd::Subject::Help | show |
| method _action_view { $self->_action_show }
method _action_show {
my $topic = $self->params->get(0);
my $str;
unless ($topic) {
$str = join "\n",
"Commands can be entered as:",
" [ <VERB> <SUBJECT> <PARAM> ... |
| App-vaporcalc-0.005004 | App::vaporcalc::Cmd::Subject::NicBase | show |
| method _action_show { $self->_action_view }
method _action_view {
my $nbase = $self->recipe->base_nic_per_ml;
$self->create_result(
string => " -> Nic base: $nbase mg/ml"
)
}
method _action_set {
my $newbase = $self->para... |
| App-vaporcalc-0.005004 | App::vaporcalc::Cmd::Subject::Flavor | show |
| method _action_show { $self->_action_view }
method _action_view {
my $output = "Flavors:\n";
for my $flavor ($self->recipe->flavor_array->all) {
my $pcnt = $flavor->percentage;
my $tag = $flavor->tag;
my $type = $flavor-... |
| App-vaporcalc-0.005004 | App::vaporcalc::Role::Store | show |
| method save ( (Str | Path) $path ) {
my $jseng = JSON::MaybeXS->new(
utf8 => 1,
pretty => 1,
allow_blessed => 1,
convert_blessed => 1,
);
my $json = $jseng->encode($self)
|| confess "Coul... |
| App-vaporcalc-0.005004 | App::vaporcalc::Role::Calc | show |
| method _base_multiplier { 100 / ($self->base_nic_per_ml || return 1) }
method _calc_base_nic_qty {
return 0 unless $self->target_nic_per_ml;
my $rate = $self->target_nic_per_ml / 100;
my $base_amt_ml = $self->target_quantity * $rate;
... |
| App-vaporcalc-0.005004 | App::vaporcalc::Role::UI::ParseCmd | show |
| method parse_cmd (Str $str) {
my ($subj, $verb);
my $params = array;
my @subjs = array(@{ $self->subject_list })
->nsort_by(sub { length })
->reverse
->all;
SUBJ: for my $maybe (@subjs) {
my $idx = index $str, $maybe;
... |
| App-vaporcalc-0.005004 | App::vaporcalc::Role::UI::PrepareCmd | show |
| method prepare_cmd (
Str :$subject,
(Str | Undef) :$verb = undef,
ArrayObj :$params = array(),
RecipeObject :$recipe,
) {
my $fmt_subj = join '', map {; ucfirst } split ' ', lc $subject;
my $mod = $self->cmd_class_prefi... |
| App-vaporcalc-0.005004 | App::vaporcalc::Role::UI::Cmd | show |
| method execute {
App::vaporcalc::Exception->throw(
message => 'Missing verb; no action to perform!'
) unless $self->verb;
my $meth = '_action_'.lc $self->verb;
return $self->$meth if $self->can($meth);
App::vaporcalc::Exce... |
| Archive-SevenZip-0.11 | Archive::7zip | show |
| *Archive::7zip:: = \*Archive::SevenZip:: |
| Archive-SevenZip-0.11 | Archive::SevenZip::API::ArchiveZip | show |
| *add = \&addMember |
| Articulate-0.005 | Articulate::Routes::Login | show |
| post '/logout' => sub {
my ( $self, $request ) = @_;
my $redirect = $request->params->{'redirect'} // '/';
$self->service->process_request( logout => {} );
} |
| Astro-App-Satpass2-0.040 | Astro::App::Satpass2::Locale::C | show |
| {
'+message' => {
},
'+template' => {
az_rng => <<'EOD',
azel => <<'EOD',
azel_rng => <<'EOD',
equatorial => <<'EOD',
equatorial_rng => <<'EOD',
almanac => <<'EOD',
f... |
| 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);
... |
| Auth-GoogleAuthenticator-0.03 | Dancer::Auth::GoogleAuthenticator | show |
| true |
| AxKit-App-Gallery-0.5 | AxKit::App::Gallery | show |
| $VERSION = 0.5 |
| 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... |
| 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... |
| Benchmark-Perl-Formance-0.53 | 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.501 | Bencode | show |
| bdecode( 'i1e' ) |
| Bifcode-1.002 | Bifcode | show |
| decode_bifcode('I1,') |
| Bio-Community-0.001008 | Bio::Community::TaxonomyUtils | show |
| Bio-Community-0.001008 | Bio::Community::Role::Table | show |
| Bio-Community-0.001008 | Bio::Community::Role::PRNG | show |
| Bio-Community-0.001008 | Bio::Community::Role::Locked | show |
| Bio-GFF3-2.0 | 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
} |
| Bio-RNA-RNAaliSplit-v0.11 | Bio::RNA::RNAaliSplit::Subtypes | show |
| coerce 'Bio::RNA::RNAaliSplit::AliIO'
=> from 'HashRef'
=> via { Bio::AlignIO->new( %{ $_ } ) } |
| Bio-ViennaNGS-v0.19.2 | Bio::ViennaNGS::Subtypes | show |
| subtype 'Bio::ViennaNGS::ZeroOrOne',
as 'Int',
where { $_ == 0 or $_ == 1 },
message { "[SUBTYPE ISSUE]: expecting '0' or '1', however ($_) is neither." } |
| Bookmarks-Parser-0.08 | Bookmarks::Bookmark | show |
| Bookmarks::Bookmark->mk_accessors(
qw/created modified visited charset url name
id personal icon description expanded
trash order type/
) |
| Boost-UUID-0.02 | Boost::UUID | show |
| XSLoader::load( 'Boost::UUID', $VERSION ) |
| Bot-Net-0.1.0 | Bot::Net::Bot | show |
| on _stop => run {
call get(SESSION) => bot 'shutdown';
} |
| Broadworks-OCIP-0.08 | Redcentric::Roles::OCIP | show |
| method _build_oci () {
my $args = {};
foreach my $arg (qw[username authhash host port]) {
my $method = 'oci_' . $arg;
$args->{$arg} = $self->$method;
}
$args->{trace} = 1 if ( $self->debug );
return Broadwor... |
| Broadworks-OCIP-0.08 | Broadworks::OCIP::Deprecated | show |
| method GroupCallCenterForcedForwardingModifyRequest17 ($x0, @generic_params) {
return $self->send_command(
'GroupCallCenterForcedForwardingModifyRequest17',
serviceUserId => $x0,
@generic_params
);
}
method GroupCall... |
| 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") |
| BuzzSaw-0.12.0 | BuzzSaw::DB::Schema::Result::CurrentProcessing | show |
| __PACKAGE__->table('current_processing') |
| C-Blocks-0.42 | examples::libprima | show |
| cshare {
}
1 |
| C-Blocks-0.42 | C::Blocks::StretchyBuffer | show |
| cshare {
static void stb__sbgrowf(pTHX_ void **arr, int increment, int itemsize)
{
int N_items;
int * p;
if (*arr) {
/* If the array was previously allocated, then call for a
* reallocation. */
p = stb__sbraw(*arr);
N_items = stb__... |
| 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-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... |
| CIPP-3.0.8 | CIPP | show |
| $VERSION = "3.0.8" |
| CIPP-Doc-2.28 | CIPP::Doc | show |
| $VERSION="2.28" |
| CLI-Driver-0.3 | CLI::Driver | show |
| method get_action (Str :$name!) {
my $actions = $self->get_actions;
foreach my $action (@$actions) {
if ( $action->name eq $name ) {
return $action;
}
}
}
method get_actions (Bool :$want_hashref = 0) {
my @ret = @{ $self->actions }... |
| CLI-Driver-0.3 | CLI::Driver::Action | show |
| method parse (HashRef :$href!) {
if ( $href->{is_deprecated} ) {
my $string = $href->{is_deprecated};
my $bool = 0;
if ( $string =~ /^true$/i or $string == 1 ) {
$bool = 1;
}
$self->is... |
| CLI-Driver-0.3 | CLI::Driver::Option | show |
| method get_signature {
my %sig;
my $val = $self->get_val;
if ( defined $val ) {
$sig{ $self->method_arg } = $val;
}
return %sig;
}
method is_required {
if ($self->required) {
return 1;
} ... |
| CLI-Driver-0.3 | CLI::Driver::CommonRole | show |
| method chdir (Str $dir) {
$self->verbose3("chdir($dir)");
chdir($dir) or confess "failed to chdir to $dir: $!";
}
method die (Str $str) {
chomp $str;
die "[ERROR] $str\n";
}
method fatal (Str $str, Num $frames? = 0) {
chomp $str;
my $caller... |
| CLI-Driver-0.3 | CLI::Driver::Class | show |
| method parse (HashRef :$href!) {
if ( !$href->{name} ) {
$self->warn("failed to find class name");
return 0;
}
else {
$self->name( $href->{name} );
}
my $attr = $self->_parse_attrs( href => $href );
if ( !$attr ) {
re... |
| CLI-Gwrap-0.030 | CLI::Gwrapper::HTTP | show |
| get '/gwrap' => sub {
if (request->is_ajax) {
return parse_ajax;
}
else {
return html;
}
}
sub title {
my ($self, $new) = @_;
if (@_ > 1) {
$self->frame->SetTitle($new);
$self-... |
| CPAN-Digger-0.08 | CPAN::Digger::WWW | show |
| true |
| CSS-SAC-0.08 | CSS::SAC::SelectorList | show |
| *CSS::SAC::SelectorList::item = \&Item |
| CallBackery-0.18.0 | package | show |
| <%= '__END__' %> |
| 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 =>... |
| Chart-GGPlot-0.0005 | Chart::GGPlot | show |
| fun qplot (
:$x, :$y,
:$facets = undef,
Str :$geom = "auto",
:$xlim = undef, :$ylim = undef,
:$title = undef, :$xlab = 'x', :$ylab = 'y',
%rest
) {
my $log_mode = $rest{log} // '';
state $supported_log_modes = ['', 'x', ... |
| Chart-GGPlot-0.0005 | Chart::GGPlot::HasRequiredAes | show |
| classmethod required_aes() { [] }
method check_required_aes($aesthetics) {
my %aesthetics = map { $_ => 1 } @$aesthetics;
my $missing_aes = $self->required_aes->grep(sub { !exists $aesthetics{$_} } );
return if @$missing_aes == 0;
... |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Guide | show |
| classmethod available_aes () { undef; }
method train ($scale, $aesthetics=undef) {
return $self;
}
classmethod _reverse_df ($df) {
return $df->select_rows( [ reverse( 0 .. $df->nrow - 1 ) ] );
}
1 |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Built | show |
| method layer_data ( $i = 0 ) {
return $self->data->at($i);
}
method layer_prestats_data ( $i = 0 ) {
return $self->prestats_data->at($i);
}
method layer_scales ( $i = 0, $j = 0 ) {
my $layout = $self->layout->layout;
m... |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Aes | show |
| classmethod transform_key ($key) {
return ( $base_to_ggplot{$key} // $key );
}
classmethod all_aesthetics () { \@all_aesthetics; }
method keys () { [ sort( @{ $self->SUPER::keys() } ) ]; }
classmethod check_aesthetics ($aes, $n=undef) {
unl... |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Geom | show |
| classmethod optional_aes() { [] }
method setup_data ($data, $params) { $data }
sub draw_key { return draw_key_point(@_) }
method handle_na ( $data, $params ) {
return remove_missing(
$data,
na_rm => $params->at('na_rm'),
... |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Position | show |
| method setup_params($data) { return {}; }
method setup_data ($data, $params) {
$self->check_required_aes($data->names);
return $data;
}
method compute_layer ($data, $params, $layout) {
my $panel_data = $data->at('PANEL');
my $s... |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Util | show |
| fun has_groups ($df) {
return undef if ( $df->nrow == 0 );
return ( $df->at('group')->at(0) >= 0 );
}
sub collect_functions_from_package {
my ($package) = @_;
load $package;
my ($caller_package) = caller();
my @fun... |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Limits | show |
| fun lims (%pairs) {
my @mapped = pairmap { limits( $a => $b ) } ( %pairs );
return \@mapped;
}
fun xlim (@v) { limits( x => \@v ); }
fun ylim (@v) { limits( y => \@v ); }
fun limits ( $var, $lims ) {
state $check =
Type::Par... |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Scale | show |
| method get_limits () {
return pdl( [ 0, 1 ] ) if $self->isempty;
if ( !$self->limits->isempty ) {
my $limits = $self->limits->copy;
return ifelse( $limits->isgood, $limits, $self->range->range );
}
... |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Global | show |
| method _build_element_tree () {
load Chart::GGPlot::Theme::ElementTree;
return Chart::GGPlot::Theme::ElementTree->default_element_tree();
}
1 |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Theme | show |
| classmethod new ( @rest ) {
my %params = @rest == 1 ? %{ $rest[0] } : @rest;
return $class->_theme(%params);
}
classmethod _theme (:$complete = false, %elements ) {
%elements =
map { $_ => $class->_validate_element( $elements{... |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Layout | show |
| classmethod scale_apply ($data, $vars, $method,
Piddle1D $scale_id, ArrayRef $scales) {
return if ( $vars->length == 0 );
return if ( $data->nrow == 0 );
die if ( $scale_id->nbad );
my $n = $scales->l... |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Stat | show |
| method setup_data ( $data, $params ) { $data }
method setup_params ( $data, $params ) { $params }
method compute_layer ( $data, $params, $layout ) {
$self->check_required_aes(
[ @{ $data->names }, @{ $params->names } ] );
$data... |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Backend | show |
| classmethod build($ggplot) {
state $debug_data = sub {
my ($dataframes, $step) = @_;
$log->debug( "Backend::build : data $step :\n"
. join( "\n", map { $_->string } @$dataframes ) )
if ( $log->is_debug ... |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Coord | show |
| method aspect () { return; }
method labels ($panel_params) { $panel_params }
method range ($panel_params) {
return {
x => $panel_params->at('x_range'),
y => $panel_params->at('y_range'),
};
}
method setup_panel_param... |
| Chart-GGPlot-0.0005 | Chart::GGPlot::HasParams | show |
| classmethod _parameters() { [] }
classmethod extra_params() { [qw(na_rm)] }
classmethod parameters( $extra = false ) {
my $args = $class->_parameters;
if ($extra) {
$args = $args->union( $class->extra_params );
}
return... |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Facet | show |
| method setup_params ($data, $params) { $params }
method setup_data ($data, $params) { $data }
method init_scales ($layout, $params, :$x_scale=undef, :$y_scale=undef) {
my $scales = {};
if ( defined $x_scale ) {
$scales->{x} = [ ( $x_... |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Guides | show |
| method build ($scales, :$layers, :$labels, :$default_mapping=undef, %rest) {
my @gdefs;
for my $scale ($scales->scales->flatten) {
for my $output ( $scale->aesthetics->flatten ) {
my $guide = $self->get_guide($ou... |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Util::_Labeling | show |
| fun _simplicity( $q, $Q, $j, $lmin, $lmax, $lstep ) {
my $n = @$Q;
my $i = List::AllUtils::firstidx { $_ == $q } @$Q;
my $v =
( fmod($lmin, $lstep) < $eps || $lstep - fmod( $lmin, $lstep ) < $eps )
&& $lmin <= 0
&... |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Util::_Base | show |
| fun range_ (Piddle $p, $na_rm = false, $finite = false) {
if ( !$finite and $na_rm ) {
if ( $p->nbad ) {
return pdl( [ 'nan', 'nan' ] )->setnantobad;
}
}
my $p = $finite ? $p->where( $p->isfinite ) : $p;... |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Util::Stats | show |
| fun loess (:$x, :$y, :$weights, :$xseq,
:$span=0.75,
:$se=false, :$level=0.95,
:$degree=undef, :$parametric=undef,
:$drop_square=undef, :$normalize=undef,
:$family=undef) {
load Math::LOESS;
... |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Backend::Plotly | show |
| classmethod _split_on($class_geom_impl, $data) {
my $aes = $class_geom_impl->split_on;
return [ grep { $data->exists($_) } map { "${_}_raw" } @$aes ];
}
method layer_to_traces ($layer, $data, $prestats_data, $layout, $plot) {
return if ... |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Backend::Plotly::Geom | show |
| classmethod make_hovertext ($df, ArrayRef $hover_labels) {
my %seen_hover_aes;
my @hover_assoc = pairmap {
my ( $aes, $var ) = ( $a, $b );
if ( !ref($var) and $seen_hover_aes{$var}++ ) {
();
}
else {
... |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Backend::Plotly::Util | show |
| fun pt_to_px ($x) { $x / 72 * $dpi }
fun cex_to_px ($x) { pt_to_px( 12 * $x * 0.75 * 0.3 ) }
sub br { '<br />' }
fun to_rgb ($color, $alpha=pdl(1)) {
state $check = Type::Params::compile((Piddle | Str), Piddle);
($color, $alpha) = $check-... |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Theme::Defaults | show |
| fun theme_bw (%rest) {
return theme_grey(%rest)->replace(
Chart::GGPlot::Theme->new(
panel_background => element_rect( fill => "white" ),
panel_border => element_rect( color => "grey20" ),
... |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Theme::ElementTree | show |
| classmethod transform_key ($key) {
return ( $key =~ s/\./_/gr );
}
classmethod el_def ( $type, $inherit = [], $desc = '' ) {
$inherit = Ref::Util::is_arrayref($inherit) ? $inherit : [ $inherit // () ];
return {
type => $typ... |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Theme::Functions | show |
| fun update_theme(Theme $old_theme, Theme $new_theme) {
return $new_theme if ($new_theme->complete);
my $new_items = aref_diff($old_theme->names, $new_theme->names);
for my $name (@$new_items) {
$old_theme->set($name, $ggpl... |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Theme::Rel | show |
| classmethod new ($x) {
return ( bless \$x, $class );
}
method value () {
return $$self;
}
1 |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Theme::Element::Functions | show |
| fun rel($x) {
return Chart::GGPlot::Theme::Rel->new($x);
}
1 |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Scale::Positional | show |
| method break_positions ($range=$self->get_limits()) {
return $self->map_to_limits( $self->get_breaks($range) );
}
method axis_order () {
my @ord = qw(primary secondary);
if ( $self->position eq 'right' or $self->position eq 'bo... |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Scale::SupportsSecondaryAxis | show |
| method sec_name () {
return $self->secondary_axis->$_call_if_can('name');
}
method make_sec_title ($title) {
if ( defined $self->secondary_axis ) {
return $self->secondary_axis->make_title($title);
} else {
retu... |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Aes::Functions | show |
| fun _aes ($mapping, $level=$aes_level_default) {
my %params = pairmap {
my $val;
if ( $b->$_DOES('Eval::Quosure') ) {
$val = $b;
}
else {
$val = Eval::Quosure->new( $b . '', $level );
... |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Range::Functions | show |
| fun continuous_range () {
return Chart::GGPlot::Range::Continuous->new();
}
fun discrete_range () {
return Chart::GGPlot::Range::Discrete->new();
}
1 |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Trans::Functions | show |
| fun _register_trans($trans) {
$trans_registry{ $trans->name } = $trans;
}
fun as_trans($x) {
return $x if ( is_trans($x) );
my $trans = $trans_registry{$x};
unless ($trans) {
die "'$x' is not a transformation";
}
retur... |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Labels::Functions | show |
| fun xlab($label) {
return Chart::GGPlot::Labels->new( x => $label );
}
fun ylab($label) {
return Chart::GGPlot::Labels->new( y => $label );
}
fun ggtitle( $title, $subtitle = undef ) {
return Chart::GGPlot::Labels->new(
... |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Guide::Colorbar | show |
| method train ($scale, $aesthetic=undef) {
if ( @{ $scale->aesthetics->intersect( $self->available_aes ) } == 0 ) {
warn sprintf( "colorbar guide needs appropriate scales: %s",
join( ', ', @{ $self->available_aes } ) );
... |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Guide::Legend | show |
| method train ($scale, $aesthetic=undef) {
my $breaks = $scale->get_breaks();
if ($breaks->length == 0 or $breaks->ngood == 0) {
return;
}
my $aes_column_name = $aesthetic // $scale->aesthetics->[0];
my $key = Da... |
| Chart-GGPlot-0.0005 | Chart::GGPlot::Position::Util | show |
| fun collide_setup ($data, $width, $name, $strategy,
$check_width=true, $reverse=false) {
if ( defined $width ) {
unless ( List::AllUtils::all { $data->exists($_) } qw(xmin xmax) ) {
$data->set( 'xmin', $dat... |
| Chart-PNGgraph-1.21 | Chart::PNGgraph | show |
| $Chart::PNGgraph::VERSION |
| Cindy-Apache2-0.09 | Cindy::Apache2::RequestRec | show |
| XSLoader::load('Cindy::Apache2', $Cindy::Apache2::VERSION) |
| ClamAV-Client-0.11 | ClamAV::Config | show |
| TRUE |
| ClamAV-Client-0.11 | ClamAV::Client | show |
| TRUE |
| Class-DBI-Relationship-HasManyOrdered-0.03 | ContentManager::Page | show |
| ContentManager::Page->has_many_ordered(Images => ContentManager::Image => image_id, {order_by => 'position', map => 'pageimages'}) |
| Classic-Perl-0.07 | Classic::Perl | show |
| __THE__=> |
| Convert-Base85-1.02 | Convert::Base85 | show |
| *base85_decode = \&decode |
| Convert-TBX-UTX-0.032 | Convert::TBX::UTX | show |
| _run() unless caller |
| Courier-Filter-v0.200 | Courier::Config | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Filter | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Message | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Error | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Filter::Module | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Filter::Util | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Filter::Logger | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Filter::Logger::Syslog | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Filter::Logger::File | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Filter::Logger::IOHandle | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Filter::Module::SpamAssassin | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Filter::Module::SendCopy | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Filter::Module::ClamAVd | 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::Envelope | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Filter::Module::SPF | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Filter::Module::Parts | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Filter::Module::DNSBL | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Filter::Module::BlankBody | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Filter::Module::SPFout | show |
| TRUE |
| Courier-Filter-v0.200 | Courier::Filter::Module::Header | show |
| 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' => ''
,... |
| DBIx-Class-Migration-0.074 | MusicBase::Schema::MigrationScript | show |
| __PACKAGE__->run_if_script |
| DBIx-Class-Migration-0.074 | DBIx::Class::Migration::Script | show |
| __PACKAGE__->run_if_script |
| DBIx-Class-ResultSet-RecursiveUpdate-0.34 | 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.03 | 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-3.0 | 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-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-1.009 | 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" |
| DOCSIS-ConfigFile-0.76 | DOCSIS::ConfigFile | show |
| $CONFIG_TREE = {
BaselinePrivacy => {
code => 17,
func => 'nested',
lsize => 1,
limit => [0, 0],
nested => {
AuthGraceTime => {code => 3, func => 'uint', lsize => 1, limit => [1, 60479... |
| DSL-HTML-0.006 | DSL::HTML | show |
| default_export include {
my ( $template, @args ) = @_;
my $caller = caller;
check_nesting('include');
my $tmp =
blessed($template)
? $template
: $caller->DSL_HTML->{$template};
croak "No such template '... |
| DSL-HTML-0.006 | DSL::HTML::STL | show |
| template dl {
my ($class, $keys, $data) = process_args(@_);
tag dl(class => $class) {
for my $key ( @$keys ) {
tag dt { $key }
tag dd { $data->{$key} }
}
}
}
template ol {
my ($class, $it... |
| DSL-HTML-0.006 | DSL::HTML::Tag | show |
| croak "deprecated" |
| Dancer-Layout-Bootstrap-0.04 | Dancer::Layout::Bootstrap | show |
| true |
| Dancer-Plugin-Assets-1.52 | Dancer::Plugin::Assets | show |
| true |
| Dancer-Plugin-Auth-Google-0.07 | Dancer::Plugin::Auth::Google | show |
| register_plugin |
| Dancer-Plugin-Auth-Twitter-0.08 | Dancer::Plugin::Auth::Twitter | show |
| Dancer-Plugin-Authen-Simple-0.130500 | Dancer::Plugin::Authen::Simple | show |
| register_plugin for_versions => [ 1, 2 ] |
| Dancer-Plugin-BeforeRoute-2.0 | Dancer2::Plugin::BeforeRoute | show |
| register_plugin |
| Dancer-Plugin-BeforeRoute-2.0 | Dancer::Plugin::BeforeRoute | show |
| register_plugin |
| Dancer-Plugin-Cache-CHI-1.5.0 | Dancer::Plugin::Cache::CHI | show |
| register_plugin |
| Dancer-Plugin-Captcha-AreYouAHuman-1 | Dancer::Plugin::Captcha::AreYouAHuman | show |
| register_plugin |
| Dancer-Plugin-Cerberus-0.03 | Dancer::Plugin::Cerberus | show |
| true |
| Dancer-Plugin-ElasticModel-0.08 | Dancer::Plugin::ElasticModel | show |
| true |
| Dancer-Plugin-ElasticSearch-0.003 | Dancer::Plugin::ElasticSearch | show |
| true |
| Dancer-Plugin-FakeCGI-0.63 | example_FakeCGI | show |
| dance |
| Dancer-Plugin-FakeCGI-0.63 | example_FakeCGI | show |
| true |
| Dancer-Plugin-Interchange6-0.121 | Dancer::Plugin::Interchange6::Routes::Account | show |
| true |
| Dancer-Plugin-Paginate-1.0.2 | Dancer::Plugin::Paginate | show |
| true |
| Dancer-Plugin-RPC-1.07 | Dancer::Plugin::RPC::RESTRPC | show |
| true |
| Dancer-Plugin-RPC-1.07 | Dancer::Plugin::RPC::XMLRPC | show |
| true |
| Dancer-Plugin-TagHelper-0.01 | tagtest | show |
| true |
| Dancer-Plugin-Tapir-0.05 | Dancer::Plugin::Tapir | show |
| true |
| Dancer-Plugin-Transformator-0.002 | Dancer::Plugin::Transformator | show |
| register_plugin |
| Dancer-Plugin-WindowSession-0.02 | window_session_test | show |
| true |
| Dancer-SearchApp-0.06 | Dancer::SearchApp | show |
| true |
| Dancer-Session-Memcached-JSON-0.005 | Dancer::Session::Memcached::JSON | show |
| method update() {
my $id = $secret
? unsign($self->id, $secret)
: $self->id;
my $data = {
cookie => {
path => setting('session_cookie_path') // '/',
httpOnly => settin... |
| Dancer-Session-Memcached-JSON-0.005 | Dancer::Session::Memcached::JSON::Signature | show |
| fun sign(Str $val, Str $secret) {
my $mac = hmac_sha256_base64($val, $secret);
$mac =~ s/\=+$//;
return "s:$val.$mac";
}
fun unsign(Str $val, Str $secret) {
$val =~ s/^s://;
my ($str, $id) = split /\./, $val;
my $mac = sign($str... |
| Dancer-Session-Redis-JSON-0.001 | Dancer::Session::Redis::JSON | show |
| method update() {
my $id = $secret
? unsign($self->id, $secret)
: $self->id;
my $data = {
cookie => {
path => setting('session_cookie_path') // '/',
httpOnly => setti... |
| Dancer-Session-Redis-JSON-0.001 | Dancer::Session::Redis::JSON::Signature | show |
| fun sign(Str $val, Str $secret) {
my $mac = hmac_sha256_base64($val, $secret);
$mac =~ s/\=+$//;
return "s:$val.$mac";
}
fun unsign(Str $val, Str $secret) {
$val =~ s/^s://;
my ($str, $id) = split /\./, $val;
my $mac = sign($str... |
| Dancer2-0.208001 | package | show |
| true |
| Data-Compare-1.25 | Data::Compare::Plugins::Scalar::Properties | show |
| register() |
| Data-Compare-Plugins-JSON-1.04 | 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_an... |
| Data-Compare-Plugins-Set-Object-1.001 | Data::Compare::Plugins::Set::Object | show |
| _register() |
| Data-Downloader-0.9907 | Data::Downloader | show |
| <<"=head1 SCHEMA" |
| Data-Fake-0.004 | Data::Fake::Names | show |
| $surname_count = @surnames |
| Data-Fake-0.004 | Data::Fake::Company | show |
| $company_suffix_count = @company_suffix |
| Data-HanConvert-1.5 | Data::HanConvert::tw2cn | show |
| $Data::HanConvert::tw2cn = {"\x{5176}\x{4ed6}" => "\x{5176}\x{5b83}","\x{8f49}\x{6369}\x{9ede}" => "\x{8f6c}\x{6298}\x{70b9}","\x{96fb}\x{5b50}\x{90f5}\x{4ef6}" => "\x{7535}\x{5b50}\x{90ae}\x{7bb1}","\x{5b58}\x{6a94}" => "\x{5b58}\x{76d8}","\x... |
| Data-HanConvert-1.5 | Data::HanConvert::tw2cn_characters | show |
| $Data::HanConvert::tw2cn_characters = {"\x{9203}" => "\x{9498}","\x{8b5c}" => "\x{8c31}","\x{775e}" => "\x{7750}","\x{7e7d}" => "\x{7f24}","\x{9dbc}" => "\x{9e63}","\x{6417}" => "\x{6363}","\x{7044}" => "\x{6ee0}","\x{8b8a}" => "\x... |
| Data-HanConvert-1.5 | Data::HanConvert::cn2tw | show |
| $Data::HanConvert::cn2tw = {"\x{64cd}\x{4f5c}\x{7cfb}\x{7edf}" => "\x{4f5c}\x{696d}\x{7cfb}\x{7d71}","\x{9634}\x{6c89}\x{6c89}" => "\x{9670}\x{6c88}\x{6c88}","\x{83b7}\x{5f97}" => "\x{7372}\x{5f97}","\x{4ee5}\x{592a}\x{7f51}\x{7edc}" => "\x{4e... |
| Data-HanConvert-1.5 | Data::HanConvert::cn2tw_characters | show |
| $Data::HanConvert::cn2tw_characters = {"\x{953f}" => "\x{9384}","\x{9c99}" => "\x{9c60}","\x{7edd}" => "\x{7d55}","\x{4fa0}" => "\x{4fe0}","\x{9eea}" => "\x{9ef2}","\x{6446}" => "\x{64fa}","\x{98d9}" => "\x{98c6}","\x{28c3e}" => "\... |
| Data-Object-Immutable-0.08 | Data::Object::Immutable | show |
| method new ($data) {
$self = Data::Object->new($data);
Readonly::Hash %$self => %$self if UNIVERSAL::isa $self, 'HASH';
Readonly::Array @$self => @$self if UNIVERSAL::isa $self, 'ARRAY';
Readonly::Scalar $$self => $$self i... |
| Data-Object-Prototype-0.06 | Data::Object::Prototype | show |
| method class () {
my $series = $self->series;
my $format = join '::', $series, '%04d';
my $instance = sprintf $format, ++$counter{$series};
my @statement = "package $instance";
my @supers = 'Data::Object::Prototype::Instan... |
| Data-Object-Prototype-0.06 | Data::Object::Prototype::Package | show |
| method attribute (@args) {
my $class = $self->name;
$class->can('has')->(@args);
return;
}
method mixin_base (Str $name) {
my $class = $self->name;
"Moo"->_set_superclasses($class, $name);
"Moo"->_maybe_reset_... |
| Data-SpreadPagination-0.1.2 | Data::SpreadPagination | show |
| Data-Transactional-1.04 | Data::Compare::Plugins::Data::Transactional | show |
| _register() |
| Database-Async-0.009 | Database::Async | show |
| async sub transaction {
my ($self, @args) = @_;
Scalar::Util::weaken(
$self->{transactions}[@{$self->{transactions}}] =
my $txn = Database::Async::Transaction->new(
database => $self,
... |
| Database-Async-0.009 | Database::Async::ORM | show |
| async sub apply_database_changes {
my ($self, $db, @actions) = @_;
my $ddl = $self->ddl_for($db);
for my $ext ($self->extension_list) {
my ($name) = $ext->name;
try {
die 'invalid name for extension: ' . ... |
| DateTimeX-Auto-0.009 | DateTimeX::Auto | show |
| __FILE__ |
| Defaults-Mauke-0.10 | Defaults::Mauke | show |
| method import($class: @args) {
my $caller = caller;
croak qq{"$_" is not exported by the $class module} for @args;
strict->import;
warnings->import;
warnings->unimport(qw[recursion qw]);
utf8->import;
feature-... |
| Devel-CheckOS-1.81 | Devel::AssertOS | show |
| $^O |
| Devel-Dt-0.04 | Devel::Dt | show |
| () = -.0 |
| Devel-IPerl-0.009 | Devel::IPerl::Plugin::DataMedia | show |
| ...
sub image {
Data::Media::Type::Image->new_from_data( @_ );
}
sub audio {
Data::Media::Type::Audio->new_from_data( @_ );
}
sub tex {
Data::Media::Type::Text::TeX->new_from_data( @_ );
}
sub html {
Data::Media::Type::Text::HTML->new... |
| Devel-NYTProf-6.06 | Devel::NYTProf | show |
| init_profiler() |
| Devel-NYTProf-6.06 | Devel::NYTProf::FileHandle | show |
| &$xs(__PACKAGE__, $Devel::NYTProf::Core::VERSION) |
| Devel-TraceSubs-0.02 | Devel::TraceSubs | show |
| $_ ^=~ { module => 'Devel::TraceSubs', author => 'particle' } |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Sym2type | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Util | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Environment | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type::Omicron | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type::Kappa | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type::Upsilon | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type::TSub | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type::Mu | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type::Io | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type::TTerm | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type::TRef | 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::Zeta | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type::Rho | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type::Pv | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type::Dv | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type::TVar | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type::Eta | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type::Iv | show |
| TRUE |
| Devel-TypeCheck-1.2 | Devel::TypeCheck::Type::Var | show |
| TRUE |
| Device-AVR-UPDI-0.01 | Device::AVR::UPDI | show |
| async sub nvmctrl_command
{
my $self = shift;
my ( $cmd ) = @_;
await $self->sts8( $self->{partinfo}->baseaddr_nvmctrl + NVMCTRL_CTRLA, $cmd );
}
async sub await_nvm_not_busy
{
my $self = shift;
my $timeout = 50;
while( --$ti... |
| Device-Chip-HTU21D-0.03 | Device::Chip::HTU21D | show |
| async sub read_config
{
my $self = shift;
my %config = unpack_REG_USER(
await $self->protocol->write_then_read( pack( "C", CMD_READ_REG ), 1 )
);
my $res = ( delete $config{RES0} ) | ( delete $config{RES1} ) << 1;
$confi... |
| Device-Chip-MPL3115A2-0.06 | Device::Chip::MPL3115A2 | show |
| async sub check_id
{
my $self = shift;
my $val = await $self->read_reg( REG_WHO_AM_I, 1 );
my $id = unpack "C", $val;
$id == WHO_AM_I_ID or
die sprintf "Incorrect response from WHO_AM_I register (got %02X, expected %02X)\n",
... |
| Device-Chip-TSL256x-0.02 | Device::Chip::TSL256x | show |
| async sub read_lux
{
my $self = shift;
my ( $data0, $data1, $config ) = await Future->needs_all(
$self->read_data,
$self->read_config,
);
my $gain = $config->{GAIN};
my $msec = $INTEG_to_msec{ $config->{INTEG} }... |
| Dist-Zilla-MintingProfile-MooseXDeclare-0.200 | 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-AutoPrereqsFast-0.003 | DZPA::Main | show |
| print qw{
use !!
} |
| Dist-Zilla-Plugin-ChangeStats-Git-0.6.0 | 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-1.2.5 | 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 |
| Doodle-0.05 | Doodle | show |
| fun new_commands($self) {
return do('array', []);
}
method table(Str $name, Any %args) {
$args{doodle} = $self;
my $table = Doodle::Table->new(%args, name => $name);
return $table;
}
method schema(Str $name, Any %args) {
$args{doodle}... |
| Doodle-0.05 | Doodle::Grammar | show |
| method exception(Str $msg) {
my $engine = ucfirst $self->name;
confess sprintf "[%s] %s", $engine, ucfirst $msg;
}
method execute(Command $cmd) {
my $sub = $cmd->name;
my $sql = $self->$sub($cmd);
my $statement = Doodle::Statement-&g... |
| Doodle-0.05 | Doodle::Helpers | show |
| method schema_create(Any %args) {
$args{doodle} = $self;
my $command = Doodle::Command->new(%args, name => 'create_schema');
$self->commands->push($command);
return $command;
}
method schema_delete(Any %args) {
$args{doodle} = $s... |
| Doodle-0.05 | Doodle::Schema | show |
| fun new_data($self) {
return do('hash', {});
}
method table(Str $name, Any %args) {
$args{doodle} = $self->doodle;
my $table = Doodle::Table->new(%args, name => $name);
return $table;
}
method create(Any %args) {
$args{schema} = $s... |
| Doodle-0.05 | Doodle::Index | show |
| fun new_data($self) {
return do('hash', {});
}
fun new_name($self) {
my @parts;
my $table = $self->table;
my $columns = $self->columns;
push @parts, $table->name;
push @parts, @{$columns};
return join '_', 'indx', @parts;
}
me... |
| Doodle-0.05 | Doodle::Table | show |
| fun new_data($self) {
return do('hash', {});
}
fun new_columns($self) {
return do('array', []);
}
fun new_indices($self) {
return do('array', []);
}
fun new_relations($self) {
return do('array', []);
}
method column(Str $name, Any %args) {
... |
| Doodle-0.05 | Doodle::Command | show |
| method BUILDARGS(%args) {
my $data = {};
my @names = qw(
name
doodle
schema
table
columns
indices
relation
);
for my $name (@names) {
$data->{$name} = delete $args{$name} if exists $args{$name};
}
$data-&g... |
| Doodle-0.05 | Doodle::Column | show |
| fun new_data($self) {
return do('hash', {});
}
method doodle() {
my $doodle = $self->table->doodle;
return $doodle;
}
method create(Any %args) {
my $table = $self->table;
$args{table} = $table;
$args{schema} = $table->schema i... |
| Doodle-0.05 | Doodle::Migration | show |
| method down(Doodle $d) {
confess("This method is meant to be overwritten by the subclass");
}
method migrate(Str $updn, Str $grammar, CodeRef $callback) {
my $results = [];
my $statements = $self->statements($grammar);
$statements = [revers... |
| Doodle-0.05 | Doodle::Relation | show |
| fun new_data($self) {
return do('hash', {});
}
fun new_name($self) {
my @parts;
my $table = $self->table;
my $column = $self->column;
my $ftable = $self->foreign_table;
my $fcolumn = $self->foreign_column;
push @parts, $table-... |
| Doodle-0.05 | Doodle::Schema::Helpers | show |
| method if_exists() {
$self->data->{if_exists} = 1;
return $self;
}
method if_not_exists() {
$self->data->{if_not_exists} = 1;
return $self;
}
1 |
| Doodle-0.05 | Doodle::Grammar::Mysql | show |
| method wrap(Str $arg) {
return '`'. $arg .'`';
}
method type_binary(Column $col) {
return 'blob';
}
method type_boolean(Column $col) {
return 'tinyint(1)';
}
method type_char(Column $col) {
my $size = $col->data->{size} || 1;
return... |
| Doodle-0.05 | Doodle::Grammar::Postgres | show |
| method wrap(Str $arg) {
return '"'. $arg .'"';
}
method type_binary(Column $col) {
return 'bytea';
}
method type_boolean(Column $col) {
return 'boolean';
}
method type_char(Column $col) {
my $size = $col->data->{size} || 1;
return "... |
| Doodle-0.05 | Doodle::Grammar::Mssql | show |
| method wrap(Str $arg) {
return '['. $arg .']';
}
method type_binary(Column $col) {
return 'varbinary(max)';
}
method type_boolean(Column $col) {
return 'bit';
}
method type_char(Column $col) {
my $size = $col->data->{size} || 1;
ret... |
| Doodle-0.05 | Doodle::Grammar::Sqlite | show |
| method wrap(Str $arg) {
return '"'. $arg .'"';
}
method type_binary(Column $col) {
return 'blob';
}
method type_boolean(Column $col) {
return 'tinyint(1)';
}
method type_char(Column $col) {
return 'varchar';
}
method type_date(Column $col) ... |
| Doodle-0.05 | Doodle::Column::Helpers | show |
| method binary(Any %args) {
$self->type('binary');
$self->data->set(%args) if %args;
return $self;
}
method boolean(Any %args) {
$self->type('boolean');
$self->data->set(%args) if %args;
return $self;
}
method char(Any %... |
| Doodle-0.05 | Doodle::Relation::Helpers | show |
| method on_delete(Str $action) {
$self->data->{on_delete} = $action;
return $self;
}
method on_update(Str $action) {
$self->data->{on_update} = $action;
return $self;
}
1 |
| Doodle-0.05 | Doodle::Table::Helpers | show |
| method binary(Str $name, Any %args) {
my $column = $self->column($name);
$column->binary(%args);
return $column;
}
method boolean(Str $name, Any %args) {
my $column = $self->column($name);
$column->boolean(%args);
return $colu... |
| Dwimmer-0.32 | Dwimmer | show |
| true |
| Dwimmer-0.32 | Dwimmer::Admin | show |
| true |
| 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::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::Exception | show |
| class ETLp::Exception {
use Exception::Class (
'ETLpException'
);
} |
| 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::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::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::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::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::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::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::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::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::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::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::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::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::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::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::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 => ... |
| 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::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::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::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::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::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::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::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::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::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::Serial::Perl | show |
| class ETLp::Plugin::Serial::PLSQL extends ETLp::Plugin::Iterative::PLSQL {
sub type {
return 'plsql';
}
} |
| 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::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::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-&... |
| EekBoek-2.030.1 | EB::Version | show |
| print "$VERSION
" unless caller |
| Eixo-Docker-1.211 | Eixo::Docker::HostConfig | show |
| has(
Binds => [],
PortBindings => {},
BlkioWeight => 0,
CapAdd => undef,
CapDrop => undef,
ContainerIDFile => "",
CpusetCpus => "",
CpusetMems =>"",
CpuShares => 0,
CpuPeriod => 100000,... |
| Eixo-Docker-1.211 | Eixo::Docker::ContainerResume | show |
| has(
Id => '',
Names => [],
Image => '',
Command => '',
Created => 0,
Status => '',
Ports => [],
Labels => {},
SizeRw => 0,
SizeRootFs => 0,
) |
| Eixo-Docker-1.211 | Eixo::Docker::ImageCommit | show |
| has(
Tags => [],
Id => undef,
Created=>undef,
CreatedBy=>undef,
Size=>undef,
) |
| Eixo-Queue-0.5.7 | Eixo::Queue::JobRabbit | show |
| has(
) |
| Email-FolderType-Net-1.043 | Email::FolderType::Net | show |
| *match = Email::FolderType::Net::_create_match(qw[pops pop3s]) |
| Evented-API-Engine-4.11 | Evented::API::Methods | show |
| $mod |
| Exobrain-1.08 | Exobrain::Router | show |
| method start() {
if (not $self->server) {
croak "Attempt to start non-server.";
}
my $zmq = ZMQ::Context->new;
my $sub = $zmq->socket(ZMQ_SUB);
$sub->bind($self->publisher);
$sub->setsockopt(ZMQ_SUBSCRI... |
| Exobrain-1.08 | Exobrain::Agent | show |
| method _build_json() {
eval "use JSON::Any; 1;" or die $@;
return JSON::Any->new;
}
1 |
| Exobrain-1.08 | Exobrain::Bus | show |
| method get() {
my $message = Exobrain::Message::Raw->new( [
map { $_->data } $self->_socket->recv_multipart
] );
if ($self->exobrain) {
$message->exobrain($self->exobrain);
}
return $message;
}
m... |
| Exobrain-1.08 | Exobrain::Measurement::Mailbox | show |
| method _build_summary() {
return join(" ",
$self->user, '@', $self->server, "/", $self->mailbox,
"has", $self->count, "messages"
);
}
1 |
| Exobrain-1.08 | Exobrain::Measurement::Social | show |
| method respond(Str $text) {
$self->exobrain->intent('Response',
to => $self->from,
platform => $self->platform,
in_response_to => $self->id,
text => $text,
... |
| Exobrain-1.08 | Exobrain::Agent::Run | show |
| method start() {
$self->run;
my $class = ref($self);
my $message = "Error: $class exited run() method unexpectedly.";
try { $self->exobrain->notify($message, priority => 1); };
die $message;
}
1 |
| Exobrain-1.08 | Exobrain::Agent::Poll | show |
| method start() {
my $errors = 0;
while (1) {
try {
$self->poll;
sleep( $self->frequency );
$errors = 0;
}
catch {
warn $_;
$errors++;
if ($erro... |
| Exobrain-1.08 | Exobrain::Agent::Action::BeeInbox | show |
| method run() {
my $exobrain = $self->exobrain;
my $cache = $self->cache;
$exobrain->_load_component('Measurement::Mailbox');
$exobrain->_load_component('Intent::Beeminder');
my $inbox_goals = $self->config;
... |
| Exobrain-1.08 | Exobrain::Agent::Action::SimpleBeeHabit | show |
| method depends() {
return qw(Measurement::Beeminder Intent::HabitRPG);
}
method run() {
my $hrpg_tasks = $self->config;
$self->exobrain->watch_loop(
class => 'Measurement::Beeminder',
filter => sub { $hrpg_ta... |
| Exobrain-1.08 | Exobrain::Agent::Action::SocialNotify | show |
| method run {
$self->exobrain->watch_loop(
class => 'Measurement::Social',
filter => sub { $_->to_me },
then => sub {
$self->exobrain->notify( $_->summary )
},
);
}
1 |
| Exobrain-1.08 | Exobrain::Agent::Action::Ping | show |
| method run() {
$self->exobrain->watch_loop(
class => 'Measurement::Social',
filter => sub { $_->to_me and grep { /^ping$/ } @{ $_->tags } },
then => sub { $_->respond("Ack (via exobrain)"); },
);
... |
| Exobrain-1.08 | Exobrain::Agent::Action::SendmailXP | show |
| method depends() { qw(Intent::HabitRPG Measurement::Mailbox) }
method run(...) {
my $task = $self->config->{task} or die "No HabitRPG task";
my $cache = $self->cache;
$self->exobrain->watch_loop(
class => 'Measur... |
| Exobrain-Beeminder-1.06 | Exobrain::Measurement::Beeminder | show |
| method _build_user() {
return $self->_split_summary('user');
}
method _build_goal() {
return $self->_split_summary('goal');
}
method _split_summary($attr!) {
my %attrs;
@attrs{qw(user goal)} = split('/', $self->source);
ret... |
| Exobrain-Beeminder-1.06 | Exobrain::Agent::Beeminder::Sink | show |
| method run() {
my $bee = WebService::Beeminder->new(
token => $self->config->{auth_token}
);
$self->exobrain->watch_loop(
class => 'Intent::Beeminder',
then => sub {
my $event = shi... |
| Exobrain-Beeminder-1.06 | Exobrain::Agent::Beeminder::Source | show |
| method run() {
set port => 3000;
set logger => 'console';
set log => 'core';
set warnings => 1;
post qr{.*} => sub {
if( (param('action')||"") ne 'ADD') {
warning("Non-add packet receiv... |
| Exobrain-Beeminder-1.06 | Exobrain::Agent::Beeminder::Notify | show |
| method run() {
$self->exobrain->watch_loop(
class => 'Measurement::Beeminder',
then => sub {
$self->exobrain->notify($_->summary);
},
);
}
1 |
| Exobrain-Foursquare-0.01 | Exobrain::Agent::Foursquare | show |
| method foursquare_api($path, %args) {
my $base = $self->api_base;
my %full_args = (
v => '20130425',
oauth_token => $self->auth_token,
%args
);
my $arguments = join('&', map { "$_=$full_args{$_}" } ke... |
| Exobrain-Foursquare-0.01 | Exobrain::Agent::Foursquare::Source | show |
| method _build_last_check() {
return $self->cache->compute(LAST_CHECK, undef, sub { time() } );
}
method _last_check_update($value!, ...) {
$self->cache->set(LAST_CHECK, $value);
}
method poll() {
my $checktime = time();
my $... |
| Exobrain-HabitRPG-0.01 | Exobrain::Agent::HabitRPG | show |
| method _build_habit() {
my $config = $self->config;
my $api_token = $config->{api_token} or die "API token not found";
my $user_id = $config->{user_id} or die "User ID not found";
eval "use WebService::HabitRPG; 1;" or die $... |
| Exobrain-HabitRPG-0.01 | Exobrain::Agent::HabitRPG::Sink | show |
| method run() {
$self->exobrain->watch_loop(
class => 'Intent::HabitRPG',
then => sub {
my $event = shift;
my $hrpg = $self->habitrpg;
my $task = $event->task;
my... |
| Exobrain-Idonethis-1.08 | Exobrain::Agent::Idonethis | show |
| method _build_idonethis() {
my $config = $self->config;
my $user = $config->{user} or die "Can't find Idonethis/user";
my $pass = $config->{pass} or die "Can't find Idonethis/pass";
return WebService::Idonethis->new(
... |
| Exobrain-Idonethis-1.08 | Exobrain::Agent::Idonethis::Sink | show |
| method run() {
$self->exobrain->watch_loop(
class => 'Intent::PersonalLog',
then => sub {
my $event = shift;
my $text = $event->summary;
$self->idone->set_done(
... |
| Exobrain-Twitter-1.04 | Exobrain::Measurement::Tweet | show |
| Exobrain-Twitter-1.04 | Exobrain::Agent::Twitter | show |
| Exobrain-Twitter-1.04 | Exobrain::Agent::Twitter::Sink | show |
| Exobrain-Twitter-1.04 | Exobrain::Agent::Twitter::Source | show |
| Exobrain-Twitter-1.04 | Exobrain::Agent::Twitter::Response | show |
| FAIR-Data-1.001 | FAIR::Data | show |
| $FAIR::Data::VERSION = '1.001' |
| Facebook-Graph-1.1205 | recipe2 | show |
| true |
| Faker-0.12 | Faker | show |
| method provider (STRING $name) {
my $providers = $self->providers;
my $namespace = $self->namespace;
my $locale = $self->locale;
my $default = 'en_US';
return $providers->{$name}
if $providers->{$name};
... |
| Faker-0.12 | Faker::Provider::Internet | show |
| method domain_name () {
return join '.', $self->domain_word, $self->root_domain;
}
method domain_word () {
my $factory = $self->factory;
my $company = $factory->provider('Company');
my $string = lc $company->name;
$st... |
| Faker-0.12 | Faker::Provider::Color | show |
| method name () {
return $self->process(random => 'name');
}
method hex_code () {
my $number = $self->random_between(1, 16777215);
return '#' . sprintf('%06s', sprintf('%02x', $number));
}
method rgbcolors () {
return join ',', @... |
| Faker-0.12 | Faker::Provider::Payment | show |
| method card_expiration () {
my $pad = $self->random_between(1,3);
my $month = sprintf('%02d', $self->random_between(1,12));
my $year = sprintf('%02d', ((localtime)[5] % 100) + $pad);
return "$month/$year";
}
method card_number (S... |
| Faker-0.12 | Faker::Provider::Company | show |
| method name () {
return $self->process(random => 'name');
}
method name_suffix () {
return $self->process(random => 'name_suffix');
}
1 |
| Faker-0.12 | Faker::Provider::Address | show |
| method line1 () {
return $self->process(random => 'line1', number_markers => 1,
line_markers => 1);
}
method lines () {
return $self->process(random => 'lines', number_markers => 1,
line_markers => 1);
}
m... |
| Faker-0.12 | Faker::Provider::Person | show |
| method name () {
return $self->process(random => 'name');
}
method first_name () {
return $self->process(random => 'first_name');
}
method last_name () {
return $self->process(random => 'last_name');
}
method username () {... |
| Faker-0.12 | Faker::Provider::Lorem | show |
| method paragraph (INTEGER :$n_sentences = 4) {
return $self->sentences(n_sentences => $n_sentences) . "\n\n";
}
method paragraphs (INTEGER :$n_paragraphs = 2, INTEGER :$v_length = 5) {
return join "", map {
$v_length > 4 ?
... |
| Faker-0.12 | Faker::Provider::Telephone | show |
| method number () {
return $self->process(random => 'number', all_markers => 1);
}
1 |
| Faker-0.12 | Faker::Provider::en_US::Company | show |
| method buzzword_type1 () {
return $self->process(random => 'buzzword_type1');
}
method buzzword_type2 () {
return $self->process(random => 'buzzword_type2');
}
method buzzword_type3 () {
return $self->process(random => 'buz... |
| Faker-0.12 | Faker::Provider::en_US::Address | show |
| method city_prefix () {
return $self->process(random => 'city_prefix');
}
method country_name () {
return $self->process(random => 'country_name');
}
method line2 () {
return $self->process(random => 'line2', number_markers... |
| Faker-0.12 | Faker::Provider::en_US::Person | show |
| method name_prefix () {
return $self->process(random => 'name_prefix');
}
method name_suffix () {
return $self->process(random => 'name_suffix');
}
1 |
| Faker-0.12 | Faker::Role::Format | show |
| method format_lex_markers (STRING $string) {
$string =~ s/\?/$self->random_letter/eg;
return $string;
}
method format_line_markers (STRING $string) {
$string =~ s/\\n/\n/g;
return $string;
}
method format_number_markers (STRING $str... |
| Faker-0.12 | Faker::Role::Process | show |
| method process (
STRING :$random,
STRING :$all_markers = '',
STRING :$lex_markers = '',
STRING :$line_markers = '',
STRING :$number_markers = ''
) {
my $string = $self->process_random($random);
$string = $self->... |
| Faker-0.12 | Faker::Role::Data | show |
| method token_data () {
my $class = ref $self;
my @parents = do { no strict 'refs'; @{"${class}::ISA"} };
my @data = {};
for my $target ($class, @parents) {
push @data => $self->token_data_from_file($target);
pus... |
| Faker-0.12 | Faker::Role::Random | show |
| method random_between
(
Maybe[INTEGER] $from,
Maybe[INTEGER] $to
) {
my $max = 2147483647;
$from = 0 if !$from || $from > $max;
$to = $max if !$to || $to > $max;
return $from + int rand($to - $from);
}
method rand... |
| 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-HomeDir-Tiny-0.01 | File::HomeDir::Tiny | show |
| @EXPORT='home' |
| FileDirUtil-v0.04 | FileDirUtil | show |
| with 'FileDirUtil' |
| Filter-Simple-0.94 | DemoData | show |
| FILTER_ONLY
data => sub { s/(^|[ \t]+)(\S)/\u$2/gm },
all => sub { print } |
| Filter-Simple-0.94 | 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$_" }, |
| Filter-Simple-0.94 | DotsForArrows | show |
| FILTER { s/\b\.(?=[a-z_\$({[])/->/gi } |
| Filter-Simple-0.94 | Demo_Exporter | show |
| FILTER {
s/dye/die/g;
} |
| Filter-Simple-0.94 | Demo_Data | show |
| FILTER { s/say/print/g; } |
| Filter-Simple-0.94 | 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.94 | DemoUnPod | show |
| FILTER_ONLY
executable => sub { s/x/X/g },
executable => sub { print } |
| Filter-Simple-0.94 | DemoRevCat | show |
| FILTER_ONLY
code => sub {
my $ph = $Filter::Simple::placeholder;
s/($ph)\s*[.]\s*($ph)/$2.$1/g
}, |
| Filter-Simple-0.94 | Demo_Importer | show |
| FILTER {
s/dye/die/g;
} |
| Finance-Bank-Bankwest-1.2.8 | Finance::Bank::Bankwest::Account | show |
| class Finance::Bank::Bankwest::Account {
use MooseX::StrictConstructor;
for (
[ name => 'Str' ],
[ number => 'Str' ],
[ balance => 'Num' ],
[ credit_limit => 'Nu... |
| Finance-Bank-Bankwest-1.2.8 | Finance::Bank::Bankwest::Error | show |
| class Finance::Bank::Bankwest::Error
extends Throwable::Error
{
use MooseX::StrictConstructor;
has '+message' => (
builder => 'MESSAGE',
lazy => 1,
);
} |
| Finance-Bank-Bankwest-1.2.8 | Finance::Bank::Bankwest::Transaction | show |
| class Finance::Bank::Bankwest::Transaction is dirty {
use MooseX::StrictConstructor;
for (
[ date => 'Str' ],
[ narrative => 'Str' ],
[ cheque_num => 'Maybe[Str]' ],
[ amoun... |
| Finance-Bank-Bankwest-1.2.8 | Finance::Bank::Bankwest::Session | show |
| class Finance::Bank::Bankwest::Session {
use Finance::Bank::Bankwest::Parsers ();
use MooseX::StrictConstructor;
use MooseX::Types;
use TryCatch;
class_type 'WWW::Mechanize';
with 'MooseX::OneArgNew' => {
type ... |
| Finance-Bank-Bankwest-1.2.8 | Finance::Bank::Bankwest::SessionFromLogin | show |
| class Finance::Bank::Bankwest::SessionFromLogin {
use Finance::Bank::Bankwest::Parsers ();
use Finance::Bank::Bankwest::Session ();
use MooseX::StrictConstructor;
use TryCatch;
use WWW::Mechanize ();
has 'pan' => (
... |
| Finance-Bank-Bankwest-1.2.8 | Finance::Bank::Bankwest::Error::WithResponse | show |
| role Finance::Bank::Bankwest::Error::WithResponse {
use MooseX::Types;
class_type 'HTTP::Response';
with 'MooseX::OneArgNew' => {
type => 'HTTP::Response',
init_arg => 'response',
};
has 'response... |
| Finance-Bank-Bankwest-1.2.8 | Finance::Bank::Bankwest::Error::BadResponse | show |
| class Finance::Bank::Bankwest::Error::BadResponse
extends Finance::Bank::Bankwest::Error
with Finance::Bank::Bankwest::Error::WithResponse
{
method MESSAGE {
'the Bankwest Online Banking server returned an unexpected response'
}
} |
| Finance-Bank-Bankwest-1.2.8 | Finance::Bank::Bankwest::Error::NotLoggedIn | show |
| class Finance::Bank::Bankwest::Error::NotLoggedIn
extends Finance::Bank::Bankwest::Error
{
} |
| Finance-Bank-Bankwest-1.2.8 | Finance::Bank::Bankwest::Error::ServiceMessage | show |
| class Finance::Bank::Bankwest::Error::ServiceMessage
extends Finance::Bank::Bankwest::Error
with Finance::Bank::Bankwest::Error::WithResponse
{
method MESSAGE {
'the Bankwest Online Banking server presented a service '
. 'm... |
| Finance-Bank-Bankwest-1.2.8 | Finance::Bank::Bankwest::Error::ExportFailed | show |
| class Finance::Bank::Bankwest::Error::ExportFailed
extends Finance::Bank::Bankwest::Error
{
method MESSAGE {
return sprintf(
"%s %s [%s], %s\n%s",
'the Bankwest Online Banking server rejected transaction',
... |
| Finance-Bank-Bankwest-1.2.8 | Finance::Bank::Bankwest::Error::ExportFailed::UnknownReason | show |
| class Finance::Bank::Bankwest::Error::ExportFailed::UnknownReason
extends Finance::Bank::Bankwest::Error::ExportFailed
with Finance::Bank::Bankwest::Error::WithResponse
{
method MESSAGE {
'the Bankwest Online Banking server declined to... |
| Finance-Bank-Bankwest-1.2.8 | Finance::Bank::Bankwest::Error::NotLoggedIn::UnknownReason | show |
| class Finance::Bank::Bankwest::Error::NotLoggedIn::UnknownReason
extends Finance::Bank::Bankwest::Error::NotLoggedIn
with Finance::Bank::Bankwest::Error::WithResponse
{
method MESSAGE {
'a Bankwest Online Banking session cannot be esta... |
| Finance-Bank-Bankwest-1.2.8 | Finance::Bank::Bankwest::Error::NotLoggedIn::Timeout | show |
| class Finance::Bank::Bankwest::Error::NotLoggedIn::Timeout
extends Finance::Bank::Bankwest::Error::NotLoggedIn
{
method MESSAGE {
'the Bankwest Online Banking session has timed out '
. 'due to inactivity'
}
} |
| Finance-Bank-Bankwest-1.2.8 | Finance::Bank::Bankwest::Error::NotLoggedIn::BadCredentials | show |
| class Finance::Bank::Bankwest::Error::NotLoggedIn::BadCredentials
extends Finance::Bank::Bankwest::Error::NotLoggedIn
{
method MESSAGE {
'could not log into Bankwest Online Banking; '
. 'invalid PAN/access code combination'
... |
| Finance-Bank-Bankwest-1.2.8 | Finance::Bank::Bankwest::Error::NotLoggedIn::SubsequentLogin | show |
| class Finance::Bank::Bankwest::Error::NotLoggedIn::SubsequentLogin
extends Finance::Bank::Bankwest::Error::NotLoggedIn
{
method MESSAGE {
'the Bankwest Online Banking session has been terminated '
. 'due to a subsequent login'
... |
| Finance-Bank-Bankwest-1.2.8 | Finance::Bank::Bankwest::Parser::Login | show |
| class Finance::Bank::Bankwest::Parser::Login
with HTTP::Response::Switch::Handler
{
use Finance::Bank::Bankwest::Error::NotLoggedIn::BadCredentials ();
use Finance::Bank::Bankwest::Error::NotLoggedIn::SubsequentLogin ();
use Finance::Bank:... |
| Finance-Bank-Bankwest-1.2.8 | Finance::Bank::Bankwest::Parser::Logout | show |
| class Finance::Bank::Bankwest::Parser::Logout
with HTTP::Response::Switch::Handler
{
use Web::Scraper qw{ scraper process };
my $token = 'You have successfully logged out from your session';
my $scraper = scraper {
process '#conte... |
| Finance-Bank-Bankwest-1.2.8 | Finance::Bank::Bankwest::Parser::TransactionExport | show |
| class Finance::Bank::Bankwest::Parser::TransactionExport
with HTTP::Response::Switch::Handler
{
use Finance::Bank::Bankwest::Transaction ();
use IO::String ();
use Text::CSV_XS 0.66 ();
method handle {
$self->decline
... |
| Finance-Bank-Bankwest-1.2.8 | Finance::Bank::Bankwest::Parser::TransactionSearch | show |
| class Finance::Bank::Bankwest::Parser::TransactionSearch
with HTTP::Response::Switch::Handler
{
use Finance::Bank::Bankwest::Error::ExportFailed ();
use Finance::Bank::Bankwest::Error::ExportFailed::UnknownReason ();
use Web::Scraper qw{ s... |
| Finance-Bank-Bankwest-1.2.8 | Finance::Bank::Bankwest::Parser::Accounts | show |
| class Finance::Bank::Bankwest::Parser::Accounts
with HTTP::Response::Switch::Handler
{
use Finance::Bank::Bankwest::Account ();
use Web::Scraper qw{ scraper process };
my $scraper = scraper {
process
'#_ctl0_ContentMai... |
| Finance-Bank-Bankwest-1.2.8 | Finance::Bank::Bankwest::Parser::ServiceMessage | show |
| class Finance::Bank::Bankwest::Parser::ServiceMessage
with HTTP::Response::Switch::Handler
{
use Finance::Bank::Bankwest::Error::ServiceMessage ();
use Web::Scraper qw{ scraper process };
my $scraper = scraper {
process '#divInter... |
| Finance-IBrokers-MooseCallback-0.02 | Finance::IBrokers::MooseCallback | show |
| class Finance::IBrokers::MooseCallback {
use MooseX::Types::Moose qw( Int Any Num HashRef ArrayRef Any);
use Data::Dumper;
use Time::HiRes::Value;
use Date::Manip;
use Finance::IBrokers::Types
qw(Contract Order OrderState Contr... |
| 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-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-TA-v0.4.3 | Finance::TA | show |
| $INITIALIZED |
| Finance-TA-v0.4.3 | Finance::TA::TA_RetCodeInfo | 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::Radcheck | show |
| __PACKAGE__->set_primary_key( qw/ id / ) |
| FreeRADIUS-Database-0.06 | FreeRADIUS::Database::Storage::Result::MonthlyAgg | show |
| __PACKAGE__->set_primary_key( qw/ MTotAcctId / ) |
| FreeRADIUS-Database-0.06 | FreeRADIUS::Database::Storage::Result::Radacct | show |
| __PACKAGE__->set_primary_key( qw/ RadAcctId / ) |
| FreeRADIUS-Database-0.06 | FreeRADIUS::Database::Storage::Result::DailyAgg | show |
| __PACKAGE__->set_primary_key( qw/ TotAcctId / ) |
| 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::JPEG | show |
| bootstrap VRML::JPEG |
| FreeWRL-0.14 | VRML::PNG | show |
| bootstrap VRML::PNG |
| Freecell-App-0.03 | Freecell::App | show |
| run() unless caller |
| Function-Interface-0.06 | Foo | show |
| fun hello(Str $msg) :Return(Str) {
return "HELLO $msg";
}
1 |
| 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::WithMap | show |
| $VERSION |
| GIFgraphExtensions-1.0 | GIFgraph::EvenlySpaced | 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.20 | Gedcom::Grammar_5_5_1 | show |
| $grammar = bless( {
fh => \*Symbol::GEN2,
file => 'gedcom-5.5.1.grammar',
gedcom => {},
items => [
bless( {
file => '*',
items => [
bless( {
_items => 1,
file => '*',
gedcom => {},
items => [],
level => 0,
line => 3,
ma... |
| Gedcom-1.20 | Gedcom::Grammar_5_5 | show |
| $grammar = bless( {
fh => \*Symbol::GEN2,
file => 'gedcom-5.5.grammar',
gedcom => {},
items => [
bless( {
file => '*',
items => [
bless( {
_items => 1,
file => '*',
gedcom => {},
items => [],
level => 0,
line => 3,
max ... |
| Geo-Calc-XS-0.33 | Geo::Calc::XS | show |
| XSLoader::load 'Geo::Calc::XS', $VERSION |
| Getopt-Mixed-1.12 | 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-Gitalist-0.000003 | Git::Gitalist::HasUtils | show |
| method _build_util { confess(shift() . " cannot build _util") }
1 |
| Git-Gitalist-0.000003 | Git::Gitalist::Util | show |
| method BUILDARGS(@p) {
my $args = $self->SUPER::BUILDARGS(@p);
unless($args->{_git}) {
$args->{_git} ||= git_executable_path
or die "Could not find a git executable in the PATH";
}
return $args;
}
method run_cmd (@args) {
... |
| Git-Gitalist-0.000003 | Git::Gitalist::Repository | show |
| method BUILD($args) {
$self->$_() for qw/last_change owner description /;
}
method head_hash (Str $head?) {
my $output = $self->run_cmd(qw/rev-parse --verify/, $head || 'HEAD' );
confess("No such head: " . $head) unless defined $outpu... |
| Git-Gitalist-0.000003 | Git::Gitalist::Object::HasTree | show |
| method _build_tree {
my $output = $self->_run_cmd(qw/ls-tree -z/, $self->sha1);
return unless defined $output;
my @ret;
for my $line (split /\0/, $output) {
my ($mode, $type, $object, $file) = split /\s+/, $line, 4;
... |
| Git-Gitalist-0.000003 | Git::Gitalist::Object::Commit | show |
| method _build_tree {
return [$self->repository->get_object($self->tree_sha1)];
}
method sha_by_path ($path) {
$path =~ s{/+$}();
my @paths = $self->repository->run_cmd('ls-tree', $self->sha1, '--', $path)
or return;
... |
| Git-Gitalist-0.000003 | Git::Gitalist::Object::Tag | show |
| method _build_commit {
return Git::Gitalist::Object::Commit->new(
repository => $self->repository,
sha1 => $self->object,
type => 'commit',
);
}
method tree {
return [$self->repository->get_object($se... |
| 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... |
| Gnuplot-Simple-0.013 | Gnuplot::Simple | show |
| func _is_valid (Str $r) {
$r =~ /^[^\n\r"]*\z/;
}
func _check_constraint ( ArrayRef[ArrayRef] $data ) {
die 'Non-empty data not accepted'
unless @$data;
for (@$data) {
assert @$_ > 0, "There must be more than one column";
... |
| GraphQL-0.36 | GraphQL::Execution | show |
| fun _get_field_def(
(InstanceOf['GraphQL::Schema']) $schema,
(InstanceOf['GraphQL::Type']) $parent_type,
StrNameValid $field_name,
) :ReturnType(Maybe[HashRef]) {
return $TYPE_NAME_META_FIELD_DEF
if $field_name eq $TYPE_NAME_META_FIELD_DEF->... |
| GraphQL-0.36 | GraphQL::Language::Receiver | show |
| method gotrule (Any $param = undef) {
return unless defined $param;
if ($KINDHASH21{$self->{parser}{rule}}) {
return {kind => $self->{parser}{rule}, %{$self->_locate_hash(_merge_hash($param))}};
} elsif ($KINDFIELDS21{$self->{pars... |
| GraphQL-0.36 | GraphQL::Language::Parser | show |
| fun parse(
Str $source,
Bool $noLocation = undef,
) :ReturnType(ArrayRef[HashRef]) {
my $parser = __PACKAGE__->SUPER::new(
grammar => $GRAMMAR,
receiver => GraphQL::Language::Receiver->new,
);
my $input = Pegex::Input->new... |
| Graphics-ColorDeficiency-0.05 | Graphics::ColorDeficiency::Data | show |
| $HASH = {
'cc3300' => [
'7e711b',
'8f6d00',
'cc3030'
],
'ccff99' => [
'ffeb97',
'ffd8ab... |
| Graphics-Grid-0.0001 | Graphics::Grid::Util | show |
| fun dots_to_inches( $x, $dpi ) { $x / $dpi; }
fun inches_to_dots( $x, $dpi ) { $x * $dpi; }
fun dots_to_cm( $x, $dpi ) { $x / $dpi * 2.54; }
fun cm_to_dots( $x, $dpi ) { $x / 2.54 * $dpi; }
fun points_to_cm($x) { $x / 72.27 * 2.54; }
fun cm_to_points($x... |
| Graphics-Grid-0.0001 | Graphics::Grid::Driver | show |
| method _transform_width_to_cm(
$unitlike, $idx, $gp,
$vp_width_cm = $self->_current_vp_width_cm,
$vp_height_cm = $self->_current_vp_height_cm
)
{
return $self->_transform_to_cm( $unitlike, $idx, $gp, $vp_width_cm );
}
method _... |
| Graphics-Grid-0.0001 | Graphics::Grid::Functions | show |
| fun grid_driver( :$driver = 'Cairo', %rest ) {
if ( $driver->DOES('Graphics::Grid::Driver') ) {
$grid->driver($driver);
}
else {
my $cls = "Graphics::Grid::Driver::$driver";
load $cls;
$grid->driver( $c... |
| Graphics-Grid-0.0001 | Graphics::Grid::Justifiable | show |
| method calc_left_bottom( $x, $y, $width, $height ) {
my $left = $x - $self->hjust * $width;
my $bottom = $y - $self->vjust * $height;
return ( $left, $bottom );
}
1 |
| Graphics-Grid-0.0001 | Graphics::Grid::Grob::Null | show |
| method _build_elems() { 0 }
method draw($driver) { }
1 |
| Graphics-Grid-0.0001 | Graphics::Grid::Grob::Text | show |
| method _build_elems() {
return scalar( @{ $self->label } );
}
method draw($driver) {
$driver->draw_text($self);
}
1 |
| Graphics-Grid-0.0001 | Graphics::Grid::Grob::Zero | show |
| method _build_elems() { 0 }
method draw($driver) { }
1 |
| Graphics-VTK-4.0.001 | Graphics::VTK::Colors | show |
| @violet_red_pale = qw/0.8588 0.4392 0.5765/ |
| Gtk2-Ex-ErrorTextDialog-11 | 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-TableLayout-1.001008 | HTML::TableLayout | show |
| %EXPORT_TAGS=(FORM=>
[qw(
form
choice
button
checkbox
textarea
hidden
faux
input_text
password
submit
radio
)]) |
| HTTP-Engine-0.03005 | HTTP::Engine::Interface::Standalone | show |
| __INTERFACE__ |
| HTTP-Engine-0.03005 | HTTP::Engine::Interface::ModPerl | show |
| __INTERFACE__ |
| HTTP-Engine-0.03005 | HTTP::Engine::Interface::Test | show |
| __INTERFACE__ |
| HTTP-Engine-0.03005 | HTTP::Engine::Interface::FCGI | show |
| __INTERFACE__ |
| HTTP-Engine-0.03005 | HTTP::Engine::Interface::CGI | show |
| __INTERFACE__ |
| HTTP-Engine-0.03005 | HTTP::Engine::Interface::ServerSimple | show |
| __INTERFACE__ |
| HTTP-Engine-0.03005 | HTTP::Engine::Interface::PSGI | show |
| __INTERFACE__ |
| HTTP-Engine-0.03005 | HTTP::Engine::Interface::POE | show |
| __INTERFACE__ |
| HTTP-Engine-Middleware-0.22 | HTTP::Engine::Middleware::UploadTemp | show |
| __MIDDLEWARE__ |
| HTTP-Engine-Middleware-0.22 | HTTP::Engine::Middleware::MobileAttribute | show |
| __MIDDLEWARE__ |
| HTTP-Engine-Middleware-0.22 | HTTP::Engine::Middleware::FillInForm | show |
| __MIDDLEWARE__ |
| HTTP-Engine-Middleware-0.22 | HTTP::Engine::Middleware::MethodOverride | show |
| __MIDDLEWARE__ |
| HTTP-Engine-Middleware-0.22 | HTTP::Engine::Middleware::DoCoMoGUID | 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::HTTPSession | show |
| __MIDDLEWARE__ |
| HTTP-Engine-Middleware-0.22 | HTTP::Engine::Middleware::Static | show |
| __MIDDLEWARE__ |
| HTTP-Engine-Middleware-0.22 | HTTP::Engine::Middleware::DebugRequest | show |
| __MIDDLEWARE__ |
| HTTP-Engine-Middleware-0.22 | HTTP::Engine::Middleware::ModuleReload | show |
| __MIDDLEWARE__ |
| HTTP-Engine-Middleware-0.22 | HTTP::Engine::Middleware::AccessLog | show |
| __MIDDLEWARE__ |
| HTTP-Engine-Middleware-0.22 | HTTP::Engine::Middleware::DebugScreen | show |
| __MIDDLEWARE__ |
| HTTP-Engine-Middleware-0.22 | HTTP::Engine::Middleware::Profile | show |
| __MIDDLEWARE__ |
| HTTP-Engine-Middleware-0.22 | HTTP::Engine::Middleware::Encode | show |
| __MIDDLEWARE__ |
| Hash-Abbrev-0.01 | Hash::Abbrev | show |
| __PACKAGE__ if 'first require' |
| IO-Async-Loop-AnyEvent2-ElectricBoogaloo-0.003 | IO::Async::Loop::AnyEvent2::ElectricBoogaloo | show |
| <<'' |
| IO-Callback-HTTP-0.003 | IO::Callback::HTTP | show |
| true |
| IPC-Run-20180523.0 | IPC::Run::Debug | show |
| eval( $disable_debugging ? <<'STUBS' : <<'SUBS' ) or die $@ |
| IPTables-IPv4-DBTarpit-0.44 | IPTables::IPv4::DBTarpit | show |
| $VERSION = do { q|char version[] = "dbtarpit 0.44, 1-27-14";| =~ /(\d+)\.(\d+)/; sprintf("%d.%02d",$1,$2)} |
| Image-ExifTool-11.50 | Image::ExifTool::Reconyx | show |
| %Image::ExifTool::Reconyx::Type3 = (
GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
WRITE_PROC => \&Image::ExifTool::WriteBinaryData,
CHECK_PROC => \&Image::ExifTool:... |
| Image-ExifTool-11.50 | Image::ExifTool::DJI | show |
| %Image::ExifTool::DJI::XMP = (
%Image::ExifTool::XMP::xmpTableDefaults,
GROUPS => { 0 => 'XMP', 1 => 'XMP-drone-dji', 2 => 'Location' },
NAMESPACE => 'drone-dji',
TABLE_DESC => 'XMP DJI',
VARS => { NO_ID => 1 },... |
| Image-ExifTool-11.50 | 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-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.002001 | Image::ValidJpeg | show |
| XSLoader::load('Image::ValidJpeg', $VERSION) |
| Imager-1.011 | 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-1.011 | 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-1.011 | 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-1.011 | 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-1.011 | 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-File-GIF-0.95 | 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.93 | 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.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-File-TIFF-0.89 | 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-File-WEBP-0.005 | Imager::File::WEBP | show |
| Imager->register_writer
(
type=>'webp',
single =>
sub {
my ($im, $io, %hsh) = @_;
$im->_set_opts(\%hsh, "i_", $im);
$im->_set_opts(\%hsh, "webp_", $im);
unless (i_writewebp($im->{IMG}, $io, $hsh{webp_co... |
| Imager-Filter-Binarization-0.002 | Imager::Filter::Binarization | show |
| Imager->register_filter(
type => 'binarization',
callsub => \&binarization_filter,
callseq => ['image', 'method', 'geometry'],
defaults => {},
) |
| Isam-0.2 | Person | show |
| $kd_prenom_nom->k_part( 1, [ 0, 21, &CHARTYPE ] ) |
| JBD-0.04 | JBD::Core::List | show |
| sub _(@) {
croak 'Missing required arguments' if !@_;
croak "Not a unit or list: [@_]"
if !is_unit @_ && !is_list @_;
return [$_[0]] if is_unit @_;
@_ > 1 ? \@_ : $_[0];
}
sub ret(@) { wantarray ? @{$_[0]} : shift }
sub fla... |
| JSON-Schema-AsType-0.4.3 | JSON::Schema::AsType::Draft3 | show |
| JSON::Schema::AsType->new(
draft_version => '3',
uri => 'http://json-schema.org/draft-03/schema',
schema => from_json <<'END_JSON' )->type |
| 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;
... |
| Job-Async-Redis-0.003 | Job::Async::Worker::Redis | show |
| async sub on_job_received {
my ($self, $id) = (shift, @$_);
try {
my ($queue) = $self->pending_queues;
$log->debugf('Received job %s', $id);
if(exists $self->{pending_jobs}{$id}) {
$log->errorf("Alr... |
| Kwiki-0.39 | Kwiki::Base | show |
| field 'id' |
| Kwiki-0.39 | Kwiki::Widgets | show |
| const pane_unit => 'widget' |
| 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::Files | show |
| const class_title => 'Kwiki Files' |
| Kwiki-0.39 | Kwiki::CSS | show |
| conf css_path => [ 'css' ] |
| 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.
... |
| Lingua-EN-Numbers-Easy-2014120401 | Lingua::EN::Numbers::Easy | show |
| tie %N => __PACKAGE__ |
| Lingua-EN-Semtags-Engine-0.01 | Lingua::EN::Semtags::Engine | show |
| TRUE |
| Lingua-EN-Semtags-Engine-0.01 | Lingua::EN::Semtags::Sentence | show |
| TRUE |
| Lingua-EN-Semtags-Engine-0.01 | Lingua::EN::Semtags::LangUnit | 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.09 | Lingua::FreeLing3::Bindings | show |
| *traces_TraceModule = *Lingua::FreeLing3::Bindingsc::traces_TraceModule |
| Lingua-IN-TGC-2.04 | Lingua::IN::TGC | show |
| method TGC( Str $lang, Str $string ) {
my $lang_code = "Lingua::IN::TGC::" . $lang;
my $parser = qr {
<extends: $lang_code>
<nocontext:>
<String>
<objrule: IN::String> <[Tgc]>+
}... |
| 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 |
| Log-Fu-0.31 | 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.19 | MHonArc::CharEnt::KOI8_R | show |
| +{
'�',' ',
'�','©',
'�','°',
'�','²',
'�','·',
'�','÷',
'�','Ё',
'�','А',
'�','Б',
'�','В',
'�','Г',
'�','Д',
'�','Е',
'�','Ж',
'�','З',
'�','И',
'�','Й',
'�'... |
| MHonArc-2.6.19 | MHonArc::CharEnt::GB2312 | show |
| +{
'��',' ',
'��','、',
'��','。',
'��','・',
'��','ˉ',
'��','ˇ',
'��','¨',
'��','〃',
'��','々',
'��','―',
'��','～',
'��','‖',
'��','…',
'��','‘',
'��','’',
'... |
| MHonArc-2.6.19 | MHonArc::CharEnt::BIG5_ETEN | show |
| +{
'�',' ',
'��','§',
'��','¨',
'��','¯',
'�X','°',
'��','±',
'�P','·',
'��','×',
'��','÷',
'��','ø',
'�','ú',
'�','û',
'�','ý',
'�','þ',
'�','ÿ',
'��','ŋ',
'��','œ',
'... |
| MHonArc-2.6.19 | MHonArc::CharEnt::HP_ROMAN8 | show |
| +{
'�',' ',
'�','À',
'�','Â',
'�','È',
'�','Ê',
'�','Ë',
'�','Î',
'�','Ï',
'�','´',
'�','ˋ',
'�','ˆ',
'�','¨',
'�','˜',
'�','Ù',
'�','Û',
'�','₤',
'�','¯',
'�','
... |
| MHonArc-2.6.19 | MHonArc::CharEnt::CP1255 | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','²',
'�','³',
... |
| MHonArc-2.6.19 | MHonArc::CharEnt::BIG5_HKSCS | show |
| +{
'�@','',
'�A','',
'�B','',
'�C','',
'�D','',
'�E','',
'�F','',
'�G','',
'�H','',
'�I','',
'�J','',
'�K','',
'�L','',
'�M','',
'�N','... |
| MHonArc-2.6.19 | MHonArc::CharEnt::GOST19768_87 | show |
| +{
'$','¤',
'�',' ',
'�','Ё',
'�','',
'�','А',
'�','Б',
'�','В',
'�','Г',
'�','Д',
'�','Е',
'�','Ж',
'�','З',
'�','И',
'�','Й',
'�','К',
'�','Л',
'�','М',
... |
| MHonArc-2.6.19 | MHonArc::CharEnt::AppleCroatian | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','´',
'�','µ',
'�','¶',
'�','·',
... |
| MHonArc-2.6.19 | MHonArc::CharEnt::ISO8859_11 | show |
| +{
'�',' ',
'�','ก',
'�','ข',
'�','ฃ',
'�','ค',
'�','ฅ',
'�','ฆ',
'�','ง',
'�','จ',
'�','ฉ',
'�','ช',
'�','ซ',
'�','ฌ',
'�','ญ',
'�','ฎ',
'�','ฏ',
'�','ฐ'... |
| MHonArc-2.6.19 | MHonArc::CharEnt::KOI8_U | show |
| +{
'�','─',
'�','│',
'�','┌',
'�','┐',
'�','└',
'�','┘',
'�','├',
'�','┤',
'�','┬',
'�','┴',
'�','┼',
'�','▀',
'�','▄',
'�','█',
'�','▌',
'�','▐... |
| MHonArc-2.6.19 | MHonArc::CharEnt::CP1258 | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¤',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±',
... |
| MHonArc-2.6.19 | MHonArc::CharEnt::AppleRoman | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¥',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','´',
'�','µ',
'�','¶',
... |
| MHonArc-2.6.19 | MHonArc::CharEnt::AppleCenteuro | show |
| +{
'�',' ',
'�','£',
'�','§',
'�','¨',
'�','©',
'�','«',
'�','¬',
'�','®',
'�','°',
'�','¶',
'�','»',
'�','Á',
'�','Ä',
'�','É',
'�','Í',
'�','Ó',
'�','Ô',
'�','Õ',
... |
| MHonArc-2.6.19 | MHonArc::CharEnt::CP1251 | show |
| +{
'�',' ',
'�','¤',
'�','¦',
'�','§',
'�','©',
'�','«',
'�','¬',
'�','',
'�','®',
'�','°',
'�','±',
'�','µ',
'�','¶',
'�','·',
'�','»',
'�','Ё',
'�','Ђ',
'�','Ѓ... |
| MHonArc-2.6.19 | MHonArc::CharEnt::CP866 | show |
| +{
'�',' ',
'�','¤',
'�','°',
'�','·',
'�','Ё',
'�','Є',
'�','Ї',
'�','Ў',
'�','А',
'�','Б',
'�','В',
'�','Г',
'�','Д',
'�','Е',
'�','Ж',
'�','З',
'�','И',
'... |
| MHonArc-2.6.19 | MHonArc::CharEnt::CP936 | show |
| +{
'�','€',
'��','¤',
'��','§',
'��','¨',
'��','°',
'��','±',
'��','·',
'��','×',
'��','à',
'��','á',
'��','è',
'��','é',
'��','ê',
'��','ì',
'��','í',
'��','ò',
'��','ó... |
| MHonArc-2.6.19 | MHonArc::CharEnt::KOI_0 | show |
| +{
'$','¤',
'@','ю',
'A','а',
'B','б',
'C','ц',
'D','д',
'E','е',
'F','ф',
'G','г',
'H','х',
'I','и',
'J','й',
'K','к',
'L','л',
'M','м',
'N','н',
'O','о'... |
| MHonArc-2.6.19 | MHonArc::CharEnt::AppleRomanian | show |
| +{
'�','Ș',
'�','Ț',
'�','ș',
'�','ț',
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¥',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','®',
... |
| MHonArc-2.6.19 | MHonArc::CharEnt::ISO8859_4 | show |
| +{
'�',' ',
'�','Ą',
'�','ĸ',
'�','Ŗ',
'�','¤',
'�','Ĩ',
'�','Ļ',
'�','§',
'�','¨',
'�','Š',
'�','Ē',
'�','Ģ',
'�','Ŧ',
'�','',
'�','Ž',
'�','¯',
'�','°',
'�',... |
| MHonArc-2.6.19 | MHonArc::CharEnt::ISO8859_3 | show |
| +{
'�',' ',
'�','Ħ',
'�','˘',
'�','£',
'�','¤',
'�','Ĥ',
'�','§',
'�','¨',
'�','İ',
'�','Ş',
'�','Ğ',
'�','Ĵ',
'�','',
'�','Ż',
'�','°',
'�','ħ',
'�','²',
'�','... |
| MHonArc-2.6.19 | MHonArc::CharEnt::AppleArabic | show |
| +{
'�','Ä',
'�',' ',
'�','Ç',
'�','É',
'�','Ñ',
'�','Ö',
'�','Ü',
'�','á',
'�','à',
'�','â',
'�','ä',
'�','ں',
'�','«',
'�','ç',
'�','é',
'�','è',
'�','ê',
'�','ë',... |
| MHonArc-2.6.19 | MHonArc::CharEnt::CP1256 | show |
| +{
'�',' ',
'�','¢',
'�','£',
'�','¤',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','²',
'�','³',
... |
| MHonArc-2.6.19 | MHonArc::CharEnt::CP1257 | show |
| +{
'�',' ',
'�','¢',
'�','£',
'�','¤',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','²',
'�','³',
'�','´',
... |
| MHonArc-2.6.19 | MHonArc::CharEnt::KOI8_F | show |
| +{
'�','─',
'�','│',
'�','┌',
'�','┐',
'�','└',
'�','┘',
'�','├',
'�','┤',
'�','┬',
'�','┴',
'�','┼',
'�','▀',
'�','▄',
'�','█',
'�','▌',
'�','▐... |
| MHonArc-2.6.19 | MHonArc::CharEnt::CP1250 | show |
| +{
'�',' ',
'�','¤',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','«',
'�','¬',
'�','',
'�','®',
'�','°',
'�','±',
'�','´',
'�','µ',
'�','¶',
'�','·',
'�','¸',
'�','»',
... |
| MHonArc-2.6.19 | MHonArc::CharEnt::ISO8859_15 | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','€',
'�','¥',
'�','Š',
'�','§',
'�','š',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±... |
| MHonArc-2.6.19 | MHonArc::CharEnt::KOI8_B | show |
| +{
'�','ё',
'�','Ё',
'�','ю',
'�','а',
'�','б',
'�','ц',
'�','д',
'�','е',
'�','ф',
'�','г',
'�','х',
'�','и',
'�','й',
'�','к',
'�','л',
'�','м',
'�','н... |
| MHonArc-2.6.19 | MHonArc::CharEnt::AppleHebrew | show |
| +{
'�','Ä',
'�','ײַ',
'�','Ç',
'�','É',
'�','Ñ',
'�','Ö',
'�','Ü',
'�','á',
'�','à',
'�','â',
'�','ä',
'�','ã',
'�','å',
'�','ç',
'�','é',
'�','è',
'�','ê',
'�','ë'... |
| MHonArc-2.6.19 | MHonArc::CharEnt::KOI8_E | show |
| +{
'�',' ',
'�','ђ',
'�','ѓ',
'�','ё',
'�','є',
'�','ѕ',
'�','і',
'�','ї',
'�','ј',
'�','љ',
'�','њ',
'�','ћ',
'�','ќ',
'�','',
'�','ў',
'�','џ',
'�','№'... |
| MHonArc-2.6.19 | MHonArc::CharEnt::ISO8859_8 | show |
| +{
'�',' ',
'�','¢',
'�','£',
'�','¤',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','×',
'�','«',
'�','¬',
'�','',
'�','®',
'�','‾',
'�','°',
'�','±',
'�','²'... |
| MHonArc-2.6.19 | MHonArc::CharEnt::AppleTurkish | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¥',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','´',
'�','µ',
'�','¶',
... |
| MHonArc-2.6.19 | MHonArc::CharEnt::CP1252 | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¤',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±',
... |
| MHonArc-2.6.19 | MHonArc::CharEnt::AppleGreek | show |
| +{
'�',' ',
'�','£',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','«',
'�','¬',
'�','',
'�','®',
'�','°',
'�','±',
'�','²',
'�','³',
'�','·',
'�','¹',
'�','»',
... |
| MHonArc-2.6.19 | MHonArc::CharEnt::ISO8859_2 | show |
| +{
'�',' ',
'�','Ą',
'�','˘',
'�','Ł',
'�','¤',
'�','Ľ',
'�','Ś',
'�','§',
'�','¨',
'�','Š',
'�','Ş',
'�','Ť',
'�','Ź',
'�','',
'�','Ž',
'�','Ż',
'�','°',
'�'... |
| MHonArc-2.6.19 | MHonArc::CharEnt::CP949 | show |
| +{
'��','¡',
'��','¤',
'��','§',
'��','¨',
'��','ª',
'��','',
'��','®',
'��','°',
'��','±',
'��','²',
'��','³',
'��','´',
'��','¶',
'��','·',
'��','¸',
'��','¹',
'��','º... |
| MHonArc-2.6.19 | MHonArc::CharEnt::ISO8859_10 | show |
| +{
'�',' ',
'�','Ą',
'�','Ē',
'�','Ģ',
'�','Ī',
'�','Ĩ',
'�','Ķ',
'�','§',
'�','Ļ',
'�','Đ',
'�','Š',
'�','Ŧ',
'�','Ž',
'�','',
'�','Ū',
'�','Ŋ',
'�','°',
'... |
| MHonArc-2.6.19 | MHonArc::CharEnt::KOI8_A | show |
| +{
'$','¤',
'�','ю',
'�','а',
'�','б',
'�','ц',
'�','д',
'�','е',
'�','ф',
'�','г',
'�','х',
'�','и',
'�','й',
'�','к',
'�','л',
'�','м',
'�','н',
'�','о'... |
| MHonArc-2.6.19 | MHonArc::CharEnt::VISCII | show |
| +{
'','Ẳ',
'','Ẵ',
'','Ẫ',
'','Ỷ',
'','Ỹ',
' ','Ỵ',
'�','Ạ',
'�','Ắ',
'�','Ằ',
'�','Ặ',
'�','Ấ',
'�','Ầ',
'�','Ẩ',
'�','Ậ',
'�','Ẽ',
'�','Ẹ... |
| MHonArc-2.6.19 | MHonArc::CharEnt::EUC_JP | show |
| +{
'��','｡',
'��','｢',
'��','｣',
'��','､',
'��','･',
'��','ｦ',
'��','ｧ',
'��','ｨ',
'��','ｩ',
'��','ｪ',
'��','ｫ',
'��','ｬ',
'��','ｭ',
'��','ｮ',
'��','ｯ... |
| MHonArc-2.6.19 | MHonArc::CharEnt::ISO8859_6 | show |
| +{
'�',' ',
'�','¤',
'�','،',
'�','',
'�','؛',
'�','؟',
'�','ء',
'�','آ',
'�','أ',
'�','ؤ',
'�','إ',
'�','ئ',
'�','ا',
'�','ب',
'�','ة',
'�','ت',
'�','ث',
... |
| MHonArc-2.6.19 | MHonArc::CharEnt::AppleIceland | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¥',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','´',
'�','µ',
'�','¶',
... |
| MHonArc-2.6.19 | MHonArc::CharEnt::ISO8859_14 | show |
| +{
'�',' ',
'�','Ḃ',
'�','ḃ',
'�','£',
'�','Ċ',
'�','ċ',
'�','Ḋ',
'�','§',
'�','Ẁ',
'�','©',
'�','Ẃ',
'�','ḋ',
'�','Ỳ',
'�','',
'�','®',
'�','Ÿ',
'�','ǡ... |
| MHonArc-2.6.19 | MHonArc::CharEnt::KOI_7 | show |
| +{
'$','¤',
'`','Ю',
'a','А',
'b','Б',
'c','Ц',
'd','Д',
'e','Е',
'f','Ф',
'g','Г',
'h','Х',
'i','И',
'j','Й',
'k','К',
'l','Л',
'm','М',
'n','Н',
'o','О'... |
| MHonArc-2.6.19 | MHonArc::CharEnt::CP1253 | show |
| +{
'�',' ',
'�','£',
'�','¤',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','«',
'�','¬',
'�','',
'�','®',
'�','°',
'�','±',
'�','²',
'�','³',
'�','µ',
'�','¶',
... |
| MHonArc-2.6.19 | MHonArc::CharEnt::CP1254 | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¤',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±',
... |
| MHonArc-2.6.19 | MHonArc::CharEnt::CP932 | show |
| +{
'��','§',
'�N','¨',
'��','°',
'�}','±',
'�L','´',
'��','¶',
'�~','×',
'��','÷',
'��','Α',
'��','Β',
'��','Γ',
'��','Δ',
'��','Ε',
'��','Ζ',
'��','Η',
'��','Θ',
'��'... |
| MHonArc-2.6.19 | MHonArc::CharEnt::ISO8859_5 | show |
| +{
'�',' ',
'�','Ё',
'�','Ђ',
'�','Ѓ',
'�','Є',
'�','Ѕ',
'�','І',
'�','Ї',
'�','Ј',
'�','Љ',
'�','Њ',
'�','Ћ',
'�','Ќ',
'�','',
'�','Ў',
'�','Џ',
'�','А',... |
| MHonArc-2.6.19 | MHonArc::CharEnt::ISO8859_1 | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¤',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±',
... |
| MHonArc-2.6.19 | MHonArc::CharEnt::CP950 | show |
| +{
'��','§',
'��','¯',
'�X','°',
'��','±',
'�P','·',
'��','×',
'��','÷',
'��','ˇ',
'��','ˉ',
'��','ˊ',
'��','ˋ',
'��','ˍ',
'��','˙',
'�D','Α',
'�E','Β',
'�F','Γ',
'�G... |
| MHonArc-2.6.19 | MHonArc::CharEnt::AppleThai | show |
| +{
'�',' ',
'�','©',
'�','«',
'�','®',
'�','»',
'�','ก',
'�','ข',
'�','ฃ',
'�','ค',
'�','ฅ',
'�','ฆ',
'�','ง',
'�','จ',
'�','ฉ',
'�','ช',
'�','ซ',
'�','ฌ',
'�... |
| MHonArc-2.6.19 | MHonArc::CharEnt::ISO8859_7 | show |
| +{
'�',' ',
'�','ʽ',
'�','ʼ',
'�','£',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','«',
'�','¬',
'�','',
'�','―',
'�','°',
'�','±',
'�','²',
'�','³',
'�','΄',
'�','... |
| MHonArc-2.6.19 | MHonArc::CharEnt::ISO8859_13 | show |
| +{
'�',' ',
'�','”',
'�','¢',
'�','£',
'�','¤',
'�','„',
'�','¦',
'�','§',
'�','Ø',
'�','©',
'�','Ŗ',
'�','«',
'�','¬',
'�','',
'�','®',
'�','Æ',
'�','°',
'�',' ... |
| MHonArc-2.6.19 | MHonArc::CharEnt::AppleCyrillic | show |
| +{
'�',' ',
'�','£',
'�','§',
'�','©',
'�','«',
'�','¬',
'�','®',
'�','°',
'�','±',
'�','µ',
'�','¶',
'�','»',
'�','÷',
'�','ƒ',
'�','Ё',
'�','Ђ',
'�','Ѓ',
'�','@... |
| MHonArc-2.6.19 | MHonArc::CharEnt::ISO8859_9 | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¤',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±',
... |
| MHonArc-2.6.19 | MHonArc::CharEnt::ISO8859_16 | show |
| +{
'�',' ',
'�','Ą',
'�','ą',
'�','Ł',
'�','€',
'�','„',
'�','Š',
'�','§',
'�','š',
'�','©',
'�','Ș',
'�','«',
'�','Ź',
'�','',
'�','ź',
'�','Ż',
'�','°',
'... |
| MHonArc-2.6.19 | MHonArc::UTF8::KOI8_R | show |
| +{
'�',' ',
'�','©',
'�','°',
'�','²',
'�','·',
'�','÷',
'�','Ё',
'�','А',
'�','Б',
'�','В',
'�','Г',
'�','Д',
'�','Е',
'�','Ж',
'�','З',
'�','И',
'�','Й',
'�','К',
'�','Л',
'�','М',
'�','Н',
'�','О',
'�','П',
'�','Р',
'�','С',
'�','Т',
'�','У',
'�','Ф',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::GB2312 | show |
| +{
'��',' ',
'��','、',
'��','。',
'��','・',
'��','ˉ',
'��','ˇ',
'��','¨',
'��','〃',
'��','々',
'��','―',
'��','～',
'��','‖',
'��','…',
'��','‘',
'��','’',
'��','“',
'��','”',
'��','〔',
'��','〕',
'��','〈',
'��','〉',
'��','《',
'��','》',
'��','「',
'��','」',
'�... |
| MHonArc-2.6.19 | MHonArc::UTF8::BIG5_ETEN | show |
| +{
'�',' ',
'��','§',
'��','¨',
'��','¯',
'�X','°',
'��','±',
'�P','·',
'��','×',
'��','÷',
'��','ø',
'�','ú',
'�','û',
'�','ý',
'�','þ',
'�','ÿ',
'��','ŋ',
'��','œ',
'��','ɐ',
'��','ɔ',
'��','ɛ',
'��','ɪ',
'��','ɵ',
'��','ʃ',
'��','ʊ',
'��','ˆ',
'��','ˇ'... |
| MHonArc-2.6.19 | MHonArc::UTF8::HP_ROMAN8 | show |
| +{
'�',' ',
'�','À',
'�','Â',
'�','È',
'�','Ê',
'�','Ë',
'�','Î',
'�','Ï',
'�','´',
'�','ˋ',
'�','ˆ',
'�','¨',
'�','˜',
'�','Ù',
'�','Û',
'�','₤',
'�','¯',
'�','Ý',
'�','ý',
'�','°',
'�','Ç',
'�','ç',
'�','Ñ',
'�','ñ',
'�','¡',
'�','¿',
'�','¤',
'�','£',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::CP1255 | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','²',
'�','³',
'�','´',
'�','µ',
'�','¶',
'�','·',
'�','¸',
'�','¹',
'�','»',
'�','¼',
'�','½',
'�','¾',
... |
| MHonArc-2.6.19 | 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.19 | MHonArc::UTF8::GOST19768_87 | show |
| +{
'$','¤',
'�',' ',
'�','Ё',
'�','',
'�','А',
'�','Б',
'�','В',
'�','Г',
'�','Д',
'�','Е',
'�','Ж',
'�','З',
'�','И',
'�','Й',
'�','К',
'�','Л',
'�','М',
'�','Н',
'�','О',
'�','П',
'�','Р',
'�','С',
'�','Т',
'�','У',
'�','Ф',
'�','Х',
'�','Ц',
'�','Ч',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::AppleCroatian | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','´',
'�','µ',
'�','¶',
'�','·',
'�','¸',
'�','º',
'�','»',
'�','¿',
'�','À',
'�','Á',
'�','Â',
'�','Ã',
'�','Ä',
'�','Å',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::ISO8859_11 | show |
| +{
'�',' ',
'�','ก',
'�','ข',
'�','ฃ',
'�','ค',
'�','ฅ',
'�','ฆ',
'�','ง',
'�','จ',
'�','ฉ',
'�','ช',
'�','ซ',
'�','ฌ',
'�','ญ',
'�','ฎ',
'�','ฏ',
'�','ฐ',
'�','ฑ',
'�','ฒ',
'�','ณ',
'�','ด',
'�','ต',
'�','ถ',
'�','ท',
'�','ธ',
'�','น',
'�','บ',
'�','ป',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::KOI8_U | show |
| +{
'�','─',
'�','│',
'�','┌',
'�','┐',
'�','└',
'�','┘',
'�','├',
'�','┤',
'�','┬',
'�','┴',
'�','┼',
'�','▀',
'�','▄',
'�','█',
'�','▌',
'�','▐',
'�','░',
'�','▒',
'�','▓',
'�','⌠',
'�','■',
'�','•',
'�','√',
'�','≈',
'�','≤',
'�','≥',
'�',' ',
'�','⌡',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::CP1258 | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¤',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','²',
'�','³',
'�','´',
'�','µ',
'�','¶',
'�','·',
'�','¸',
'�','¹',
'�','º',
'�','»',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::AppleRoman | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¥',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','´',
'�','µ',
'�','¶',
'�','·',
'�','¸',
'�','º',
'�','»',
'�','¿',
'�','À',
'�','Á',
'�','Â',
'�','Ã',
'�','Ä',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::AppleCenteuro | show |
| +{
'�',' ',
'�','£',
'�','§',
'�','¨',
'�','©',
'�','«',
'�','¬',
'�','®',
'�','°',
'�','¶',
'�','»',
'�','Á',
'�','Ä',
'�','É',
'�','Í',
'�','Ó',
'�','Ô',
'�','Õ',
'�','Ö',
'�','Ú',
'�','Ü',
'�','Ý',
'�','ß',
'�','á',
'�','ä',
'�','é',
'�','í',
'�','ó',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::CP1251 | show |
| +{
'�',' ',
'�','¤',
'�','¦',
'�','§',
'�','©',
'�','«',
'�','¬',
'�','',
'�','®',
'�','°',
'�','±',
'�','µ',
'�','¶',
'�','·',
'�','»',
'�','Ё',
'�','Ђ',
'�','Ѓ',
'�','Є',
'�','Ѕ',
'�','І',
'�','Ї',
'�','Ј',
'�','Љ',
'�','Њ',
'�','Ћ',
'�','Ќ',
'�','Ў',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::CP866 | show |
| +{
'�',' ',
'�','¤',
'�','°',
'�','·',
'�','Ё',
'�','Є',
'�','Ї',
'�','Ў',
'�','А',
'�','Б',
'�','В',
'�','Г',
'�','Д',
'�','Е',
'�','Ж',
'�','З',
'�','И',
'�','Й',
'�','К',
'�','Л',
'�','М',
'�','Н',
'�','О',
'�','П',
'�','Р',
'�','С',
'�','Т',
'�','У',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::CP936 | show |
| +{
'�','€',
'��','¤',
'��','§',
'��','¨',
'��','°',
'��','±',
'��','·',
'��','×',
'��','à',
'��','á',
'��','è',
'��','é',
'��','ê',
'��','ì',
'��','í',
'��','ò',
'��','ó',
'��','÷',
'��','ù',
'��','ú',
'��','ü',
'��','ā',
'��','ē',
'��','ě',
'��','ī',
'��... |
| MHonArc-2.6.19 | 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.19 | MHonArc::UTF8::AppleRomanian | show |
| +{
'�','Ș',
'�','Ț',
'�','ș',
'�','ț',
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¥',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','´',
'�','µ',
'�','¶',
'�','·',
'�','¸',
'�','º',
'�','»',
'�','¿',
'�','... |
| MHonArc-2.6.19 | MHonArc::UTF8::ISO8859_4 | show |
| +{
'�',' ',
'�','Ą',
'�','ĸ',
'�','Ŗ',
'�','¤',
'�','Ĩ',
'�','Ļ',
'�','§',
'�','¨',
'�','Š',
'�','Ē',
'�','Ģ',
'�','Ŧ',
'�','',
'�','Ž',
'�','¯',
'�','°',
'�','ą',
'�','˛',
'�','ŗ',
'�','´',
'�','ĩ',
'�','ļ',
'�','ˇ',
'�','¸',
'�','š',
'�','ē',
'�','ģ',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::ISO8859_3 | show |
| +{
'�',' ',
'�','Ħ',
'�','˘',
'�','£',
'�','¤',
'�','Ĥ',
'�','§',
'�','¨',
'�','İ',
'�','Ş',
'�','Ğ',
'�','Ĵ',
'�','',
'�','Ż',
'�','°',
'�','ħ',
'�','²',
'�','³',
'�','´',
'�','µ',
'�','ĥ',
'�','·',
'�','¸',
'�','ı',
'�','ş',
'�','ğ',
'�','ĵ',
'�','½',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::AppleArabic | show |
| +{
'�','Ä',
'�',' ',
'�','Ç',
'�','É',
'�','Ñ',
'�','Ö',
'�','Ü',
'�','á',
'�','à',
'�','â',
'�','ä',
'�','ں',
'�','«',
'�','ç',
'�','é',
'�','è',
'�','ê',
'�','ë',
'�','í',
'�','…',
'�','î',
'�','ï',
'�','ñ',
'�','ó',
'�','»',
'�','ô',
'�','ö',
'�','÷',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::CP1256 | show |
| +{
'�',' ',
'�','¢',
'�','£',
'�','¤',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','²',
'�','³',
'�','´',
'�','µ',
'�','¶',
'�','·',
'�','¸',
'�','¹',
'�','»',
'�','¼',
'�','½',
'�','¾',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::CP1257 | show |
| +{
'�',' ',
'�','¢',
'�','£',
'�','¤',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','²',
'�','³',
'�','´',
'�','µ',
'�','¶',
'�','·',
'�','¸',
'�','¹',
'�','»',
'�','¼',
'�','½',
'�','¾',
'�','Ä',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::KOI8_F | show |
| +{
'�','─',
'�','│',
'�','┌',
'�','┐',
'�','└',
'�','┘',
'�','├',
'�','┤',
'�','┬',
'�','┴',
'�','┼',
'�','▀',
'�','▄',
'�','█',
'�','▌',
'�','▐',
'�','░',
'�','‘',
'�','’',
'�','“',
'�','”',
'�','•',
'�','–',
'�','—',
'�','©',
'�','™',
'�','»',
'�','®',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::CP1250 | show |
| +{
'�',' ',
'�','¤',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','«',
'�','¬',
'�','',
'�','®',
'�','°',
'�','±',
'�','´',
'�','µ',
'�','¶',
'�','·',
'�','¸',
'�','»',
'�','Á',
'�','Â',
'�','Ä',
'�','Ç',
'�','É',
'�','Ë',
'�','Í',
'�','Î',
'�','Ó',
'�','Ô',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::ISO8859_15 | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','€',
'�','¥',
'�','Š',
'�','§',
'�','š',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','²',
'�','³',
'�','Ž',
'�','µ',
'�','¶',
'�','·',
'�','ž',
'�','¹',
'�','º',
'�','»',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::KOI8_B | show |
| +{
'�','ё',
'�','Ё',
'�','ю',
'�','а',
'�','б',
'�','ц',
'�','д',
'�','е',
'�','ф',
'�','г',
'�','х',
'�','и',
'�','й',
'�','к',
'�','л',
'�','м',
'�','н',
'�','о',
'�','п',
'�','я',
'�','р',
'�','с',
'�','т',
'�','у',
'�','ж',
'�','в',
'�','ь',
'�','ы',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::AppleHebrew | show |
| +{
'�','Ä',
'�','ײַ',
'�','Ç',
'�','É',
'�','Ñ',
'�','Ö',
'�','Ü',
'�','á',
'�','à',
'�','â',
'�','ä',
'�','ã',
'�','å',
'�','ç',
'�','é',
'�','è',
'�','ê',
'�','ë',
'�','í',
'�','ì',
'�','î',
'�','ï',
'�','ñ',
'�','ó',
'�','ò',
'�','ô',
'�','ö',
'�','õ',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::KOI8_E | show |
| +{
'�',' ',
'�','ђ',
'�','ѓ',
'�','ё',
'�','є',
'�','ѕ',
'�','і',
'�','ї',
'�','ј',
'�','љ',
'�','њ',
'�','ћ',
'�','ќ',
'�','',
'�','ў',
'�','џ',
'�','№',
'�','Ђ',
'�','Ѓ',
'�','Ё',
'�','Є',
'�','Ѕ',
'�','І',
'�','Ї',
'�','Ј',
'�','Љ',
'�','Њ',
'�','Ћ',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::ISO8859_8 | show |
| +{
'�',' ',
'�','¢',
'�','£',
'�','¤',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','×',
'�','«',
'�','¬',
'�','',
'�','®',
'�','‾',
'�','°',
'�','±',
'�','²',
'�','³',
'�','´',
'�','µ',
'�','¶',
'�','·',
'�','¸',
'�','¹',
'�','÷',
'�','»',
'�','¼',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::AppleTurkish | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¥',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','´',
'�','µ',
'�','¶',
'�','·',
'�','¸',
'�','º',
'�','»',
'�','¿',
'�','À',
'�','Á',
'�','Â',
'�','Ã',
'�','Ä',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::CP1252 | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¤',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','²',
'�','³',
'�','´',
'�','µ',
'�','¶',
'�','·',
'�','¸',
'�','¹',
'�','º',
'�','»',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::AppleGreek | show |
| +{
'�',' ',
'�','£',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','«',
'�','¬',
'�','',
'�','®',
'�','°',
'�','±',
'�','²',
'�','³',
'�','·',
'�','¹',
'�','»',
'�','½',
'�','Ä',
'�','É',
'�','Ö',
'�','Ü',
'�','ß',
'�','à',
'�','â',
'�','ä',
'�','ç',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::ISO8859_2 | show |
| +{
'�',' ',
'�','Ą',
'�','˘',
'�','Ł',
'�','¤',
'�','Ľ',
'�','Ś',
'�','§',
'�','¨',
'�','Š',
'�','Ş',
'�','Ť',
'�','Ź',
'�','',
'�','Ž',
'�','Ż',
'�','°',
'�','ą',
'�','˛',
'�','ł',
'�','´',
'�','ľ',
'�','ś',
'�','ˇ',
'�','¸',
'�','š',
'�','ş',
'�','ť',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::CP949 | show |
| +{
'��','¡',
'��','¤',
'��','§',
'��','¨',
'��','ª',
'��','',
'��','®',
'��','°',
'��','±',
'��','²',
'��','³',
'��','´',
'��','¶',
'��','·',
'��','¸',
'��','¹',
'��','º',
'��','¼',
'��','½',
'��','¾',
'��','¿',
'��','Æ',
'��','Ð',
'��','×',
'��','Ø',
'�... |
| MHonArc-2.6.19 | MHonArc::UTF8::ISO8859_10 | show |
| +{
'�',' ',
'�','Ą',
'�','Ē',
'�','Ģ',
'�','Ī',
'�','Ĩ',
'�','Ķ',
'�','§',
'�','Ļ',
'�','Đ',
'�','Š',
'�','Ŧ',
'�','Ž',
'�','',
'�','Ū',
'�','Ŋ',
'�','°',
'�','ą',
'�','ē',
'�','ģ',
'�','ī',
'�','ĩ',
'�','ķ',
'�','·',
'�','ļ',
'�','đ',
'�','š',
'�','ŧ',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::KOI8_A | show |
| +{
'$','¤',
'�','ю',
'�','а',
'�','б',
'�','ц',
'�','д',
'�','е',
'�','ф',
'�','г',
'�','х',
'�','и',
'�','й',
'�','к',
'�','л',
'�','м',
'�','н',
'�','о',
'�','п',
'�','я',
'�','р',
'�','с',
'�','т',
'�','у',
'�','ж',
'�','в',
'�','ь',
'�','ы',
'�','з',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::VISCII | show |
| +{
'','Ẳ',
'','Ẵ',
'','Ẫ',
'','Ỷ',
'','Ỹ',
' ','Ỵ',
'�','Ạ',
'�','Ắ',
'�','Ằ',
'�','Ặ',
'�','Ấ',
'�','Ầ',
'�','Ẩ',
'�','Ậ',
'�','Ẽ',
'�','Ẹ',
'�','Ế',
'�','Ề',
'�','Ể',
'�','Ễ',
'�','Ệ',
'�','Ố',
'�','Ồ',
'�','Ổ',
'�','Ỗ',
'�','Ộ',
'�','Ợ',
'�','Ớ',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::EUC_JP | show |
| +{
'��','｡',
'��','｢',
'��','｣',
'��','､',
'��','･',
'��','ｦ',
'��','ｧ',
'��','ｨ',
'��','ｩ',
'��','ｪ',
'��','ｫ',
'��','ｬ',
'��','ｭ',
'��','ｮ',
'��','ｯ',
'��','ｰ',
'��','ｱ',
'��','ｲ',
'��','ｳ',
'��','ｴ',
'��','ｵ',
'��','ｶ',
'��','ｷ',
'��','ｸ',
'��','ｹ',
'�... |
| MHonArc-2.6.19 | MHonArc::UTF8::ISO8859_6 | show |
| +{
'�',' ',
'�','¤',
'�','،',
'�','',
'�','؛',
'�','؟',
'�','ء',
'�','آ',
'�','أ',
'�','ؤ',
'�','إ',
'�','ئ',
'�','ا',
'�','ب',
'�','ة',
'�','ت',
'�','ث',
'�','ج',
'�','ح',
'�','خ',
'�','د',
'�','ذ',
'�','ر',
'�','ز',
'�','س',
'�','ش',
'�','ص',
'�','ض',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::AppleIceland | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¥',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','´',
'�','µ',
'�','¶',
'�','·',
'�','¸',
'�','º',
'�','»',
'�','¿',
'�','À',
'�','Á',
'�','Â',
'�','Ã',
'�','Ä',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::ISO8859_14 | show |
| +{
'�',' ',
'�','Ḃ',
'�','ḃ',
'�','£',
'�','Ċ',
'�','ċ',
'�','Ḋ',
'�','§',
'�','Ẁ',
'�','©',
'�','Ẃ',
'�','ḋ',
'�','Ỳ',
'�','',
'�','®',
'�','Ÿ',
'�','Ḟ',
'�','ḟ',
'�','Ġ',
'�','ġ',
'�','Ṁ',
'�','ṁ',
'�','¶',
'�','Ṗ',
'�','ẁ',
'�','ṗ',
'�','ẃ',
'�','Ṡ',
... |
| MHonArc-2.6.19 | 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.19 | MHonArc::UTF8::CP1253 | show |
| +{
'�',' ',
'�','£',
'�','¤',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','«',
'�','¬',
'�','',
'�','®',
'�','°',
'�','±',
'�','²',
'�','³',
'�','µ',
'�','¶',
'�','·',
'�','»',
'�','½',
'�','ƒ',
'�','΄',
'�','΅',
'�','Ά',
'�','Έ',
'�','Ή',
'�','Ί',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::CP1254 | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¤',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','²',
'�','³',
'�','´',
'�','µ',
'�','¶',
'�','·',
'�','¸',
'�','¹',
'�','º',
'�','»',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::CP932 | show |
| +{
'��','§',
'�N','¨',
'��','°',
'�}','±',
'�L','´',
'��','¶',
'�~','×',
'��','÷',
'��','Α',
'��','Β',
'��','Γ',
'��','Δ',
'��','Ε',
'��','Ζ',
'��','Η',
'��','Θ',
'��','Ι',
'��','Κ',
'��','Λ',
'��','Μ',
'��','Ν',
'��','Ξ',
'��','Ο',
'��','Π',
'��','Ρ',
'�... |
| MHonArc-2.6.19 | MHonArc::UTF8::ISO8859_5 | show |
| +{
'�',' ',
'�','Ё',
'�','Ђ',
'�','Ѓ',
'�','Є',
'�','Ѕ',
'�','І',
'�','Ї',
'�','Ј',
'�','Љ',
'�','Њ',
'�','Ћ',
'�','Ќ',
'�','',
'�','Ў',
'�','Џ',
'�','А',
'�','Б',
'�','В',
'�','Г',
'�','Д',
'�','Е',
'�','Ж',
'�','З',
'�','И',
'�','Й',
'�','К',
'�','Л',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::ISO8859_1 | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¤',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','²',
'�','³',
'�','´',
'�','µ',
'�','¶',
'�','·',
'�','¸',
'�','¹',
'�','º',
'�','»',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::CP950 | show |
| +{
'��','§',
'��','¯',
'�X','°',
'��','±',
'�P','·',
'��','×',
'��','÷',
'��','ˇ',
'��','ˉ',
'��','ˊ',
'��','ˋ',
'��','ˍ',
'��','˙',
'�D','Α',
'�E','Β',
'�F','Γ',
'�G','Δ',
'�H','Ε',
'�I','Ζ',
'�J','Η',
'�K','Θ',
'�L','Ι',
'�M','Κ',
'�N','Λ',
'�O','Μ',
'�... |
| MHonArc-2.6.19 | MHonArc::UTF8::AppleThai | show |
| +{
'�',' ',
'�','©',
'�','«',
'�','®',
'�','»',
'�','ก',
'�','ข',
'�','ฃ',
'�','ค',
'�','ฅ',
'�','ฆ',
'�','ง',
'�','จ',
'�','ฉ',
'�','ช',
'�','ซ',
'�','ฌ',
'�','ญ',
'�','ฎ',
'�','ฏ',
'�','ฐ',
'�','ฑ',
'�','ฒ',
'�','ณ',
'�','ด',
'�','ต',
'�','ถ',
'�','ท',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::ISO8859_7 | show |
| +{
'�',' ',
'�','ʽ',
'�','ʼ',
'�','£',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','«',
'�','¬',
'�','',
'�','―',
'�','°',
'�','±',
'�','²',
'�','³',
'�','΄',
'�','΅',
'�','Ά',
'�','·',
'�','Έ',
'�','Ή',
'�','Ί',
'�','»',
'�','Ό',
'�','½',
'�','Ύ',
'�','Ώ',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::ISO8859_13 | show |
| +{
'�',' ',
'�','”',
'�','¢',
'�','£',
'�','¤',
'�','„',
'�','¦',
'�','§',
'�','Ø',
'�','©',
'�','Ŗ',
'�','«',
'�','¬',
'�','',
'�','®',
'�','Æ',
'�','°',
'�','±',
'�','²',
'�','³',
'�','“',
'�','µ',
'�','¶',
'�','·',
'�','ø',
'�','¹',
'�','ŗ',
'�','»',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::AppleCyrillic | show |
| +{
'�',' ',
'�','£',
'�','§',
'�','©',
'�','«',
'�','¬',
'�','®',
'�','°',
'�','±',
'�','µ',
'�','¶',
'�','»',
'�','÷',
'�','ƒ',
'�','Ё',
'�','Ђ',
'�','Ѓ',
'�','Є',
'�','Ѕ',
'�','І',
'�','Ї',
'�','Ј',
'�','Љ',
'�','Њ',
'�','Ћ',
'�','Ќ',
'�','Ў',
'�','Џ',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::ISO8859_9 | show |
| +{
'�',' ',
'�','¡',
'�','¢',
'�','£',
'�','¤',
'�','¥',
'�','¦',
'�','§',
'�','¨',
'�','©',
'�','ª',
'�','«',
'�','¬',
'�','',
'�','®',
'�','¯',
'�','°',
'�','±',
'�','²',
'�','³',
'�','´',
'�','µ',
'�','¶',
'�','·',
'�','¸',
'�','¹',
'�','º',
'�','»',
... |
| MHonArc-2.6.19 | MHonArc::UTF8::ISO8859_16 | show |
| +{
'�',' ',
'�','Ą',
'�','ą',
'�','Ł',
'�','€',
'�','„',
'�','Š',
'�','§',
'�','š',
'�','©',
'�','Ș',
'�','«',
'�','Ź',
'�','',
'�','ź',
'�','Ż',
'�','°',
'�','±',
'�','Č',
'�','ł',
'�','Ž',
'�','”',
'�','¶',
'�','·',
'�','ž',
'�','č',
'�','ș',
'�','»',
... |
| MRP-1.0 | MRP::Interface | show |
| $VERSION |
| MRP-1.0 | MRP::Introspection | show |
| $VERSION |
| MRP-1.0 | MRP::Text | show |
| $VERSION |
| MRP-1.0 | MRP::BaseClass | show |
| $VERSION |
| Mail-SPF-Test-v1.001 | Mail::SPF::Test | show |
| TRUE |
| Mail-SPF-Test-v1.001 | Mail::SPF::Test::Base | 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-v2.9.0 | Mail::SPF | show |
| TRUE |
| Mail-SPF-v2.9.0 | Mail::SPF::Result | show |
| TRUE |
| Mail-SPF-v2.9.0 | Mail::SPF::Base | show |
| TRUE |
| Mail-SPF-v2.9.0 | Mail::SPF::Mod | show |
| TRUE |
| Mail-SPF-v2.9.0 | Mail::SPF::MacroString | show |
| TRUE |
| Mail-SPF-v2.9.0 | Mail::SPF::Mech | show |
| TRUE |
| Mail-SPF-v2.9.0 | Mail::SPF::Server | show |
| TRUE |
| Mail-SPF-v2.9.0 | Mail::SPF::Exception | show |
| TRUE |
| Mail-SPF-v2.9.0 | Mail::SPF::Util | show |
| TRUE |
| Mail-SPF-v2.9.0 | Mail::SPF::Record | show |
| TRUE |
| Mail-SPF-v2.9.0 | Mail::SPF::Request | show |
| TRUE |
| Mail-SPF-v2.9.0 | Mail::SPF::Term | show |
| TRUE |
| Mail-SPF-v2.9.0 | Mail::SPF::SenderIPAddrMech | show |
| TRUE |
| Mail-SPF-v2.9.0 | Mail::SPF::Mech::Exists | show |
| TRUE |
| Mail-SPF-v2.9.0 | Mail::SPF::Mech::IP6 | show |
| TRUE |
| Mail-SPF-v2.9.0 | Mail::SPF::Mech::IP4 | show |
| TRUE |
| Mail-SPF-v2.9.0 | Mail::SPF::Mech::PTR | show |
| TRUE |
| Mail-SPF-v2.9.0 | Mail::SPF::Mech::All | show |
| TRUE |
| Mail-SPF-v2.9.0 | Mail::SPF::Mech::Include | show |
| TRUE |
| Mail-SPF-v2.9.0 | Mail::SPF::Mech::A | show |
| TRUE |
| Mail-SPF-v2.9.0 | Mail::SPF::Mech::MX | show |
| TRUE |
| Mail-SPF-v2.9.0 | Mail::SPF::v1::Record | show |
| TRUE |
| Mail-SPF-v2.9.0 | Mail::SPF::v2::Record | show |
| TRUE |
| Mail-SPF-v2.9.0 | Mail::SPF::Mod::Exp | show |
| TRUE |
| Mail-SPF-v2.9.0 | Mail::SPF::Mod::Redirect | show |
| TRUE |
| Mail-SpamCannibal-1.08 | Mail::SpamCannibal::DNSBLserver | show |
| $VERSION = do { q|char version[] = "dnsbls 0.55, 1-27-14";| =~ /(\d+)\.(\d+)/; sprintf("%d.%02d",$1,$2)} |
| Mail-SpamCannibal-1.08 | Mail::SpamCannibal::BDBaccess | show |
| $VERSION = do { q|char version[] = "bdbaccess 0.25, 1-14-14";| =~ /(\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-R2-8.000000 | 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.24 | 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.24 | 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.24 | 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.24 | 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.24 | 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.24 | Mason::Plugin::Defer::Filters | show |
| method Defer () {
Mason::DynamicFilter->new(
filter => sub {
$self->m->defer( $_[0] );
}
);
}
1 |
| Mason-2.24 | 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-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::Request | show |
| method cache () {
return $self->current_comp_class->cache(@_);
}
1 |
| 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-Plugin-SliceFilter-0.05 | Mason::Plugin::SliceFilter::Filters | show |
| method Slice(%args){
return Mason::Plugin::SliceFilter::Filters::Slice->new(%args);
}
1 |
| 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.009 | Math::Cartesian::Product | show |
| $VERSION = '1.009' |
| Math-Disarrange-List-20170828 | Math::Disarrange::List | show |
| @EXPORT = qw(disarrange) |
| Math-Erf-Approx-0.002 | Math::Erf::Approx | show |
| caller(0) or __PACKAGE__->run_tests |
| Math-FFTW-0.01 | Math::FFTW | show |
| XSLoader::load('Math::FFTW', $VERSION) |
| Math-Permute-List-1.007 | Math::Permute::List | show |
| $VERSION = '1.007' |
| Math-Permute-Lists-20170828 | Math::Permute::Lists | show |
| @EXPORT = qw(permute) |
| Math-Permute-Partitions-1.001 | Math::Permute::Partitions | show |
| $VERSION = '1.001' |
| 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-20170824 | Math::Transform::List | show |
| @EXPORT = qw(transform) |
| 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... |
| Mite-v0.0.1 | Mite::Source | show |
| method has_class($name) {
return defined $self->classes->{$name};
}
method compile() {
return $self->compiled->compile();
}
method add_classes(@classes) {
for my $class (@classes) {
$self->classes->{$class->name}... |
| Mite-v0.0.1 | Mite::Attribute | show |
| method clone(%args) {
$args{name} //= $self->name;
$args{is} //= $self->is;
$args{default} = $self->default if !exists $args{default} and $self->has_default;
return $self->new(
%args
);
}
method has_dataref_... |
| Mite-v0.0.1 | Mite::Config | show |
| method make_mite_dir($dir=Path::Tiny->cwd) {
return path($dir)->child($self->mite_dir_name)->mkpath;
}
method write_config(HashRef $data=$self->data) {
$self->config_file->spew_utf8( $self->yaml_dump( $data ) );
return... |
| Mite-v0.0.1 | Mite::Project | show |
| method classes() {
my %classes = map { %{$_->classes} }
values %{$self->sources};
return \%classes;
}
method class($name) {
return $self->classes->{$name};
}
method source($file) {
return $self->sources-&... |
| Mite-v0.0.1 | Mite::ModuleBuild | show |
| method _mite() {
return $ENV{MITE} || 'mite';
}
method ACTION_code() {
system $self->_mite. " compile --exit-if-no-mite-dir --no-search-mite-dir";
return $self->SUPER::ACTION_code;
}
method ACTION_clean() {
system $self->_mite.... |
| Mite-v0.0.1 | Mite::Compiled | show |
| method compile() {
my $code;
for my $class (values %{$self->classes}) {
$code .= $class->compile;
}
return $code;
}
method write() {
return $self->file->spew_utf8($self->compile);
}
method remove() {
retur... |
| Mite-v0.0.1 | Mite::MakeMaker | show |
| method fix_pm_to_blib($from_dir, $to_dir) {
$from_dir = path($from_dir);
$to_dir = path($to_dir);
find({
wanted => sub {
return if -d $_ || !m{\.pm$};
my $src = path($File::Find::name);
my $ds... |
| Mite-v0.0.1 | Mite::Class | show |
| method project() {
return $self->source->project;
}
method class($name) {
return $self->project->class($name);
}
method _set_isa {
my $name = $self->name;
mro::set_mro($name, "c3");
no strict 'refs';
@{$name.'::IS... |
| Mite-v0.0.1 | Mite::App::Command | show |
| method opt_spec($class: $app) {
return(
[ "search-mite-dir!" => "only look for .mite/ in the current directory",
{ default => 1 } ],
[ "exit-if-no-mite-dir!" => "exit quietly if a .mite dir cannot be found",
{ defa... |
| Mite-v0.0.1 | Mite::App::Command::clean | show |
| method abstract() {
return "Remove compiled mite files";
}
method execute($opts, $args) {
return if $self->should_exit_quietly($opts);
require Mite::Project;
my $project = Mite::Project->default;
$project->clean_mites;
$... |
| Mite-v0.0.1 | Mite::App::Command::compile | show |
| method abstract() {
return "Make your code ready to run";
}
method execute($opts, $args) {
return if $self->should_exit_quietly($opts);
my $config = Mite::Config->new(
search_for_mite_dir => $opts->{search_mite_dir}
... |
| Mite-v0.0.1 | Mite::App::Command::init | show |
| method usage_desc(...) {
return "%c init %o <project name>";
}
method abstract() {
return "Begin using mite with your project";
}
method validate_args($opt, $args) {
$self->usage_error("init needs the name of your project") unless @... |
| Mite-v0.0.1 | Mite::Role::HasYAML | show |
| method yaml_load($yaml) {
require YAML::XS;
return YAML::XS::Load($yaml);
}
method yaml_dump($data) {
require YAML::XS;
return YAML::XS::Dump($data);
}
1 |
| Mite-v0.0.1 | Mite::Role::HasDefault | show |
| method default($class:) {
return $Defaults{$class} ||= $class->new;
}
method set_default($class: $new_default) {
$Defaults{$class} = $new_default;
return;
}
1 |
| Mo-0.40 | 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.40 | Mo::build | show |
| *{$M.'build::e'}=sub{my($P,$e)=@_;$e->{new}=sub{$c=shift;my$s=&{$M.Object::new}($c,@_);my@B;do{@B=($c.::BUILD,@B)}while($c)=@{$c.::ISA};exists&$_&&&$_($s)for@B;$s}} |
| Mo-0.40 | 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;my$i=exists$a{lazy}?$a{lazy}:!${$P.':N'};$i or ${$P.':E'}{$n}=\&{$P.$b}and return$m;sub{$#_?$m->(@_):!exists$_[0]{$n}?$_[0]{$n}=$_[0]->$b:$m->... |
| Mo-0.40 | 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.40 | Mo::nonlazy | show |
| *{$M.'nonlazy::e'}=sub{${shift().':N'}=1} |
| Mo-0.40 | 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.40 | 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-0.40 | 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.40 | Mo::import | show |
| *{$M.import}=sub{(@_==2 and not$_[1])?pop@_:@_==1?push@_,grep!/import/,@f:();goto&$i} |
| Mo-0.40 | 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.40 | 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};my$i=exists$a{lazy}?$a{lazy}:!${$P.':N'};$i or ... |
| Mo-0.40 | 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.40 | 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.40 | Mo::exporter | show |
| *{$M.'exporter::e'}=sub{my($P)=@_;if(@{$M.EXPORT}){*{$P.$_}=\&{$M.$_}for@{$M.EXPORT}}} |
| 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::... |
| 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... |
| Module-ConfigureRequires-0.03 | Module::ConfigureRequires | show |
| (undef) = (undef) |
| Module-Find-0.13 | ModuleFindTest | show |
| $ModuleFindTest::loaded = 1 |
| Module-Find-0.13 | ModuleFindTest::SubMod | show |
| $ModuleFindTest::SubMod::loaded = 1 |
| Module-Find-0.13 | ModuleFindTest::SubMod::SubSubMod | show |
| $ModuleFindTest::SubMod::SubSubMod::loaded = 1 |
| Module-Find-0.13 | ModuleFindTest | show |
| $ModuleFindTest::loaded = 1 |
| Module-Find-0.13 | ModuleFindTest::SubMod | show |
| $ModuleFindTest::SubMod::loaded = 1 |
| Module-Find-0.13 | ModuleFindTest::SubMod::SubSubMod | show |
| $ModuleFindTest::SubMod::SubSubMod::loaded = 1 |
| Mojito-0.25 | RenderMojoMojo | show |
| RenderMojoMojo->run_if_script |
| Mojito-0.25 | RecentSynopses | show |
| RecentSynopses->run_if_script |
| Mojolicious-Command-generate-qx_mojo_app-0.4.0 | package | show |
| <%= '__END__' %> |
| Mojolicious-Command-generate-qx_mojo_app-0.4.0 | package | show |
| <%= '__END__' %> |
| Mojolicious-Plugin-Kavorka-0.01 | Mojolicious::Plugin::Kavorka | show |
| method register ($app, $config) {
$app->hook(around_action => \&_around_action);
}
fun _around_action ($next, $c, $action, $last) {
if (my $info = Kavorka->info($action)) {
my $sig = $info->signature;
my @args;
for my $param (... |
| MonetDB-CLI-MapiXS-0.03 | MonetDB::CLI::MapiXS | show |
| XSLoader::load __PACKAGE__ |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::F5BIGIPGLOBALMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'F5-BIGIP-GLOBAL-MIB'} = {
gtmAttr2ForwardStatus => {
'0' => 'disabled',
'1' => 'enabled',
},
gtmAttr2Autosync => {
'0' => 'false',
'1' => 'true',
},
gt... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::LIEBERTGPFLEXIBLEMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'LIEBERT-GP-FLEXIBLE-MIB'} = {
lgpFlexibleEntryDataType => {
'0' => 'not-specified',
'1' => 'int16',
'2' => 'uint16',
'3' => 'int32',
'4' => 'uint32',
'... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::MIBDELL10892 | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'MIB-DELL-10892'} = {
DellNetworkDeviceTeamingFlags => {
'1' => 'noTeam',
'2' => 'teamingEnabled',
'4' => 'adapterFaultToleranceMode',
'8' => 'loadBalancingMode',
... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::NETSWITCHMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'NETSWITCH-MIB'} = {
hpSwitchSmartCardType => {
'1' => 'none',
'2' => 'fddi',
'3' => 'atm',
'4' => 'fddiAndATM',
'5' => 'other',
},
} |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::QUANTUMSNMPMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'QUANTUM-SNMP-MIB'} = {
TrapToggle => {
'1' => 'disabled',
'2' => 'enabled',
'3' => 'trapnotavailable',
},
DeviceState => {
'1' => 'unavailable',
'2' =&... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::LIEBERTGPENVIRONMENTALMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'LIEBERT-GP-ENVIRONMENTAL-MIB'} = {
lgpEnvConfigReheatAndHumidifierLockout => {
'1' => 'lockedOut',
'2' => 'notLockedOut',
},
lgpEnvConfigChillWaterControl => {
'1' =... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::IFMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'IFMIB'} = {
ifAdminStatus => {
'1' => 'up',
'2' => 'down',
'3' => 'testing',
},
ifLinkUpDownTrapEnable => {
'1' => 'enabled',
'2' => 'disabled',
}... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::GENUAMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'GENUA-MIB'} = {
State => {
'0' => 'notok',
'1' => 'ok',
'2' => 'unknown',
},
Ifstate => {
'0' => 'unknown',
'1' => 'down',
'2' =>... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::CISCOSTACKWISEMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'CISCO-STACKWISE-MIB'} = {
cswStackPortOperStatus => {
'1' => 'up',
'2' => 'down',
'3' => 'forcedDown',
},
CswPowerStackMode => {
'1' => 'powerSharing',
... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::SWMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'SW-MIB'} = {
swNbIslState => {
'0' => 'sw-down',
'1' => 'sw-init',
'2' => 'sw-internal2',
'3' => 'sw-internal3',
'4' => 'sw-internal4',
'5' => 'sw-a... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::CISCOSBRNDMNG | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'CISCOSB-RNDMNG'} = {
rlSysNameSource => {
'1' => 'dhcpv6',
'2' => 'dhcpv4',
'3' => 'static',
},
rlGroupMngQuery => {
'1' => 'query',
'2' => 'idle',
... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::CISCOLAGMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'CISCO-LAG-MIB'} = {
ClagAggregationProtocol => {
'1' => 'lacp',
'2' => 'pagp',
},
ClagPortAdminStatus => {
'1' => 'off',
'2' => 'on',
'3' => 'active... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::LIEBERTGPCONDITIONSMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'LIEBERT-GP-CONDITIONS-MIB'} = {
lgpConditionCurrentState => {
'1' => 'active',
'2' => 'inactive',
},
lgpConditionType => {
'0' => 'not-specified',
'2' => '... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::ARISTAENTITYSENSORMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'ARISTA-ENTITY-SENSOR-MIB'} = {
} |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::WEBGRAPH8XTHERMOMETERMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'WebGraph-8xThermometer-MIB'} = {
wtWebioAn8GraphStTzStartWday => {
'1' => 'wtWebioAn8GraphStartWday-Sunday',
'2' => 'wtWebioAn8GraphStartWday-Monday',
'3' => 'wtWebioAn8... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::CISCOLWAPPAPMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'CISCO-LWAPP-AP-MIB'} = {
cLApPwrInjectorSelection => {
'1' => 'unknown',
'2' => 'installed',
'3' => 'override',
},
cLApLegacyBeamForming => {
'1' => 'enabl... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::LIEBERTGPPOWERMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'LIEBERT-GP-POWER-MIB'} = {
lgpPwrAutomaticBatteryTest => {
'1' => 'on',
'2' => 'off',
},
lgpPwrUpsInverterStandby => {
'1' => 'on',
'2' => 'off',
},
lg... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::QUANTUMMIDRANGETAPELIBRARYMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'QUANTUM-MIDRANGE-TAPE-LIBRARY-MIB'} = {
VoltageType => {
'0' => 'unknown',
'1' => 'ac',
'2' => 'dc',
},
InterfaceMethod => {
'0' => 'unknown',
'1' =>... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::F5BIGIPSYSTEMMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'F5-BIGIP-SYSTEM-MIB'} = {
sysInterfaceEnabled => {
'0' => 'false',
'1' => 'true',
},
sysDot3StatDuplexStatus => {
'1' => 'unknown',
'2' => 'halfDuplex',
... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::CISCOSBTUNING | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'CISCOSB-TUNING'} = {
rlBrgMacHashFunctionAfterReset => {
'0' => 'macSqnVlanSqn',
'1' => 'macRndVlanSqn',
'2' => 'macSqnVlanRnd',
'3' => 'macRndVlanRnd',
},
rl... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::CISCOPORTCHANNELMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'CISCO-PORT-CHANNEL-MIB'} = {
PortChannelGroupMode => {
'1' => 'on',
'2' => 'active',
},
PortChannelMode => {
'1' => 'auto',
'2' => 'on',
'3' => 'off... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::DELLRACMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'DELL-RAC-MIB'} = {
DellStatus => {
'1' => 'other',
'2' => 'unknown',
'3' => 'ok',
'4' => 'nonCritical',
'5' => 'critical',
'6' => 'nonRecoverable',
... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::IANAIFTYPEMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'IANAIFTYPE-MIB'} = {
IANAifType => {
'1' => 'other',
'2' => 'regular1822',
'3' => 'hdh1822',
'4' => 'ddnX25',
'5' => 'rfc877x25',
'6' => 'ethernetCs... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::CHECKPOINTMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'CHECKPOINT-MIB'} = {
raTunnelAuthMethod => {
'1' => 'preshared-key',
'2' => 'dss-signature',
'3' => 'rsa-signature',
'4' => 'rsa-encryption',
'5' => 'rev-r... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::CISCOLWAPPHAMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'CISCO-LWAPP-HA-MIB'} = {
cLHaSecondaryControllerUsageTrapType => {
'1' => 'usageStart',
'2' => 'usageComplete',
'3' => 'overUsage',
},
cLHaPowerSupply1Present => ... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::LCOSMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'LCOS-MIB'} = {
lcsSetupNetbiosNetworksEntryOperating => {
'0' => 'eNo',
'1' => 'eYes',
},
lcsSetupUtmCfProfCatProfEntryCinTvSocial => {
'0' => 'eAllowed',
'1'... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::MMBCOMMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'MMB-COM-MIB'} = {
tempSensorStatus => {
'1' => 'unknown',
'2' => 'not-available',
'3' => 'ok',
'5' => 'failed',
'6' => 'temperature-warning',
'7' =>... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::ETHERLIKEMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'EtherLike-MIB'} = {
dot3PauseOperMode => {
'1' => 'disabled',
'2' => 'enabledXmit',
'3' => 'enabledRcv',
'4' => 'enabledXmitAndRcv',
},
dot3StatsDuplexStatus ... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::F5BIGIPLOCALMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'F5-BIGIP-LOCAL-MIB'} = {
ltmDosApplicationLatencyBasedIpRateLimiting => {
'0' => 'false',
'1' => 'true',
},
ltmFastHttpProfileConnpoolReplenish => {
'0' => 'false... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::THEV01MIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'THE_V01-MIB'} = {
} |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::IDRACMIBSMIV2 | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'IDRAC-MIB-SMIv2'} = {
NMIButtonControlSettingsFlags => {
'1' => 'unknown',
'2' => 'enabled',
'4' => 'disabled',
},
HostControlCapabilitiesFlags => {
'1' =>... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::LIEBERTGPPDUMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'LIEBERT-GP-PDU-MIB'} = {
lgpPduAuxMeasCntctClosureState => {
'0' => 'not-specified',
'1' => 'open',
'2' => 'closed',
},
lgpPduRcpEntryLineSource => {
'0' =>... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::HOSTRESOURCESMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'HOST-RESOURCES-MIB'} = {
hrDeviceStatus => {
'1' => 'unknown',
'2' => 'running',
'3' => 'warning',
'4' => 'testing',
'5' => 'down',
},
hrSWInstalledTyp... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::CISCOSBSYSMNGMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'CISCOSB-SYSMNG-MIB'} = {
SysmngPoolType => {
'1' => 'router',
'2' => 'iscsi',
'3' => 'voip',
'4' => 'misc',
},
SysmngResourceRouteUsageType => {
'1' =&... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::KYOCERAPRIVATEMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'KYOCERA-Private-MIB'} = {
kcprtMessageDataAttribute => {
'0' => 'notRegistered',
'1' => 'registered',
},
kcprtFirmwareUpdata => {
'3' => 'enabled',
'4' => ... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::ELTEXMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::mibs_and_oids->{'ELTEX-MIB'} = {
'eltexPowerSupplyTable' => '1.3.6.1.4.1.89.83.1.2',
'eltexPowerSupplyEntry' => '1.3.6.1.4.1.89.83.1.2.1',
'eltexPowerSupplyId' => '1.3.6.1.4.1.89.83.1.2.1.5',
'... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::STEELHEADMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'STEELHEAD-MIB'} = {
systemHealth => {
'10000' => 'healthy',
'30000' => 'degraded',
'31000' => 'admissionControl',
'50000' => 'critical',
},
optServiceStatus =... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::EMDMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'EMD-MIB'} = {
SensorStateEnumeration => {
'-1' => 'unavailable',
'0' => 'open',
'1' => 'closed',
'2' => 'belowLowerCritical',
'3' => 'belowLowerWarning',
... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::ADICTAPELIBRARYMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'ADIC-TAPE-LIBRARY-MIB'} = {
BladeState => {
'0' => 'unknown',
'1' => 'notReady',
'2' => 'booting',
'3' => 'autoleveling',
'4' => 'autolevelcomplete',
'... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::STEELHEADEXMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'STEELHEAD-EX-MIB'} = {
optServiceStatus => {
'0' => 'none',
'1' => 'unmanaged',
'2' => 'running',
'3' => 'sentCom1',
'4' => 'sentTerm1',
'5' => 'sen... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::STULZWIB8000 | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'STULZ-WIB8000'} = {
} |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::ENTITYSTATEMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'ENTITY-STATE-TC-MIB'} = {
EntityAdminState => {
1 => 'unknown',
2 => 'locked',
3 => 'shuttingDown',
4 => 'unlocked',
},
EntityOperState => {
1 => 'u... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::UCDDISKIOMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'UCD-DISKIO-MIB'} = {
} |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::LEXMARKPVTMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'LEXMARK-PVT-MIB'} = {
prtgenStatusInputEmpty => {
'1' => 'notEmpty',
'2' => 'empty',
'3' => 'unknown',
},
lexipxPortInfoBannerPage => {
'1' => 'off',
'... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::LIEBERTGPREGISTRATIONMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'LIEBERT-GP-REGISTRATION-MIB'} = {
} |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::FOUNDRYSNAGENTMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'FOUNDRY-SN-AGENT-MIB'} = {
snAgentConfigModule2MgmtModuleType => {
'1' => 'other',
'2' => 'nonManagementModule',
'3' => 'unknownManagementModule',
'4' => 'm1Manag... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::FIBRECHANNELFEMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'FIBRE-CHANNEL-FE-MIB'} = {
fcFxPortAdminMode => {
'2' => 'fPort',
'3' => 'flPort',
},
FcBbCreditModel => {
'1' => 'regular',
'2' => 'alternate',
},
fcF... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::MIBFILESYS | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'MIB-FILESYS'} = {
fsDiskCommand => {
'0' => 'none',
'1' => 'mount',
'2' => 'umount',
'3' => 'format',
},
fsDiskFsType => {
'0' => 'unkown',
'1' ... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::LEXMARKMPSMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'LEXMARK-MPS-MIB'} = {
CartridgeTypeTC => {
'1' => 'unknown',
'2' => 'other',
'3' => 'invalid',
'4' => 'shipWith',
'5' => 'standard',
'6' => 'highYie... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::NETSCREENNSRPMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'NETSCREEN-NSRP-MIB'} = {
nsrpTrackIpMethod => {
'0' => 'ping',
'1' => 'arp',
},
nsrpRtoUnitDirection => {
'1' => 'out',
'2' => 'in',
},
nsrpVsdIfMngWEB... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::DAMOCLESMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'DAMOCLES-MIB'} = {
tsAlarmDescr => {
'1' => 'inputStateAlarm',
'2' => 'temperatureOutOfRange',
'3' => 'maskStateAlarm',
},
UnitType => {
'0' => 'celsius',
... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::RMONMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'RMON-MIB'} = {
channelDataControl => {
'1' => 'on',
'2' => 'off',
},
alarmSampleType => {
'1' => 'absoluteValue',
'2' => 'deltaValue',
},
hostTopNRateB... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::POWERNETMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'PowerNet-MIB'} = {
upsAdvTestDiagnosticsResults => {
'1' => 'ok',
'2' => 'failed',
'3' => 'invalidTest',
'4' => 'testInProgress',
},
upsDiagPMLifetimeStatus =... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::BROTHERMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'BROTHER-MIB'} = {
brMediaFixTray2 => {
'1' => 'off',
'2' => 'regular',
'3' => 'thick',
'4' => 'thicker',
'5' => 'transparency',
'6' => 'thin',
'... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::XUPSMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'XUPS-MIB'} = {
xupsInputSource => {
'1' => 'other',
'2' => 'none',
'3' => 'primaryUtility',
'4' => 'bypassFeed',
'5' => 'secondaryUtility',
'6' => '... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::CISCOFIREWALLMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'CISCO-FIREWALL-MIB'} = {
AccessEvent => {
'1' => 'other',
'2' => 'grant',
'3' => 'deny',
'4' => 'denyMult',
'5' => 'error',
},
GenericEvent => {
... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::CISCOSTACKIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'CISCO-STACK-MIB'} = {
vlanTrunkMappingType => {
'1' => 'reservedToNonReserved',
'2' => 'dot1qToisl',
},
sysConsolePrimaryLoginAuthentication => {
'1' => 'tacacs',... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::CISCOSBHWENVIROMENT | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'CISCOSB-HWENVIROMENT'} = {
rlEnvMonSupplySource => {
'1' => 'unknown',
'2' => 'ac',
'3' => 'dc',
'4' => 'externalPowerSupply',
'5' => 'internalRedundant',
... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::JUNIPERIFMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'JUNIPER-IF-MIB'} = {
} |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::WEBGRAPHTHERMOHYGROBAROMETERUSMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'WebGraph-Thermo-Hygro-Barometer-US-MIB'} = {
wtWebGraphThermoBaroLoggerTimebase => {
'1' => 'wtWebGraphThermoBaroDatalogger-1Min',
'2' => 'wtWebGraphThermoBaroDatalogger-5Min',... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::PRINTERPORTMONITORMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'PRINTER-PORT-MONITOR-MIB'} = {
} |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::CISCOENHANCEDMEMPOOLMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'CISCO-ENHANCED-MEMPOOL-MIB'} = {
CempMemPoolTypes => {
'1' => 'other',
'2' => 'processorMemory',
'3' => 'ioMemory',
'4' => 'pciMemory',
'5' => 'fastMemory'... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::MIBRESOURCE | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'BIANCA-BRICK-MIBRES-MIB'} = {
memoryType => {
'1' => 'flash',
'2' => 'dram',
'3' => 'dpool',
},
} |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::LIEBERTGPSYSTEMMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'LIEBERT-GP-SYSTEM-MIB'} = {
lgpSysControlOperationOnOff => {
'1' => 'on',
'2' => 'off',
},
lgpSysAudibleAlarm => {
'1' => 'on',
'2' => 'off',
},
lgpSys... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::JUNIPERMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'JUNIPER-MIB'} = {
jnxFruState => {
'1' => 'unknown',
'2' => 'empty',
'3' => 'present',
'4' => 'ready',
'5' => 'announceOnline',
'6' => 'online',
... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::PRINTERMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'PRINTER-MIB'} = {
CodedCharSet => {
'1' => 'other',
},
PrtInputTypeTC => {
'1' => 'other',
'2' => 'unknown',
'3' => 'sheetFeedAutoRemovableTray',
'4' =... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::OLDCISCOINTERFACESMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'OLD-CISCO-INTERFACES-MIB'} = {
locIfFSIPcts => {
'1' => 'notAvailable',
'2' => 'up',
'3' => 'down',
},
locIfFSIPdsr => {
'1' => 'notAvailable',
'2' =&g... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::IEEE8023LAGMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'IEEE8023-LAG-MIB'} = {
dot3adAggPortDebugMuxState => {
'1' => 'detached',
'2' => 'waiting',
'3' => 'attached',
'4' => 'collecting',
'5' => 'distributing',
... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::SNMP::MibsAndOids::UCDSNMPMIB | show |
| $Monitoring::GLPlugin::SNMP::MibsAndOids::definitions->{'UCD-SNMP-MIB'} = {
UCDErrorFix => {
'0' => 'noError',
'1' => 'runFix',
},
UCDErrorFlag => {
'0' => 'noError',
'1' => 'error',
},
} |
| Moo-Google-0.03 | Moo::Google::Server | show |
| app->start |
| Moodle-0.03 | Moodle | show |
| method content() {
my $grammar;
my $driver = $self->driver;
my $migrator = $self->migrator;
if ($driver->isa('Mojo::Pg')) {
$grammar = 'postgres';
}
if ($driver->isa('Mojo::SQLite')) {
$grammar = 'sqlite';
}
if ($driv... |
| MooseX-ArrayRef-0.005 | MooseX::ArrayRef | show |
| [qw( Yeah baby yeah )] |
| MooseX-AttributeDocumented-0.1004 | MooseX::AttributeDocumented | show |
| Moose::Exporter->setup_import_methods(
class_metaroles => {
attribute => ['MooseX::AttributeDocumented::Meta::Attribute::Trait::Documented'],
},
) |
| MooseX-ClosedHash-0.003 | MooseX::ClosedHash | 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.006 | MooseX::DeclareX::Privacy | show |
| $MooseX::DeclareX::Privacy::VERSION = '0.006' |
| 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-Role-JSONObject-v0.1.0 | MooseX::Role::JSONObject | show |
| method to_json()
{
return MooseX::Role::JSONObject::Util::meta_to_json(
$self, $self->meta);
}
method from_json($class:, HashRef $data)
{
my $cls = ref $class || $class;
my $meta = Class::MOP::Class->initialize($cls);
return MooseX::Role:... |
| MooseX-Role-JSONObject-v0.1.0 | MooseX::Role::JSONObject::Util | show |
| func identify_type(Any $val, Moose::Meta::Attribute $attr)
{
if (!$attr->has_type_constraint) {
if (!defined $val) {
die "MooseX::Role::JSONObject::SKIP\n";
} elsif (ref $val eq 'ARRAY') {
return ('array', '*');
} elsif (ref $val eq 'HASH'... |
| MooseX-Role-REST-Consumer-0.003 | MooseX::Role::REST::Consumer | show |
| role {
my $p = shift;
my $service_host = $p->service_host;
my $service_port = $p->service_port;
my $resource_path = $p->resource_path;
my $content_type = $p->content_type;
my $retry = ... |
| 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);
} |
| Music-Intervals-0.0507 | App | show |
| true |
| MySQL-ORM-0.10 | MySQL::ORM::Generate | show |
| method generate {
$self->trace;
my $schema = $self->_lite->get_schema;
my @tables = $schema->get_tables;
@tables = $self->_prune_tables( \@tables );
my %new;
$new{tables} = \@tables;
$new{namespace} = $self->namespace if $se... |
| MySQL-ORM-0.10 | MySQL::ORM::Generate::Common | show |
| method camelize ( Str $str ) {
my @a = split( /_+/, $str );
my @b = map { ucfirst $_ } @a;
return join '', @b;
}
method writer {
return $self->_writer;
}
method attribute_maker {
return $self->_attribute_maker;
}
method method_maker {
ret... |
| MySQL-ORM-0.10 | MySQL::ORM::Generate::MethodMaker | show |
| method make_method (Str :$name,
Str :$sig,
Str :$body ) {
my $text;
$text .= "method $name (\n";
if ($sig) {
$sig = trim $sig;
$text .= " $sig\n";
}
$text .= ") {\n";
if ($body) {
$body = trim $body;
$text .= "... |
| MySQL-ORM-0.10 | MySQL::ORM::Generate::Writer | show |
| method write_class (
Str :$file_name!,
Str :$class_name!,
ArrayRef :$use,
ArrayRef :$with,
ArrayRef :$extends,
ArrayRef :$attribs,
ArrayRef :$methods,
Bool :$overwrite = 1
) {
$self->trace;
if ( !$overwrite ) {
if ( -f $fi... |
| MySQL-ORM-0.10 | MySQL::ORM::Generate::AttributeMaker | show |
| method make_attribute (
Str :$name,
ArrayRef :$comments,
Str :$is,
Str :$isa,
Str :$trigger,
Str :$default,
Bool :$no_init_arg,
Bool :$lazy,
Str :$builder
) {
my $text;
$text .= "has $name => (\n";
... |
| MySQL-ORM-0.10 | MySQL::ORM::Generate::Class::Table | show |
| method generate {
$self->trace;
my @attr;
push @attr,
my $text = $self->attribute_maker->make_attribute(
name => 'table_name',
is => 'ro',
isa => 'Str',
no_init_arg => 1,
default => spr... |
| MySQL-ORM-0.10 | MySQL::ORM::Generate::Class::ResultClass | show |
| method generate {
$self->trace;
my @attr;
my @columns = $self->table->get_columns;
foreach my $col (@columns) {
push @attr,
$self->attribute_maker->make_attribute(
name => $col->name,
comments => $self-&g... |
| MySQL-ORM-0.10 | MySQL::ORM::Generate::Class::CustomRole | show |
| method generate {
$self->trace;
$self->writer->write_class(
file_name => $self->get_module_path,
class_name => $self->get_role_name,
use => [
'Modern::Perl', 'Moose::Role',
'Method::Signatures', "Data:... |
| MySQL-ORM-0.10 | MySQL::ORM::Generate::Class::Db | show |
| method generate {
$self->trace;
my @attr;
push @attr,
$self->attribute_maker->make_attribute(
name => 'db_name',
is => 'rw',
isa => 'Str',
no_init_arg => 1,
default => sprintf( "'%s'",... |
| MySQL-ORM-0.10 | MySQL::ORM::Generate::Class::ResultClassX | show |
| method generate {
$self->trace;
my @attr;
my %seen;
my @columns = $self->table->get_columns;
foreach my $column (@columns) {
$seen{ $column->name }++;
foreach my $table ( $self->table->get_parent_tables(column_name => $... |
| MySQL-Util-0.40 | MySQL::Util::Lite | show |
| method get_schema {
return my $schema = MySQL::Util::Lite::Schema->new(
name => $self->_util->get_dbname,
_util => $self->_util
);
}
method _build_util {
my %new;
$new{dsn} = $self->dsn if defined $self->dsn;
$new{u... |
| MySQL-Util-0.40 | MySQL::Util::Lite::Schema | show |
| method get_table (Str $name) {
my @tables = $self->get_tables;
foreach my $t (@tables) {
if ( $t->name eq $name ) {
return $t;
}
}
}
method get_tables {
return @{ $self->tables };
}
method _build_tables {
my $aref = $self->_... |
| MySQL-Util-0.40 | MySQL::Util::Lite::ForeignKey | show |
| method get_column_constraints {
return @{ $self->column_constraints };
}
method _build_column_constraints {
my $aref = $self->_util->get_constraint(
name => $self->name
);
my @cols;
foreach my $col (@$aref) {
push @cols, MyS... |
| MySQL-Util-0.40 | MySQL::Util::Lite::AlternateKey | show |
| method get_columns {
return @{ $self->columns };
}
method _build_columns {
my $aref = $self->_util->get_constraint( name => $self->name );
my @cols;
foreach my $col (@$aref) {
my $href = $self->_util->describe_column(
ta... |
| MySQL-Util-0.40 | MySQL::Util::Lite::Table | show |
| method get_fq_name {
return sprintf( '%s.%s', $self->schema_name, $self->name );
}
method get_parent_tables (Str :$column_name) {
if ($column_name) {
return $self->_get_column_parent_tables( column_name => $column_name );
}
else {
r... |
| MySQL-Util-0.40 | MySQL::Util::Lite::Column | show |
| method get_moose_type {
my $str;
my $type = $self->type;
if ( $type =~ /varchar/i ) {
$str = 'Str|HashRef';
}
elsif ( $type =~ /timestamp/i || $type =~ /datetime/i) {
$str = 'Str|HashRef';
}
elsif ( $type =~ /enum/i ) {
$str = 'Str|Hash... |
| MySQL-Util-0.40 | MySQL::Util::Lite::PrimaryKey | show |
| method get_columns {
return @{ $self->columns };
}
method is_autoinc {
my @cols = $self->get_columns();
if ( @cols == 1 ) {
my $col = shift @cols;
if ( $col->is_autoinc ) {
return 1;
}
}
return 0;
}
method _build_columns {
m... |
| MySQL-Util-0.40 | MySQL::Util::Lite::Roles::NewColumn | show |
| method new_column (HashRef $column_descript) {
my $col = $column_descript;
return MySQL::Util::Lite::Column->new(
name => $col->{FIELD},
key => $col->{KEY},
default => $col->{DEFAULT},
type =>... |
| 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::Template | show |
| TRUE |
| Net-Autoconfig-v1.13.2 | Net::Autoconfig::Device | 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.151910 | 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-0.009 | Net::DNS::Resolver::Programmable | show |
| TRUE |
| Net-Google-CalendarV3-0.16 | Net::Google::CalendarV3 | show |
| method _build_service {
WWW::JSON->new( base_url => 'https://www.googleapis.com/calendar/v3',
post_body_format => 'JSON',
( $self->has_auth || $self->has_token ? (authentication => $s... |
| Net-Google-CalendarV3-0.16 | Net::Google::CalendarV3::Date | show |
| method set (DateTime $dt, CBool $is_all_day) {
if ($is_all_day) {
$self->date($dt->ymd);
$self->clear_dateTime;
$self->clear_timeZone;
} else {
$self->dateTime($dt->iso8601);
$self->time... |
| Net-Google-CalendarV3-0.16 | Net::Google::CalendarV3::Event | show |
| method uid { $self->id }
multi method title ($title) {
$self->summary($title);
}
multi method title () {
$self->summary;
}
multi method content ($content) {
$self->description($content);
}
multi method content () {
$self-&g... |
| Net-IMP-HTTP-0.523 | 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::Callbacks | show |
| sub {
$session->set_info("");
} |
| 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 {
$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 {
$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 {
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->{__BLI_locked} = 1;
} |
| 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 {
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 {
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 {
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 {
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 {
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 {
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 {
delete $session->{rv_proposals}->{$data{cookie}};
} |
| 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 {
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 {
$session->callback_admin_ok(ADMIN_TYPE_ACCOUNT_CONFIRM);
} |
| 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->postprocess_userinfo(\%data);
$session->callback_buddy_info($data{screenname}, \%data);
} |
| 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 {
$session->callback_chat_im_in($data{sender}, $connection, $data{message});
} |
| 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 {
foreach (@{$data{arrivals}}) {
$session->callback_chat_buddy_in(Net::OSCAR::Screenname->new(\$_->{screenname}), $connection, $_);
}
} |
| Net-OSCAR-1.928 | Net::OSCAR::Callbacks | show |
| sub {
$session->callback_buddy_icon_uploaded();
} |
| 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 {
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 {
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 {
$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($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 {
$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 {
$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 {
$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 {
$session->callback_evil($data{new_level} / 10, Net::OSCAR::Screenname->new(\$data{screenname}) || undef);
} |
| 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 {
$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 {
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->{families} = { map { $_ => 1 } @{$data{families}} };
send_versions($connection, 0);
$connection->proto_send(protobit => "rate_info_request", nopause => 1);
} |
| 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 {
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 => "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 $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 {
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 => "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::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 => "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 => "buddy_rights_response", reqid => $reqid);
} |
| 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 {
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 {
} |
| Net-OSCAR-1.928 | Net::OSCAR::ServerCallbacks | show |
| sub {
send_versions($connection, 0, 1);
} |
| 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-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-RocketChat-0.002 | Net::RocketChat | show |
| method BUILD($x) {
$self->username or $self->username($ENV{ROCKETCHAT_USERNAME});
$self->password or $self->password($ENV{ROCKETCHAT_PASSWORD});
$self->server or $self->server($ENV{ROCKETCHAT_SERVER});
$self->ua(LWP::UserA... |
| Net-SAML2-0.17 | Saml2Test | show |
| true |
| Net-SMS-O2-0.020 | Net::SMS::Genie | show |
| @ISA = qw( Net::SMS::O2 ) |
| Net-Stomp-MooseHelpers-3.0 | Net::Stomp::MooseHelpers::Types | show |
| coerce Permissions,
from OctalPermissions,
via { oct($_) } |
| Net-Stripe-0.39 | Net::Stripe::Resource | show |
| method form_fields_for_metadata {
my $metadata = $self->metadata();
my @metadata = ();
while( my($k,$v) = each(%$metadata) ) {
push @metadata, 'metadata['.$k.']';
push @metadata, $v;
}
return @metadata;
}
method fields_... |
| 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', ... |
| NetSNMP-Sendmail-0.95 | NetSNMP::Sendmail | show |
| registerAgent($agent, '.1.3.6.1.4.1.9163.100', $oidtable) |
| Number-MuPhone-0.07 | Number::MuPhone::Data | show |
| %Number::MuPhone::Data::NANP_areas = (
(
map { $_ => 'CA' } qw(
204 226 236 249 250 289 306 343 365 403 416 418 431 437 438 450 506
514 519 548 579 581 587 604 613 639 647 705 709 778 780 782 807 819
825 867 873 902 905 600 622 ... |
| Number-Phone-3.5001 | Number::Phone::Country::Data | show |
| $Number::Phone::Country::prefix_codes{AQ} = ['672', '0011', undef, qr/\A 0011 /xms] |
| Number-Phone-3.5001 | Number::Phone::NANP::Data | show |
| $mobile_regexes{VG} = '284496[6-9]\d{3}|284(?:3(?:0[0-3]|4[0-7]|68|9[34])|4(?:4[0-6]|68|99)|54[0-57])\d{4}' |
| Object-InsideOut-4.05 | Object::InsideOut | show |
| ($Object::InsideOut::VERSION eq '4.05')
or die("Version mismatch\n") |
| Object-InsideOut-4.05 | Object::InsideOut | show |
| ($Object::InsideOut::VERSION eq '4.05')
or die("Version mismatch\n") |
| Object-InsideOut-4.05 | Object::InsideOut | show |
| ($Object::InsideOut::VERSION eq '4.05')
or die("Version mismatch\n") |
| Object-InsideOut-4.05 | Object::InsideOut | show |
| ($Object::InsideOut::VERSION eq '4.05')
or die("Version mismatch\n") |
| Object-InsideOut-4.05 | Object::InsideOut | show |
| ($Object::InsideOut::VERSION eq '4.05')
or die("Version mismatch\n") |
| Object-InsideOut-4.05 | Object::InsideOut | show |
| ($Object::InsideOut::VERSION eq '4.05')
or die("Version mismatch\n") |
| Object-InsideOut-4.05 | Object::InsideOut | show |
| ($Object::InsideOut::VERSION eq '4.05')
or die("Version mismatch\n") |
| Object-InsideOut-4.05 | Object::InsideOut | show |
| ($Object::InsideOut::VERSION eq '4.05')
or die("Version mismatch\n") |
| Object-InsideOut-4.05 | Object::InsideOut | show |
| ($Object::InsideOut::VERSION eq '4.05')
or die("Version mismatch\n") |
| Object-InsideOut-4.05 | Object::InsideOut | show |
| ($Object::InsideOut::VERSION eq '4.05')
or die("Version mismatch\n") |
| Object-Result-0.000003 | Object::Result | show |
| func _croak (@msg) {
require Carp;
Carp::croak( @msg );
}
method _croak_failure (:$errmsg, :$msg) {
state $TRAILING_AT_LINE
= qr{ \s++ at \s++ .+? \s++ line \s++ \d++ [\s\S]*+ \Z }xms;
require Carp;
local $Carp::CarpLevel = 1... |
| 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::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>', ... |
| 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::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::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::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... |
| OpusVL-AppKit-2.29 | OpusVL::AppKit::View::JSON | show |
| __PACKAGE__->config(
expose_stash => 'json',
) |
| OpusVL-AppKit-Schema-AppKitAuthDB-6 | OpusVL::AppKit::Schema::AppKitAuthDB::Result::Aclrule | show |
| __PACKAGE__->setup_authdb |
| OpusVL-AppKit-Schema-AppKitAuthDB-6 | OpusVL::AppKit::Schema::AppKitAuthDB::Result::ParameterDefault | show |
| __PACKAGE__->belongs_to(
"parameter",
"OpusVL::AppKit::Schema::AppKitAuthDB::Result::Parameter",
{ id => "parameter_id" },
{ on_delete => "CASCADE", on_update => "CASCADE" },
) |
| OpusVL-AppKit-Schema-AppKitAuthDB-6 | OpusVL::AppKit::Schema::AppKitAuthDB::Result::AclruleRole | show |
| __PACKAGE__->belongs_to(
"aclrule",
"OpusVL::AppKit::Schema::AppKitAuthDB::Result::Aclrule",
{ id => "aclrule_id" },
{ on_delete => "CASCADE", on_update => "CASCADE" },
) |
| OpusVL-AppKit-Schema-AppKitAuthDB-6 | OpusVL::AppKit::Schema::AppKitAuthDB::Result::Parameter | show |
| __PACKAGE__->setup_authdb |
| OpusVL-AppKit-Schema-AppKitAuthDB-6 | OpusVL::AppKit::Schema::AppKitAuthDB::Result::UsersData | show |
| __PACKAGE__->belongs_to(
"user",
"OpusVL::AppKit::Schema::AppKitAuthDB::Result::User",
{ id => "users_id" },
{ on_delete => "CASCADE", on_update => "CASCADE" },
) |
| OpusVL-AppKit-Schema-AppKitAuthDB-6 | OpusVL::AppKit::Schema::AppKitAuthDB::Result::UsersParameter | show |
| __PACKAGE__->belongs_to(
"user",
"OpusVL::AppKit::Schema::AppKitAuthDB::Result::User",
{ id => "users_id" },
{ on_delete => "CASCADE", on_update => "CASCADE" },
) |
| OpusVL-AppKit-Schema-AppKitAuthDB-6 | OpusVL::AppKit::Schema::AppKitAuthDB::Result::Role | show |
| __PACKAGE__->setup_authdb |
| OpusVL-AppKit-Schema-AppKitAuthDB-6 | OpusVL::AppKit::Schema::AppKitAuthDB::Result::UsersRole | show |
| __PACKAGE__->belongs_to(
"user",
"OpusVL::AppKit::Schema::AppKitAuthDB::Result::User",
{ id => "users_id" },
{ on_delete => "CASCADE", on_update => "CASCADE" },
) |
| OpusVL-AppKit-Schema-AppKitAuthDB-6 | OpusVL::AppKit::Schema::AppKitAuthDB::Result::User | show |
| __PACKAGE__->setup_authdb |
| 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::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::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::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::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::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::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::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::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::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::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::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::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::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::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::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::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::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::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::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::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::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::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::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::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::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::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::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::wingdings | show |
| $FONTDATA = {
'fontname' => 'Wingdings',
'type' => 'TrueType',
'apiname' => 'WiDi',
'ascender' => '898',
'capheight' => '722',
'descender' => '-210',
'isfixedpitch' => '0',
'issymbol' => '1',
'it... |
| PGP-Sign-0.20 | PGP::Sign | show |
| $VERSION = '0.20' |
| PHP-Include-0.37 | 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 |
| POE-Component-Spread-0.02 | POE::Component::Spread | show |
| $VERSION |
| POE-Component-Spread-0.02 | POE::Driver::Spread | show |
| $VERSION |
| POE-Component-Spread-0.02 | POE::Filter::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 |
| POEx-Role-PSGIServer-1.150280 | 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.150280 | 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.150280 | 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, ... |
| POEx-Weather-OpenWeatherMap-0.003002 | POEx::Weather::OpenWeatherMap | show |
| method start {
$self->set_object_states(
[
$self => +{
emitter_started => 'mxrp_emitter_started',
emitter_stopped => 'mxrp_emitter_stopped',
get_weather => 'ext_get_weather',
ext_http_re... |
| 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::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::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::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... |
| 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::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::Char | show |
| method to_string { 'char' }
method must_not_merge { 1 }
1 |
| Padre-Plugin-Vi-0.23 | Vimper::SyntaxPath::Node::Count | show |
| method to_string { 'number' }
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::SyntaxPath::Node::Op | show |
| method to_string { 'op' }
method must_merge { 1 }
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::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::Init | show |
| method to_string { 'init' }
method must_merge { 1 }
1 |
| Pangloss-0.06 | Pangloss::Version | show |
| $Pangloss::VERSION = $VERSION |
| Path-AttrRouter-0.04 | Cat::Controller::Root | show |
| y
|
| 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-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... |
| Perl-ToPerl6-0.040 | Point | show |
| has w => ( is => 'r0', isa => 'Bool', default => 32 ) |
| 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.000013 | 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.72 | 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 | Filtered::Comments | show |
| 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 | main | show |
| push @Grammar::Perl6::ops, Runtime::Perl5::RuleOps::compile_rule( 'infix\:\<\~\>' ) |
| Perl6-Pugs-6.2.13 | Regexp::StructHook | show |
| eval <<'END' |
| Perl6-Pugs-6.2.13 | Perl::Cxt | show |
| type Perl::Cxt is CxtVoid | CxtItem | CxtSlurpy |
| 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-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... |
| PerlMonksFlairApp-0.2 | PerlMonksFlairApp | show |
| true |
| PerlX-AsyncAwait-0.001003 | Foo | show |
| $inv->error('ARGH') |
| PerlX-AsyncAwait-0.001003 | AA | show |
| print join("\n", (split("\n", $f->get))[0..9], '') |
| PerlX-Maybe-1.201 | Syntax::Feature::Maybe | show |
| __FILE__ |
| PerlX-Maybe-1.201 | PerlX::Maybe | show |
| __FILE__ |
| PerlX-Perform-0.006 | Syntax::Feature::Perform | show |
| __FILE__ |
| PerlX-Perform-0.006 | PerlX::Perform | show |
| __FILE__ |
| PerlX-QuoteOperator-Inescapable-0.002 | 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::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... |
| 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... |
| Perlito5-9.028 | Perlito5::Grammar::Regex6 | show |
| token literal {
[
| \\ .
| <!before \' > .
]*
};
token metasyntax_exp {
[ <!before '>' > . ]+
};
token string_code {
[
| \\ .
| \' <.literal> \'
| \{ <.string_code> \}
| ... |
| Perlito5-9.028 | Perlito5::Grammar::Regex5 | show |
| token rule {
<or_list_exp>
{
my $arg = Perlito5::Match::flat($MATCH->{or_list_exp});
if (@$arg < 1) {
$MATCH->{capture} = "empty";
}
elsif (@$arg < 2) {
($MATCH->{capture... |
| Perlito5-9.028 | Perlito5::Grammar | show |
| Perlito5::Grammar::Statement::add_statement( 'unless' => \&unless ) |
| Perlito5-9.028 | Config | show |
| %Config = (
archlibexp => '/usr/local/lib/perl5/5.22.0/darwin-2level',
archname => 'darwin-2level',
cc => 'cc',
d_readdir => '1',
dlext => 'bundle',
dlsrc => 'dl_dlopen.xs',
dont_use_nlink => undef,
exe... |
| PkgConfig-0.23026 | PkgConfig::Vars | show |
| exit(0) |
| PlRPC-0.2020 | RPC::PlServer::Test | show |
| @RPC::PlServer::ISA = qw(Net::Daemon::Test) |
| Plack-App-PgREST-0.06 | 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 |
| Plack-Middleware-Debug-HTML-Mason-0.3 | Plack::Middleware::Debug::HTML::Mason | show |
| $Plack::Middleware::Debug::HTML::Mason::Plugin::VERSION = '0.3' |
| Plack-Middleware-NewRelic-0.0502 | Plack::Middleware::NewRelic | show |
| method _build_license_key {
my $license_key = $ENV{NEWRELIC_LICENSE_KEY};
die 'Missing NewRelic license key' unless $self->license_key;
return $license_key;
}
method _build_app_name {
my $app_name = $ENV{NEWRELIC_APP_NAME};
die 'Mi... |
| Platform-Unix-0.002 | 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.002 | Platform::Windows | show |
| $ENV{PERL_PLATFORM_OVERRIDE}||($^O =~ /^(MSWin32|cygwin)$/i) |
| Pod-Browser-1.0.1 | Pod::Browser | show |
| sub { __PACKAGE__->run( @_) } |
| Pod-Coverage-mop-0.002 | Pod::Coverage::mop | show |
| class Pod::Coverage::mop
extends Pod::Coverage::CountParents {
use Pod::Coverage::CountParents;
use Module::Load;
method new($class: %args) {
my $package = $args{package};
load $package;
if (my $meta = mop::meta... |
| Pod-Knit-0.0.1 | Pod::Knit::Manual | show |
| $Pod::Knit::Manual::VERSION = '0.0.1' |
| Pod-L10N-1.03 | Pod::L10N | show |
| $VERSION = '1.03' |
| 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.16 | 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.16 | 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.16 | Poet::Server | show |
| method load_startup_modules () {
return if $loaded_startup_modules++;
foreach my $module ( @{ $conf->get_list('server.load_modules') } ) {
Class::Load::load_class($module);
}
}
1 |
| Poet-0.16 | 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.16 | 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.16 | 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.16 | 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.16 | 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 );
}
method ... |
| Poet-0.16 | 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.16 | 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... |
| Poet-0.16 | 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_... |
| Pointer-0.11 | Pointer::int | show |
| const pack_template => 'i!' |
| Pointer-0.11 | Pointer::long | show |
| const sizeof => $Config{longsize} |
| Pointy-Counter-0.002 | Pointy::Counter | show |
| __FILE__ |
| PostScript-File-2.23 | PostScript::File::Functions | show |
| __PACKAGE__->_init_module(\*DATA) |
| PostScript-File-2.23 | 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.23 | 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.23 | 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.23 | 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.23 | 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.23 | 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.23 | 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.23 | 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.23 | 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.23 | 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.23 | 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.23 | 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.23 | 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.23 | 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.23 | 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.23 | 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.23 | 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.23 | 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.23 | 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.23 | 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.23 | 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.23 | 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... |
| PostScript-File-2.23 | 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.23 | 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.23 | 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.23 | 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.23 | 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.23 | 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.23 | 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.23 | 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.23 | 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.23 | 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.23 | 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.23 | 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.23 | 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.23 | 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.23 | 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... |
| Prima-1.56 | Prima::Themes::Round3D | show |
| Prima::Themes::register( 'Prima::themes::round3d', 'round3d', [
'Prima::Button' => \%wrap_paint,
'Prima::ScrollBar' => \%wrap_paint,
'Prima::InputLine' => \%wrap_paint,
],
) |
| Prima-1.56 | Prima::themes::sysimage | show |
| Prima::Themes::register( 'Prima::themes::sysimage', 'sysimage-standard', undef, undef, \&install) |
| Prima-1.56 | 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 |
| QBit-Application-0.017 | QBit::Application | show |
| TRUE |
| QBit-Application-0.017 | QBit::Application::Model | show |
| TRUE |
| QBit-Application-0.017 | QBit::Application::Part | show |
| TRUE |
| QBit-Application-0.017 | QBit::Application::_Utils::TmpLocale | show |
| TRUE |
| QBit-Application-0.017 | QBit::Application::_Utils::TmpRights | show |
| TRUE |
| QBit-Application-0.017 | QBit::Application::Model::RBAC | show |
| TRUE |
| QBit-Application-Model-Authorization-0.007 | Exception::Authorization | show |
| TRUE |
| QBit-Application-Model-Authorization-0.007 | QBit::Application::Model::DB::Authorization | show |
| TRUE |
| QBit-Application-Model-DB-0.030 | QBit::Application::Model::DB | show |
| TRUE |
| QBit-Application-Model-DB-0.030 | QBit::Application::Model::DB::VirtualTable | show |
| TRUE |
| QBit-Application-Model-DB-0.030 | QBit::Application::Model::DB::Filter | show |
| TRUE |
| QBit-Application-Model-DB-0.030 | QBit::Application::Model::DB::Table | show |
| TRUE |
| QBit-Application-Model-DB-0.030 | Exception::DB::NoFieldsAvailable | show |
| TRUE |
| QBit-Application-Model-DB-0.030 | QBit::Application::Model::DB::Field | show |
| TRUE |
| QBit-Application-Model-DB-0.030 | QBit::Application::Model::DB::Class | show |
| TRUE |
| QBit-Application-Model-DB-clickhouse-0.007 | QBit::Application::Model::DB::clickhouse | show |
| TRUE |
| QBit-Application-Model-DB-clickhouse-0.007 | QBit::Application::Model::DB::clickhouse::dbi | show |
| TRUE |
| QBit-Application-Model-DB-clickhouse-0.007 | QBit::Application::Model::DB::clickhouse::Table | show |
| TRUE |
| QBit-Application-Model-DB-clickhouse-0.007 | QBit::Application::Model::DB::clickhouse::Query | show |
| TRUE |
| QBit-Application-Model-DB-clickhouse-0.007 | QBit::Application::Model::DB::clickhouse::Field | show |
| TRUE |
| QBit-Application-Model-DB-clickhouse-0.007 | QBit::Application::Model::DB::clickhouse::st | show |
| TRUE |
| QBit-Application-Model-DB-mysql-0.017 | QBit::Application::Model::DB::mysql | show |
| TRUE |
| QBit-Application-Model-DB-mysql-0.017 | QBit::Application::Model::DB::mysql::Table | show |
| TRUE |
| QBit-Application-Model-DB-mysql-0.017 | QBit::Application::Model::DB::mysql::Query | show |
| TRUE |
| QBit-Application-Model-DB-mysql-0.017 | QBit::Application::Model::DB::mysql::Field | show |
| TRUE |
| QBit-Application-Model-DB-mysql-Authorization-0.001 | QBit::Application::Model::DB::mysql::Authorization | show |
| TRUE |
| QBit-Application-Model-DB-mysql-KvStore-0.002 | QBit::Application::Model::DB::mysql::KvStore | show |
| TRUE |
| QBit-Application-Model-DB-mysql-RBAC-0.002 | QBit::Application::Model::DB::mysql::RBAC | show |
| TRUE |
| QBit-Application-Model-DB-mysql-Table-MultistateActionLog-0.002 | QBit::Application::Model::DB::mysql::Table::MultistateActionLog | show |
| TRUE |
| QBit-Application-Model-DB-mysql-Users-0.002 | QBit::Application::Model::DB::mysql::Users | show |
| TRUE |
| QBit-Application-Model-DBManager-0.022 | QBit::Application::Model::DBManager | show |
| TRUE |
| QBit-Application-Model-DBManager-0.022 | QBit::Application::Model::DBManager::Filter | show |
| TRUE |
| QBit-Application-Model-DBManager-0.022 | QBit::Application::Model::DBManager::_Utils::Fields | show |
| TRUE |
| QBit-Application-Model-DBManager-0.022 | QBit::Application::Model::DBManager::Filter::subfilter | show |
| TRUE |
| QBit-Application-Model-DBManager-0.022 | QBit::Application::Model::DBManager::Filter::boolean | show |
| TRUE |
| QBit-Application-Model-DBManager-0.022 | QBit::Application::Model::DBManager::Filter::dictionary | show |
| TRUE |
| QBit-Application-Model-DBManager-0.022 | QBit::Application::Model::DBManager::Filter::number | show |
| TRUE |
| QBit-Application-Model-DBManager-0.022 | QBit::Application::Model::DBManager::Filter::text | show |
| TRUE |
| QBit-Application-Model-DBManager-0.022 | QBit::Application::Model::DBManager::Filter::multistate | show |
| TRUE |
| QBit-Application-Model-DBManager-Users-0.007 | QBit::Application::Model::DBManager::Users | show |
| TRUE |
| QBit-Application-Model-DBManager-Users-0.007 | QBit::Application::Model::DBManager::Filter::extra_fields | show |
| QBit-Application-Model-DBManager-Users-0.007 | QBit::Application::Model::DB::Users | show |
| TRUE |
| QBit-Application-Model-KvStore-0.004 | QBit::Application::Model::KvStore | show |
| TRUE |
| QBit-Application-Model-KvStore-0.004 | QBit::Application::Model::DB::KvStore | show |
| TRUE |
| QBit-Application-Model-Multistate-0.009 | QBit::Application::Model::Multistate | show |
| TRUE |
| QBit-Application-Model-Multistate-DB-0.010 | QBit::Application::Model::Multistate::DB | show |
| TRUE |
| QBit-Application-Model-RBAC-DB-0.003 | QBit::Application::Model::RBAC::DB | show |
| TRUE |
| QBit-Application-Model-RBAC-DB-0.003 | QBit::Application::Model::DB::RBAC | show |
| TRUE |
| QBit-Application-Model-SendMail-0.008 | Exception::SendMail | show |
| TRUE |
| QBit-Base-0.003 | QBit::Base | show |
| TRUE |
| QBit-Class-0.3 | QBit::Class | show |
| TRUE |
| QBit-Cron-0.004 | QBit::Cron | show |
| TRUE |
| QBit-Cron-0.004 | QBit::Cron::Methods | show |
| TRUE |
| QBit-GraphViz-0.003 | QBit::GraphViz | show |
| TRUE |
| QBit-QueryData-0.011 | QBit::QueryData | show |
| TRUE |
| QBit-QueryData-0.011 | QBit::QueryData::Function | show |
| TRUE |
| QBit-QueryData-0.011 | QBit::QueryData::Function::SUM | show |
| TRUE |
| QBit-QueryData-0.011 | QBit::QueryData::Function::MIN | show |
| TRUE |
| QBit-QueryData-0.011 | QBit::QueryData::Function::FIELD | show |
| TRUE |
| QBit-QueryData-0.011 | QBit::QueryData::Function::DISTINCT | show |
| TRUE |
| QBit-QueryData-0.011 | QBit::QueryData::Function::MAX | show |
| TRUE |
| QBit-QueryData-0.011 | QBit::QueryData::Function::CONCAT | show |
| TRUE |
| QBit-QueryData-0.011 | QBit::QueryData::Function::COUNT | show |
| TRUE |
| QBit-TimeLog-0.5 | QBit::TimeLog | show |
| TRUE |
| QBit-TimeLog-XS-0.008 | QBit::TimeLog::XS | show |
| TRUE |
| QBit-Validator-0.012 | QBit::Validator | show |
| TRUE |
| QBit-Validator-0.012 | QBit::Validator::Type | show |
| TRUE |
| QBit-Validator-0.012 | QBit::Validator::PathManager | show |
| TRUE |
| QBit-Validator-0.012 | QBit::Validator::Type::scalar | show |
| TRUE |
| QBit-Validator-0.012 | QBit::Validator::Type::palindrome | show |
| TRUE |
| QBit-Validator-0.012 | QBit::Validator::Type::variable | show |
| TRUE |
| QBit-Validator-0.012 | QBit::Validator::Type::array | show |
| TRUE |
| QBit-Validator-0.012 | QBit::Validator::Type::hash | show |
| TRUE |
| QBit-WebInterface-0.033 | QBit::WebInterface | show |
| TRUE |
| QBit-WebInterface-0.033 | QBit::WebInterface::Response | show |
| TRUE |
| QBit-WebInterface-0.033 | QBit::WebInterface::Routing | show |
| TRUE |
| QBit-WebInterface-0.033 | QBit::WebInterface::Request | show |
| TRUE |
| QBit-WebInterface-0.033 | QBit::WebInterface::Controller | show |
| TRUE |
| QBit-WebInterface-0.033 | QBit::WebInterface::Controller::Form | show |
| TRUE |
| QBit-WebInterface-0.033 | QBit::WebInterface::Controller::Template::Provider | show |
| TRUE |
| QBit-WebInterface-0.033 | QBit::WebInterface::Controller::Form::Field | show |
| TRUE |
| QBit-WebInterface-0.033 | QBit::WebInterface::Controller::Form::Field::input | show |
| TRUE |
| QBit-WebInterface-0.033 | QBit::WebInterface::Controller::Form::Field::checkbox | show |
| TRUE |
| QBit-WebInterface-0.033 | QBit::WebInterface::Controller::Form::Field::select | show |
| TRUE |
| QBit-WebInterface-0.033 | QBit::WebInterface::Controller::Form::Field::password | show |
| TRUE |
| QBit-WebInterface-0.033 | QBit::WebInterface::Controller::Form::Field::email | show |
| TRUE |
| QBit-WebInterface-0.033 | QBit::WebInterface::Controller::Form::Field::textarea | show |
| TRUE |
| QBit-WebInterface-0.033 | QBit::WebInterface::Controller::Form::Field::hidden | show |
| TRUE |
| QBit-WebInterface-0.033 | QBit::WebInterface::Controller::Form::Field::submit | show |
| TRUE |
| QBit-WebInterface-0.033 | QBit::WebInterface::Controller::Form::Field::reCAPTCHA | show |
| TRUE |
| QBit-WebInterface-0.033 | QBit::WebInterface::Controller::Form::Field::button | show |
| TRUE |
| QBit-WebInterface-Apache2-0.006 | QBit::WebInterface::Apache2 | show |
| TRUE |
| QBit-WebInterface-Apache2-0.006 | QBit::WebInterface::Apache2::Request | show |
| TRUE |
| QBit-WebInterface-Controller-Multistate-0.004 | QBit::WebInterface::Controller::Multistate | show |
| TRUE |
| QBit-WebInterface-Controller-Pod-0.004 | QBit::WebInterface::Controller::Pod | show |
| TRUE |
| QBit-WebInterface-Controller-RBAC-0.004 | QBit::WebInterface::Controller::RBAC | show |
| TRUE |
| QBit-WebInterface-FastCGI-0.006 | QBit::WebInterface::FastCGI | show |
| TRUE |
| QBit-WebInterface-FastCGI-0.006 | QBit::WebInterface::FastCGI::Request | show |
| TRUE |
| QBit-WebInterface-OwnServer-0.008 | QBit::WebInterface::OwnServer | show |
| TRUE |
| QBit-WebInterface-OwnServer-0.008 | Exception::WebInterface::OwnServer::BadRequest | show |
| TRUE |
| QBit-WebInterface-PSGI-0.005 | QBit::WebInterface::PSGI | show |
| TRUE |
| QBit-WebInterface-PSGI-0.005 | QBit::WebInterface::PSGI::Request | show |
| TRUE |
| QBit-WebInterface-Routing-0.010 | QBit::WebInterface::Routing | show |
| TRUE |
| QBit-WebInterface-Routing-0.010 | QBit::WebInterface::Routing::Routes | show |
| TRUE |
| Qgoda-0.9.6 | Qgoda::PluginLoader::TT2::Filter | show |
| unshift @INC, Qgoda::PluginLoader::TT2::Filter->new |
| Qt-0.96.0 | NorwegianWoodStyle | show |
| void NorwegianWoodStyle::drawControl(ControlElement element,
const Qt::StyleOption *option,
Qt::Painter *painter,
const Qt::Widget *widget) cons... |
| 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.003 | 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::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_$... |
| 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 |
| Ref-Store-0.20 | Ref::Store::ThreadUtil::OldLookups | show |
| push @EXPORT, qw(hr_thrutil_store_kinfo hr_thrutil_get_kinfo) |
| Reflex-0.100 | 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.100 | 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::Value | show |
| $Relations::Family::Value::VERSION |
| Relations-Family-0.94 | Relations::Family::Member | show |
| $Relations::Family::Member::VERSION |
| Relations-Family-0.94 | Relations::Family::Rivalry | show |
| $Relations::Family::Rivalry::VERSION |
| Relations-Family-0.94 | Relations::Family::Lineage | show |
| $Relations::Family::Lineage::VERSION |
| Relations-Query-0.93 | Relations::Query | show |
| $Relations::Query::VERSION |
| Renard-Curie-0.004 | Renard::Curie::ViewModel::ViewManager | show |
| method _trigger_current_view($view) {
$self->signal_emit( 'update-view' => $view );
}
method _trigger_number_of_columns($new_number_of_columns) {
my $grid_options = $self->view_options->grid_options->cset( columns => $new_number_of_co... |
| Renard-Curie-0.004 | Renard::Curie::Component::Outline | show |
| method BUILD(@) {
my $frame = Gtk3::Frame->new('Outline');
my $scrolled_window = Gtk3::ScrolledWindow->new;
$scrolled_window->set_vexpand(TRUE);
$scrolled_window->set_hexpand(TRUE);
$scrolled_window->set_policy( 'automatic', 'automatic... |
| Renard-Curie-0.004 | Renard::Curie::Component::AccelMap | show |
| method BUILD(@) {
Gtk3::AccelMap::add_entry(
'<Curie-Main>/File/Open',
Gtk3::Gdk::KEY_O(),
'control-mask'
);
Gtk3::AccelMap::add_entry(
'<Curie-Main>/File/Quit',
Gtk3::Gdk::KEY_Q(),
'control-mask'
);
Gtk3::AccelMap::add_entr... |
| Renard-Curie-0.004 | Renard::Curie::Component::PageDrawingArea::Role::NavigationButtons | show |
| method setup_button_events() {
$self->builder->get_object('button-first')->signal_connect(
clicked => \&on_clicked_button_first_cb, $self );
$self->builder->get_object('button-last')->signal_connect(
clicked => \&on_clicked_b... |
| Renard-Curie-0.004 | Renard::Curie::Component::PageDrawingArea::Role::ScrollWindow | show |
| method increment_scroll( (InstanceOf['Gtk3::Adjustment']) $current ) {
my $adjustment = $current->get_value + $current->get_step_increment;
$current->set_value($adjustment);
}
method decrement_scroll( (InstanceOf['Gtk3::Adjustment']) $current ... |
| Renard-Curie-0.004 | Renard::Curie::Component::PageDrawingArea::Role::PageLabel | show |
| method setup_number_of_pages_label() {
$self->builder->get_object("number-of-pages-label")
->set_text( $self->view->document->number_of_pages );
}
1 |
| Renard-Curie-0.004 | Renard::Curie::Component::PageDrawingArea::Role::PageEntry | show |
| method setup_text_entry_events() {
$self->builder->get_object('page-number-entry')->signal_connect(
activate => \&on_activate_page_number_entry_cb, $self );
}
callback on_activate_page_number_entry_cb( $entry, $self ) {
my $text = $entry-... |
| Renard-Curie-0.004 | Renard::Curie::Component::PageDrawingArea::Role::MouseScrollBindings | show |
| method setup_scroll_bindings() {
$self->scrolled_window->signal_connect(
'scroll-event' => \&on_scroll_event_cb, $self );
}
callback on_scroll_event_cb($window, $event, $self) {
if ( $event->state == 'control-mask' && $event->direction... |
| Renard-Curie-0.004 | Renard::Curie::Component::MainWindow::Role::MenuBar | show |
| callback on_open_file_dialog_cb( $event, $self ) {
my $file_chooser = Renard::Curie::Component::FileChooser->new( main_window => $self );
my $dialog = $file_chooser->get_open_file_dialog_with_filters;
my $result = $dialog->run;
if ( $res... |
| Renard-Curie-0.004 | Renard::Curie::Component::MainWindow::Role::DragAndDrop | show |
| method setup_dnd() {
$self->content_box->drag_dest_set('all', [], 'copy');
my $target_list = Gtk3::TargetList->new([
Gtk3::TargetEntry->new( 'text/uri-list', 0, $self->DND_TARGET_URI_LIST ),
Gtk3::TargetEntry->new( 'text/plain' ,... |
| Renard-Curie-0.004 | Renard::Curie::Model::View::Grid::Subview | show |
| method _build__page_info() {
my $doc = $self->_grid_view->document;
my $page_numbers = $self->_grid_scheme->pages;
my %rendered_page_by_number = map {
( $_ =>
$doc->get_rendered_page(
page_number => $_,
zoom_level =&g... |
| Renard-Curie-0.004 | Renard::Curie::Model::View::Role::Pageable | show |
| method set_current_page_to_first() {
$self->page_number( $self->document->first_page_number );
}
method set_current_page_to_last() {
$self->page_number( $self->document->last_page_number );
}
method can_move_to_previous_page() :Retur... |
| Renard-Curie-0.004 | Renard::Curie::Model::View::Role::Renderable | show |
| method draw_page(
(InstanceOf['Gtk3::DrawingArea']) $widget,
(InstanceOf['Cairo::Context']) $cr
) {
...
}
method get_size_request() :ReturnType( list => SizeRequest) {
...
}
1 |
| Renard-Curie-0.004 | Renard::Curie::Model::View::Role::SubviewPageable | show |
| method set_current_subview_to_first() {
$self->_subview_idx( 0 );
}
method set_current_subview_to_last() {
$self->_subview_idx( $self->_number_of_subviews - 1 );
}
method can_move_to_previous_subview() :ReturnType(Bool) {
$self->_subview... |
| Renard-Curie-0.004 | Renard::Curie::Container::App | show |
| method _test_current_view() {
$self->view_manager->current_view;
}
1 |
| Renard-Incunabula-0.004 | Renard::Incunabula::Devel::TestHelper | show |
| classmethod test_data_directory() :ReturnType(Dir) {
require Path::Tiny;
Path::Tiny->import();
if( not defined $ENV{RENARD_TEST_DATA_PATH} ) {
die "Must set environment variable RENARD_TEST_DATA_PATH to the path for the test-data repository";
}
... |
| Renard-Incunabula-Document-0.004 | Renard::Incunabula::Outline | show |
| method _build_tree_store() {
load 'Gtk3', '-init';
my $data = Gtk3::TreeStore->new( 'Glib::String', 'Glib::String', );
my $outline_items = $self->items;
my $level = 0;
my $iter = undef;
my @parents = ();
for my $item (@$outline_items) {
... |
| Renard-Incunabula-Document-0.004 | Renard::Incunabula::Document::Devel::TestHelper | show |
| classmethod create_null_document( :$repeat = 1 ) {
require Renard::Incunabula::Document::Null;
require Renard::Incunabula::Page::Null;
my $null_doc = Renard::Incunabula::Document::Null->new(
pages => [
map {
Renard::Incunabula::Page::Nu... |
| Renard-Incunabula-Document-0.004 | Renard::Incunabula::Document::Role::FromFile | show |
| method _build_filename_uri() :ReturnType(FileUri) {
FileUri->coerce($self->filename);
}
1 |
| Renard-Incunabula-Format-Cairo-0.004 | Renard::Incunabula::Page::Role::BoundsFromCairoImageSurface | show |
| method _build_width() :ReturnType(PositiveOrZeroInt) {
$self->cairo_image_surface->get_width;
}
method _build_height() :ReturnType(PositiveOrZeroInt) {
$self->cairo_image_surface->get_height;
}
1 |
| Renard-Incunabula-Format-Cairo-0.004 | Renard::Incunabula::Format::Cairo::Devel::TestHelper | show |
| classmethod create_cairo_document( :$repeat = 1, :$width = 5000, :$height = 5000 ) {
my $colors = [
(
[ 1, 0, 0 ],
[ 0, 1, 0 ],
[ 0, 0, 1 ],
[ 0, 0, 0 ],
) x ( $repeat )
];
my @surfaces = map {
my $surface = Cairo::ImageSurface->c... |
| Renard-Incunabula-Format-PDF-0.004 | Renard::Incunabula::Format::PDF::InformationDictionary | show |
| method Title() :ReturnType(Maybe[Str]) {
$self->_get_data('Title');
}
method Subject() :ReturnType(Maybe[Str]) {
$self->_get_data('Subject');
}
method Author() :ReturnType(Maybe[Str]) {
$self->_get_data('Author');
}
method Keywords() :Retur... |
| Renard-Incunabula-Frontend-Gtk3-0.004 | Renard::Incunabula::Frontend::Gtk3::Helper | show |
| fun _scrolled_window_viewport_shim() {
if( not Gtk3::CHECK_VERSION('3', '8', '0') ) {
Class::Method::Modifiers::install_modifier
"Gtk3::ScrolledWindow",
around => add => fun(@) {
my $orig = shift;
my $self = shift; ... |
| Renard-Incunabula-MuPDF-mutool-0.004 | Renard::Incunabula::MuPDF::mutool | show |
| fun _call_mutool( @mutool_args ) {
my @args = ( $Renard::Incunabula::MuPDF::mutool::MUTOOL_PATH, @mutool_args );
my ($stdout, $exit);
if( $^O eq 'MSWin32' ) {
my $temp_fh = File::Temp->new;
close $temp_fh;
my $output_... |
| Renard-Incunabula-MuPDF-mutool-0.004 | Renard::Incunabula::MuPDF::mutool::ObjectParser | show |
| method resolve_key( (Str) $key ) {
return unless $self->type == $self->TypeDictionary
&& exists $self->data->{$key};
my $value = $self->data->{$key};
while( $value->type == $self->TypeReference ) {
$value = $self->new_f... |
| Renard-Incunabula-MuPDF-mutool-0.004 | Renard::Incunabula::MuPDF::mutool::DateObject | show |
| method _build_data() {
my $date_string = $self->string;
my $date_re = qr/
(?<Prefix>D:)?
(?<Year> \d{4} ) # YYYY is the year
(?<Month> \d{2} )? # MM is the month
(?<Day> \d{2} )? # DD is the day (01... |
| Role-Subsystem-0.101341 | 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 |
| 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_Perl-2.1.2 | SDL::Constants | show |
| @EXPORT=qw(
AUDIO_S16
AUDIO_S16MSB
AUDIO_S8
AUDIO_U16
AUDIO_U16MSB
AUDIO_U8
CD_ERROR
CD_PAUSED
CD_PLAYING
CD_STOPPED
CD_TRAYEMPTY
INADDR_ANY
INADDR_NONE
KMOD_ALT
KMOD_CAPS
KMOD_CTRL
KMOD_LALT
KMOD_LCTRL
KMOD_LSHIFT
KMOD_NONE
KMOD_NUM
... |
| SDL_Perl-2.1.2 | SDL::OpenGL::Constants | show |
| @EXPORT=qw(
GLU_AUTO_LOAD_MATRIX
GLU_CULLING
GLU_DISPLAY_MODE
GLU_DOMAIN_DISTANCE
GLU_FILL
GLU_MAP1_TRIM_2
GLU_MAP1_TRIM_3
GLU_NURBS_BEGIN
GLU_NURBS_BEGIN_DATA
GLU_NURBS_COLOR
GLU_NURBS_COLOR_DATA
GLU_NURBS_END
GLU_NURBS_END_DATA
GLU_NURBS_E... |
| SFML-0.0102 | SFML | show |
| XSLoader::load('SFML', $VERSION) |
| 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' |
| SReview-0.4.2 | SReview | show |
| $VERSION = "0.4.2" |
| Salvation-0.9913 | URMS | show |
| -1 |
| Salvation-0.9913 | URMS::Services::RequestInfoWindow | show |
| -1 |
| Salvation-0.9913 | URMS::Services::RequestMgmtControls | show |
| -1 |
| Salvation-0.9913 | URMS::Services::RequestLoader | show |
| -1 |
| Salvation-0.9913 | URMS::Services::UserInfoWindow | show |
| -1 |
| Salvation-0.9913 | URMS::Services::RequestInfoWindow::DataSet | show |
| -1 |
| Salvation-0.9913 | URMS::Services::RequestInfoWindow::Hooks::Type::2 | show |
| -1 |
| Salvation-0.9913 | URMS::Services::RequestInfoWindow::Hooks::Type::2::Defaults::M | show |
| -1 |
| Salvation-0.9913 | URMS::Services::RequestInfoWindow::Defaults::M | show |
| -1 |
| Salvation-0.9913 | URMS::Services::RequestInfoWindow::Defaults::C | show |
| -1 |
| Salvation-0.9913 | URMS::Services::RequestInfoWindow::Defaults::OutputProcessor | show |
| -1 |
| Salvation-0.9913 | URMS::Services::RequestInfoWindow::Defaults::V | show |
| -1 |
| Salvation-0.9913 | URMS::Services::RequestMgmtControls::DataSet | show |
| -1 |
| Salvation-0.9913 | URMS::Services::RequestMgmtControls::Defaults::M | show |
| -1 |
| Salvation-0.9913 | URMS::Services::RequestMgmtControls::Defaults::C | show |
| -1 |
| Salvation-0.9913 | URMS::Services::RequestMgmtControls::Defaults::OutputProcessor | show |
| -1 |
| Salvation-0.9913 | URMS::Services::RequestMgmtControls::Defaults::V | show |
| -1 |
| Salvation-0.9913 | URMS::Services::UserInfoWindow::DataSet | show |
| -1 |
| Salvation-0.9913 | URMS::Services::UserInfoWindow::Defaults::M | show |
| -1 |
| Salvation-0.9913 | URMS::Services::UserInfoWindow::Defaults::C | show |
| -1 |
| Salvation-0.9913 | URMS::Services::UserInfoWindow::Defaults::OutputProcessor | show |
| -1 |
| Salvation-0.9913 | URMS::Services::UserInfoWindow::Defaults::V | show |
| -1 |
| Salvation-0.9913 | URMS::Services::RequestLoader::DataSet | show |
| -1 |
| Salvation-0.9913 | Salvation | show |
| -1 |
| Salvation-0.9913 | Salvation::CLI | show |
| -1 |
| Salvation-0.9913 | Salvation::System | show |
| -1 |
| Salvation-0.9913 | Salvation::Stuff | show |
| -1 |
| Salvation-0.9913 | Salvation::SharedStorage | show |
| -1 |
| Salvation-0.9913 | Salvation::Service | show |
| -1 |
| Salvation-0.9913 | Salvation::Roles::SystemReference | show |
| -1 |
| Salvation-0.9913 | Salvation::Roles::ServiceState | show |
| -1 |
| Salvation-0.9913 | Salvation::Roles::AppArgs | show |
| -1 |
| Salvation-0.9913 | Salvation::Roles::DataSet | show |
| -1 |
| Salvation-0.9913 | Salvation::Roles::SharedStorage | show |
| -1 |
| Salvation-0.9913 | Salvation::Roles::ServiceReference | show |
| -1 |
| Salvation-0.9913 | Salvation::Service::Model | show |
| -1 |
| Salvation-0.9913 | Salvation::Service::Intent | show |
| -1 |
| Salvation-0.9913 | Salvation::Service::DataSet | show |
| -1 |
| Salvation-0.9913 | Salvation::Service::OutputProcessor | show |
| -1 |
| Salvation-0.9913 | Salvation::Service::Controller | show |
| -1 |
| Salvation-0.9913 | Salvation::Service::Hook | show |
| -1 |
| Salvation-0.9913 | Salvation::Service::State | show |
| -1 |
| Salvation-0.9913 | Salvation::Service::View | show |
| -1 |
| Salvation-0.9913 | Salvation::Service::View::Stack | show |
| -1 |
| Salvation-0.9913 | Salvation::Service::View::SimpleCache | show |
| -1 |
| Salvation-0.9913 | Salvation::Service::View::Stack::Frame | show |
| -1 |
| Salvation-0.9913 | Salvation::Service::View::Stack::Parser | show |
| -1 |
| Salvation-0.9913 | Salvation::Service::View::Stack::Frame::List | show |
| -1 |
| Salvation-0.9913 | Salvation::Service::View::Stack::Convert::To::XML | show |
| -1 |
| Salvation-AnyNotify-0.01 | Salvation::AnyNotify::Plugin::Config | show |
| method get( Str{1,} key ) {
my $cached_key = "cacheddata:${key}";
return $self -> { $cached_key } if exists $self -> { $cached_key };
my $data = $self -> data();
foreach my $part ( split( /\./, $key ) ) {
if( Salvatio... |
| Salvation-AnyNotify-0.01 | Salvation::AnyNotify::Plugin::Bus | show |
| method notify( Str{1,} channel, Str{1,} data ) {
my $core = $self -> core();
my $bus = $core -> config() -> get( 'bus' );
return $core -> $bus() -> bus_notify( $channel, $data );
}
1 |
| Salvation-AnyNotify-Plugin-Daemon-0.02 | Salvation::AnyNotify::Plugin::Daemon | show |
| method start() {
$self -> { 'queue' } = [];
}
method enqueue( CodeRef|Str code ) {
push( @{ $self -> { 'queue' } }, $code );
return;
}
method run() {
my $daemon_meta = $self -> daemon_meta();
Salvation::DaemonDecl::Back... |
| Salvation-AnyNotify-Plugin-Graphite-0.03 | Salvation::AnyNotify::Plugin::Graphite | show |
| method graphite_ttl() {
return (
$self -> core() -> config() -> get( 'graphite.connection_ttl' )
// $self -> default_graphite_ttl()
);
}
method start() {
$self -> { 'monitor' } = [];
}
method monitor( Str{1,}... |
| Salvation-AnyNotify-Plugin-Graphite-0.03 | Salvation::AnyNotify::Plugin::Graphite::Monitor::Discontinuity | show |
| method add(
Str{1,}|ArrayRef[Str{1,}]{1,} :target!, Num :step_threshold,
Str{1,} :from, Str{1,} :to, Int :memory, Num :avg_threshold,
Num :stddev_threshold, Num :skew_threshold, Num :z_threshold
) {
my $core = $self -> core();
my %... |
| Salvation-AnyNotify-Plugin-Monitor-0.01 | Salvation::AnyNotify::Plugin::Monitor | show |
| method start() {
my $core = $self -> core();
my $monitor = $core -> config() -> get( 'monitor' );
Salvation::TC -> assert( $monitor, 'HashRef[ArrayRef[HashRef|ArrayRef]]' );
my $daemon = $core -> daemon();
$daemon -&... |
| Salvation-AnyNotify-Plugin-Server-0.01 | Salvation::AnyNotify::Plugin::Server | show |
| method bus_notify( Str{1,} channel, Str{1,} data ) {
Salvation::DaemonDecl::Backend -> write_to(
$self -> core() -> daemon() -> daemon_meta(),
$self -> pid(),
pack( 'N', length( $channel ) )
. $channel
... |
| Salvation-DaemonDecl-0.03 | Salvation::DaemonDecl::Backend | show |
| method add_worker( HashRef meta, HashRef(
Str :name!, CodeRef :main!, Int :max_instances!, CodeRef :log,
Salvation::DaemonDecl::Transports :transport, CodeRef :reap, CodeRef :wrapper
) descr ) {
if( exists $meta -> { 'workers' } -> { $d... |
| Salvation-MacroProcessor-0.93 | Salvation::MacroProcessor | show |
| -1 |
| Salvation-MacroProcessor-0.93 | Salvation::MacroProcessor::Connector | show |
| -1 |
| Salvation-MacroProcessor-0.93 | Salvation::MacroProcessor::Hooks | show |
| -1 |
| Salvation-MacroProcessor-0.93 | Salvation::MacroProcessor::MethodDescription | show |
| -1 |
| Salvation-MacroProcessor-0.93 | Salvation::MacroProcessor::Role | show |
| -1 |
| Salvation-MacroProcessor-0.93 | Salvation::MacroProcessor::Field | show |
| -1 |
| Salvation-MacroProcessor-0.93 | Salvation::MacroProcessor::Spec | show |
| -1 |
| Salvation-MacroProcessor-0.93 | Salvation::MacroProcessor::Iterator | show |
| -1 |
| Salvation-MacroProcessor-0.93 | Salvation::MacroProcessor::ForRoles | show |
| -1 |
| Salvation-MacroProcessor-0.93 | Salvation::MacroProcessor::Iterator::Compliance | show |
| -1 |
| Salvation-MacroProcessor-0.93 | Salvation::MacroProcessor::Meta::Role | show |
| -1 |
| Salvation-PluginCore-0.01 | Salvation::PluginCore | show |
| method load_plugin( Str{1,} :infix!, Str{1,} :base_name! ) {
$base_name = camelize( $base_name );
foreach my $class ( @{ $self -> linearized_isa() } ) {
my $base_class = "${class}::${infix}";
my $plugin = "${base_class}::${ba... |
| Salvation-PluginCore-0.01 | Salvation::PluginCore::Object | show |
| method new() {
return bless( {}, ( ref( $self ) || $self ) );
}
method lazy( Str name ) {
return $self -> { $name } if exists $self -> { $name };
my $builder = "build_${name}";
return $self -> { $name } = $self -> $builder... |
| Salvation-PluginCore-0.01 | Salvation::PluginCore::Plugin | show |
| method new( Salvation::PluginCore :core!, Str{1,} :base_name! ) {
$self = $self -> SUPER::new();
$self -> { 'core' } = $core;
$self -> { 'base_name' } = $base_name;
$self -> start();
return $self;
}
method load_plugin( ... |
| Schedule-DRMAAc-0.81 | Schedule::DRMAAc | show |
| %EXPORT_TAGS = ( all => [ @EXPORT_OK ] ) |
| Schedule-LongSteps-0.023 | Schedule::LongSteps::Storage | show |
| __PACKAGE__->meta()->make_immutable() |
| Schedule-LongSteps-0.023 | Schedule::LongSteps::Storage::DynamoDB | show |
| __PACKAGE__->meta()->make_immutable() |
| Set-Equivalence-0.003 | Types::Set | show |
| Set -> has_coercion |
| Set-Equivalence-0.003 | Set::Equivalence | show |
| set -> is_null |
| 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 | QT | show |
| $CHAPTER_ALL = 'all' |
| 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" ) |
| 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' |
| State-Machine-0.07 | State::Machine | show |
| method next {
my $state = $self->state;
my $next = shift // $state->next;
if ($state && !$next) {
if ($state->transitions->keys->count == 1) {
$next = $state->transitions->keys->get(0);
}
... |
| State-Machine-0.07 | State::Machine::Failure | show |
| method _build_message {
"An unexpected failure has occurred"
}
1 |
| State-Machine-0.07 | State::Machine::State | show |
| method add_transition {
my $trans = pop;
my $name = shift;
if ($trans->isa('State::Machine::Transition')) {
$name //= $trans->name;
$self->transitions->set($name => $trans);
return $trans;
}
St... |
| State-Machine-0.07 | State::Machine::Transition | show |
| method execute {
return if !$self->executable;
my @schedules = (
$self->hooks->get('before'),
$self->hooks->get('during'),
$self->hooks->get('after'),
);
for my $schedule (@schedules) {
... |
| State-Machine-0.07 | State::Machine::Failure::Transition::Missing | show |
| method _build_message {
"Transition missing."
}
1 |
| State-Machine-0.07 | State::Machine::Failure::Transition::Unknown | show |
| method _build_message {
"Transition unknown."
}
1 |
| State-Machine-0.07 | State::Machine::Failure::Transition::Hook | show |
| method _build_message {
"Transition hooking failure."
}
1 |
| State-Machine-0.07 | State::Machine::Failure::Transition::Execution | show |
| method _build_message {
"Transition execution failure."
}
1 |
| Storm-0.240 | 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.240 | 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.12 | 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.12 | 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.12 | String::Multibyte::Bytes | show |
| +{
charset => 'bytes',
regexp => '[\x00-\xFF]',
nextchar =>
sub {
my $c = unpack('C', shift);
$c == 0xFF ? undef : pack('C', 1+$c);
},
cmpchar => sub { $_[0] cmp $_[1] },
} |
| String-Multibyte-1.12 | 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.12 | 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.12 | 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.12 | String::Multibyte::Unicode | show |
| +{
charset => 'Unicode',
regexp => qr/./s,
nextchar => sub { pack 'U', 1 + unpack('U', $_[0]) },
cmpchar => sub { $_[0] cmp $_[1] },
} |
| String-Multibyte-1.12 | 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.12 | 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.12 | 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.12 | 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.12 | 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.12 | 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.12 | String::Multibyte::Grapheme | show |
| +{
charset => 'Default Grapheme Cluster',
regexp => $Grapheme,
} |
| String-Multibyte-1.12 | 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.12 | 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.12 | 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.12 | 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... |
| Sub-Lazy-0.002 | Sub::Lazy | show |
| ENABLED or not ENABLED |
| Syntax-Collector-0.006 | 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::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-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-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.8 | 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.005 | TOBYINK::Pod::HTML::Helper | show |
| __FILE__ |
| Task-BenchmarkAnything-0.003 | Task::BenchmarkAnything | show |
| $Task::BenchmarkAnything::VERSION = '0.003' |
| Task-Bootstrap-Perl-CPAN-0.004 | Task::Bootstrap::Perl::CPAN | show |
| $Task::Bootstrap::Perl::CPAN::VERSION = '0.003' |
| Task-Bootstrap-Perl-CPAN-0.004 | Task::Bootstrap::Perl::CPAN | show |
| $Task::Bootstrap::Perl::CPAN::VERSION = '0.004' |
| Task-PerlFormance-0.010 | Task::PerlFormance | show |
| $Task::PerlFormance::VERSION = '0.010' |
| Task-Tapper-Hello-World-0.003 | Task::Tapper::Hello::World | show |
| $Task::Tapper::Hello::World::VERSION = '0.003' |
| Telugu-TGC-0.08 | Telugu::TGC | show |
| method TGC( Str $string ) {
if ( $string =~ $parser ) {
$/{String}->X();
}
return @result;
}
1 |
| Template-Lace-0.017 | TodoListApp | show |
| __PACKAGE__->run_if_script |
| Term-Colormap-0.19 | Term::Colormap::Brewer | show |
| add_mapping('ylorrd-9', [ 230, 229, 222, 215, 209, 202, 160, 124, 1, ]) |
| Term-Spinner-Color-0.06 | Term::Spinner::Color::AllFramesDemo | show |
| exit main(\@ARGV) |
| Test-DependentModules-0.27 | MyModule | show |
| $VERSION = 1 |
| Test-DependentModules-0.27 | MyModule | show |
| $VERSION = 1 |
| Test-DependentModules-0.27 | MyModule | show |
| $VERSION = 1 |
| Test-DependentModules-0.27 | MyModule | show |
| $VERSION = 1 |
| Test-DependentModules-0.27 | MyModule | show |
| $VERSION = 1 |
| Test-DependentModules-0.27 | MyModule | show |
| $VERSION = 1 |
| Test-DependentModules-0.27 | MyModule | show |
| $VERSION = 1 |
| Test-Instance-DNS-0.001 | Test::Instance::DNS::Server | show |
| Test::Instance::DNS::Server->_run_if_script |
| Test-Mountebank-0.001 | Test::Mountebank::Imposter | show |
| method stub() {
my $stub = Test::Mountebank::Stub->new(@_);
$self->add_stub($stub);
return $stub;
}
method as_hashref() {
croak "An imposter must have at least one stub" if $self->has_no_stubs;
return {
stubs =>... |
| Test-Mountebank-0.001 | Test::Mountebank::Client | show |
| method create_imposter(:$port = 4525, :$protocol = 'http') {
return Test::Mountebank::Imposter->new(port => $port, protocol => $protocol);
}
method mb_url() {
return $self->base_url . ":" . $self->port;
}
method is_available() {
... |
| Test-Mountebank-0.001 | Test::Mountebank::Stub | show |
| method predicate(@args) {
$self->add_predicate(Test::Mountebank::Predicate::Equals->new(@args));
return $self;
}
method response(@args) {
$self->add_response(Test::Mountebank::Response::Is->new(@args));
return $self;
}
method... |
| Test-Mountebank-0.001 | Test::Mountebank::Response::Is | show |
| method as_hashref() {
my $hashref = ();
$hashref->{body} = $self->body if $self->body;
$hashref->{statusCode} = $self->status_code if $self->status_code;
if ($self->headers) {
my %headers = $self->headers-&g... |
| Test-PostgreSQL-1.27 | Test::PostgreSQL | show |
| method BUILD($) {
try { $self->pg_ctl or $self->postmaster } catch { die $_ };
if (defined $self->uid and $self->uid == 0) {
die "uid() must be set to a non-root user id.";
}
if (not defined($self->uid) and $self-&... |
| 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) ;... |
| 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 );
... |
| Tilt-Email-BlueHornet-0.001 | Tilt::Email::BlueHornet | show |
| method _call($data) {
my $xml_data = {
authentication => {
api_key => $self->api_key,
shared_secret => $self->api_secret,
response_type => 'xml',
no_halt => 0
},
data => {
met... |
| Time-C-0.024 | Time::P | show |
| fun strptime ($str, $fmt, :$locale = 'C', :$strict = 1, :$struct = {}) {
my %parse = ();
my @res = _compile_fmt($fmt, locale => $locale);
croak "Could not match '%s' using '%s'.", $str, $fmt if not @res;
@res = (qr/^/, @res, qr/$/) i... |
| Time-C-0.024 | Time::R | show |
| method new ($c: $start, :$end = undef, :$years = 0, :$months = 0, :$weeks = 0, :$days = 0, :$hours = 0, :$minutes = 0, :$seconds = 0) {
bless({
start => $start,
end => $end,
years => $years,
months =&g... |
| Time-C-0.024 | Time::C | show |
| fun _get_tz ($offset) {
return 'UTC' unless $offset;
return $tz_offset{$offset} if defined $tz_offset{$offset};
my $min = $offset % 60;
my $hour = int $offset / 60;
my $sign = '+';
if ($hour < 0) { $sign = '-'; $hour = -$hour;... |
| Time-C-0.024 | Time::F | show |
| fun strftime ($t, $fmt, :$locale = 'C') {
my $str = '';
my $pos = 0;
while (defined(my $tok = get_fmt_tok($fmt, $pos))) {
if (exists $formatter{$tok}) {
$str .= $formatter{$tok}->($t, $locale) // '';
} elsif ($to... |
| Time-C-0.024 | Time::D | show |
| method new ($c: $base, $comp = $base) {
bless { base => $base, comp => $comp }, $c;
}
method _setter ($d: $key, $new) {
return sub {
$d->{$key} = $_[0];
return $d if defined $new;
return $_[0];
};
}
method _c... |
| Time-C-0.024 | Time::C::Util | show |
| fun get_fmt_tok ($fmt, $pos) {
return undef if $pos >= length $fmt;
my $tok_len = substr($fmt, $pos, 1) eq '%' ? 2 : 1;
my $tok = substr $fmt, $pos, $tok_len;
while (($tok eq '%O') or ($tok eq '%E') or ($tok eq '%-')) {
$tok ... |
| Tk-Pod-0.9943 | Tk::Pod::FindPods | show |
| print Data::Dumper->Dumpxs([Tk::Pod::FindPods->new->pod_find(-categorized => 0, -usecache => 0)],[]) |
| Try-Tiny-Tiny-0.002 | Try::Tiny::Tiny | show |
| $effective |
| Types-UUID-0.004 | Types::UUID | show |
| $type->coercion->freeze |
| UR-0.47 | UR::BoolExpr | show |
| *get_normalized_rule_equivalent = \&normalize |
| UR-0.47 | 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 ... |
| 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... |
| Util-Underscore-v1.4.2 | package | show |
| $blow_up->() |
| 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() |
| Vim-X-1.3.0 | MyMooVim | show |
| vim_func 'PostfixToggle',
range => 1,
sub {
},
1 |
| VoiceXML-Client-1.01 | VoiceXML::Client::DeviceHandle | show |
| %Defaults = (
'timeout' => 6,
'numrepeat' => 3,
'device' => 'DIALUP_LINE',
'tempdir' => '/tmp',
'autostop' => 1,
) |
| VoiceXML-Client-1.01 | VoiceXML::Client::Engine | show |
| Execute the choice's goto or throw, leaving the FIA.
// The grammar belongs to another form (or menu).
Transition to that form (or menu), carrying the utterance
to the other form (or menu)'s FIA.
}
// Process an utterance... |
| 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.39 | WWW::Google::Contacts::InternalTypes | show |
| coerce YomiStr, from HashRef, via {
$_->{content};
} |
| WWW-Google-Contacts-0.39 | WWW::Google::Contacts::Types | show |
| coerce Photo, from HashRef, via {
require WWW::Google::Contacts::Photo;
WWW::Google::Contacts::Photo->new($_)
} |
| WWW-Hashbang-Pastebin-0.004 | WWW::Hashbang::Pastebin | show |
| true |
| WWW-Kickstarter-v1.14.0 | WWW::Kickstarter::HttpClient | show |
| die "Place holder for documentation. Not an actual module" |
| WWW-Kickstarter-v1.14.0 | WWW::Kickstarter::JsonParser | show |
| die "Place holder for documentation. Not an actual module" |
| 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::Change | show |
| $VERSION = sprintf ( "%d.%02d", $REVISION =~ /(\d+).(\d+)/ ) |
| 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-ORCID-0.0402 | WWW::ORCID::API::v2_0 | show |
| __PACKAGE__->install_helper_methods |
| WWW-ORCID-0.0402 | WWW::ORCID::API::v2_0_public | show |
| __PACKAGE__->install_helper_methods |
| WWW-Phanfare-Class-0.03 | WWW::Phanfare::Class::Section | show |
| with 'WWW::Phanfare::Class::Role::Attributes' |
| WWW-Phanfare-Class-0.03 | WWW::Phanfare::Class::Image | show |
| with 'WWW::Phanfare::Class::Role::Attributes' |
| 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::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::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::Album | 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::Menu::Item | show |
| WWW-Restaurant-Menu-0.11 | WWW::Restaurant::DE::Munich::Edison::Menu::Lunch | show |
| WWW-RiotGames-LeagueOfLegends-0.0001 | WWW::RiotGames::LeagueOfLegends | show |
| method champion_mastery( Int :$summoner_id, Int :$champion_id = 0, Str :$type = 'champion-masteries' ) {
my $url = $champion_id ?
sprintf '%s/lol/champion-mastery/v%d/champion-masteries/by-summoner/%d/by-champion/%d', $self->api_url, 3, $summone... |
| WWW-SFDC-0.37 | WWW::SFDC::Apex | show |
| method executeAnonymous ($code, :$debug = 1) {
my $callResult = $self->_call(
'executeAnonymous',
SOAP::Data->name(string => $code),
(
$debug
? SOAP::Header->name('DebuggingHeader' => \SOAP::Data->name(
... |
| WWW-SFDC-0.37 | WWW::SFDC::Metadata | show |
| method listMetadata (@_) {
INFO "Listing Metadata...\t";
my @result;
my @queryData = map {SOAP::Data->new(name => "queries", value => $_)} @_;
while (my @items = splice @queryData, 0, 3) {
push @result, $$_{fileName} for @{$self-&g... |
| WWW-SFDC-0.37 | WWW::SFDC::Partner | show |
| method _prepareSObjects (@_) {
TRACE "objects for operation", Dumper \@_;
return map {
my $obj = $_;
my @type;
if ($obj->{type}) {
@type = SOAP::Data->name('type' => $obj->{type});
delete $obj->{type}... |
| WWW-SFDC-0.37 | WWW::SFDC::Manifest | show |
| method _splitLine ($line) {
$line =~ s".*src/"";
$line =~ s/[\n\r]//g;
$line =~ s"\\"/"g;
my %result = (extension => "");
($result{type}) = $line =~ m"^(\w+)/" or LOGDIE "Line $line doesn't have a type.";
$result{folder} = $1 if ... |
| WWW-SFDC-0.37 | WWW::SFDC::Role::CRUD | show |
| method _queryMore ($locator) {
return $self->_call(
'queryMore',
SOAP::Data->name(queryLocator => $locator),
)->result;
}
method _getQueryResults ($request) {
TRACE Dumper $request;
return ref $request->{records} eq 'ARRAY'... |
| 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.250 | WebDyne::Constant | show |
| $_=\%Constant |
| WebDyne-1.250 | WebDyne::Install::Constant | show |
| $_=\%Constant |
| WebDyne-1.250 | WebDyne::Install::Apache::Constant | show |
| $_=\%Constant |
| WebDyne-1.250 | 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-Algolia-0.1002 | WebService::Algolia | show |
| method BUILD(...) {
$self->ua->default_header('X-Algolia-Application-Id' => $self->application_id);
$self->ua->default_header('X-Algolia-API-Key' => $self->api_key);
}
method get_indexes {
return $self->get('/indexe... |
| WebService-Auth0-0.002 | WebService::Auth0::Management::UserBlocks | show |
| with 'WebService::Auth0::Management::Role::Search',
'WebService::Auth0::Management::Role::All',
'WebService::Auth0::Management::Role::Delete',
'WebService::Auth0::Management::Role::Get',
'WebService::Auth0::Management::Role::Update',
sub path_suf... |
| WebService-Auth0-0.002 | WebService::Auth0::Management::Jobs | show |
| with 'WebService::Auth0::Management::Role::Get',
sub path_suffix { 'jobs' }
sub errors {
my ($self, $job_id) = @_;
return $self->GET($self->uri_for($job_id, 'errors'));
}
sub user_imports {
my ($self, $params) = @_;
return $self->POST_... |
| WebService-Coinbase-0.0200 | WebService::Coinbase | show |
| method get_accounts { $self->get('/accounts') }
method get_account($id) { $self->get("/accounts/$id") }
method create_account(HashRef $data) {
return $self->post("/accounts", { account => $data });
}
method modify_account($id, HashRef $... |
| WebService-ConstructorIO-0.04 | WebService::ConstructorIO | show |
| method BUILD(...) {
$self->ua->default_headers->authorization_basic($self->api_token);
$self->ua->ssl_opts( verify_hostname => 0 );
}
method verify() {
my $response = $self->get("/v1/verify?autocomplete_key=" . $self->au... |
| WebService-Europeana-0.0.3 | WebService::Europeana | show |
| method search(Str :$query, Str :$profile = "standard", Int :$rows = 12, Int :$start = 1, Str :$reusability, Str|ArrayRef :$qf ) {
my $ua = LWP::UserAgent->new();
my $query_string = undef;
my $response = undef;
my $json_result = undef;... |
| WebService-FaucetBOX-0.01 | WebService::FaucetBOX | show |
| method send($to, $amount, :$referral = 'false') {
return $self->post("/send", {
to => $to,
amount => $amount,
referral => $referral
});
}
method getBalance {
return $self->post( "/balance" );
}
method getCurren... |
| WebService-Freshservice-0.004 | WebService::Freshservice | show |
| method agent(...) {
return $self->_user(@_);
}
method agents(...) {
return $self->_search(@_);
}
1 |
| WebService-Freshservice-0.004 | WebService::Freshservice::API | show |
| method _build__ua {
my $ua = LWP::UserAgent->new();
$ua->agent('WebService-Freshservice');
$ua->timeout(60);
$ua->env_proxy;
$ua->default_headers->push_header( 'Content-Type' => "application/json" );
$ua->default_heade... |
| WebService-Freshservice-0.004 | WebService::Freshservice::Agent | show |
| method _build__raw {
return $self->api->get_api( "agents/".$self->id.".json" );
}
method _build_user {
my $caller = substr((caller 1)[3],32);
return $self->_raw->{agent}{user}{$caller};
}
method _build_user_override {
my $caller =... |
| WebService-Freshservice-0.004 | WebService::Freshservice::User | show |
| method _build_custom_field {
my $fields = { };
while (my ( $key, $value ) = each %{ $self->_raw->{user}{custom_field} } ) {
$fields->{$key} = WebService::Freshservice::User::CustomField->new(
id => $self->id,
api... |
| WebService-Freshservice-0.004 | WebService::Freshservice::User::CustomField | show |
| method update_custom_field {
my $data->{user}{custom_field}{$self->field} = $self->value;
$self->api->put_api( "itil/requesters/".$self->id.".json", $data);
return 1;
}
method TO_JSON {
return $self->value;
}
1 |
| WebService-Gitter-2.2.0 | WebService::Gitter | show |
| method get_me() {
return $self->get( "/user/me?access_token=" . $self->api_key );
}
method list_groups() {
return $self->get( "/groups?access_token=" . $self->api_key );
}
method rooms_under_group($group_id) {
return $self->... |
| WebService-Google-Language-0.14 | WebService::Google::Language | show |
| $VERSION = eval $VERSION |
| WebService-HabitRPG-0.30 | WebService::HabitRPG | show |
| method _decode_json($string) {
warn "Decoding JSON: $string" if $DEBUG;
$self->_last_json($string);
my $result = $json->decode( $string );
if ($DEBUG) {
warn "JSON decoded to: ", Dumper($result), "\n";
}
... |
| WebService-Lob-0.0107 | WebService::Lob | show |
| method BUILD(...) {
$self->ua->credentials('api.lob.com:443', '', $self->api_key, '');
}
method get_states {
my $result = $self->get($self->states_uri);
return $result->{data} if $result;
}
method get_countries {
my $re... |
| WebService-Pixabay-2.2.3 | WebService::Pixabay | show |
| method image_search(
: $q = "yellow flower",
: $lang = "en",
: $id = "",
: $response_group = "image_details",
: $image_type = "all",
: $orientation = "all",
: $category = "",
... |
| WebService-SOS-0.01 | WebService::SOS::Capabilities | show |
| finalize_class() |
| WebService-SOS-0.01 | WebService::SOS::Observations | show |
| finalize_class() |
| 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::Capabilities::Offering | 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::SensorDescription::Classifiers | show |
| finalize_class() |
| WebService-SOS-0.01 | WebService::SOS::SensorDescription::Identifiers | show |
| finalize_class() |
| WebService-SendGrid-1.03 | 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.03 | 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.03 | 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 != 100;
my $content = ${ decode_json $res->content }[0];
... |
| WebService-SiftScience-0.0100 | WebService::SiftScience | show |
| method get_score (Str $user_id) {
return $self->get($self->_score_uri($user_id) .
'?api_key=' . $self->api_key);
}
method create_event (Str $user_id, Str $type, Maybe[HashRef] $data = {}) {
return $self->post($self->events_... |
| 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-SmartyStreets-0.0105 | WebService::SmartyStreets | show |
| method verify_address(
Str :$street!,
Str :$street2 = '',
Str :$city!,
Str :$state!,
Str :$zipcode = '',
Int :$candidates = 2
) {
my $results = $self->post($self->base_url, [{
street => $street,
str... |
| WebService-Snapcard-0.0001 | WebService::Snapcard | show |
| method get_merchant_balance { $self->get('/merchant/balance') }
method get_invoices { $self->get('/invoices') }
1 |
| WebService-Spotify-1.003 | WebService::Spotify | show |
| method get ($method, %args) {
my $uri = $self->_uri( $method, %args );
my $headers = $self->_auth_headers;
my $response = $self->user_agent->get( $uri->as_string, %$headers );
$self->_log("GET", $uri->as_string);
$s... |
| WebService-Spotify-1.003 | WebService::Spotify::OAuth2 | show |
| method get_cached_token {
my $token_info;
if ($self->cache_path) {
if (my $fh = IO::File->new('< ' . $self->cache_path)) {
local $/;
$token_info = from_json( <$fh> );
$fh->close;
}
$token_info =... |
| WebService-Strava-0.06 | WebService::Strava | show |
| method activity($id) {
return WebService::Strava::Athlete::Activity->new(id =>$id, auth => $self->auth);
}
method list_activities(:$activities = 25, :$page = 1, :$before?, :$after?) {
my $url = "/athlete/activities?per_page=$activities&p... |
| WebService-Strava-0.06 | WebService::Strava::Segment | show |
| method leaderboard(:$activities = 25, :$page = 1, :$gender?, :$age_group?, :$weight_class?, :$following?, :$club?, :$date_range?, ) {
my $url = "/segments/$self->{id}/leaderboard?per_page=$activities&page=$page";
$url .= "&age_group=$age_group" if ... |
| WebService-Strava-0.06 | WebService::Strava::Auth | show |
| method setup() {
if (! $self->config->{auth}{client_id} ) {
$self->config->{auth}{client_id} = $self->prompt("Paste enter your client_id");
}
if (! $self->config->{auth}{client_secret} ) {
$self->config->{auth}{... |
| WebService-Strava-0.06 | WebService::Strava::Athlete::Segment_Effort | show |
| method _instantiate($type, $key, $data) {
$self->{$key} = "WebService::Strava::$type"->new(auth => $self->auth, id => $data->{id}, _build => 0);
return;
}
method retrieve() {
$self->_build_effort();
}
1 |
| WebService-Strava-0.06 | WebService::Strava::Athlete::Activity | show |
| method _instantiate($type, $key, $data) {
if (ref($data) eq "ARRAY") {
my $index = 0;
foreach my $item (@{$data}) {
@{$data}[$index] = "WebService::Strava::$type"->new(auth => $self->auth, id => $item->{id}, _build => 0);... |
| WebService-Strava-0.06 | WebService::Strava::Athlete::Gear | show |
| method _build_gear() {
my $gear = $self->auth->get_api("/gear/$self->{id}");
foreach my $key (keys %{ $gear }) {
$self->{$key} = $gear->{$key};
}
return;
}
method retrieve() {
$self->_build_gear();
}
1 |
| WebService-Stripe-1.0300 | WebService::Stripe | show |
| method get_bitcoin_receivers(HashRef :$query, :$headers) {
return $self->get( "/v1/bitcoin/receivers", $query, headers => $headers );
}
method create_bitcoin_receiver(HashRef $data, :$headers) {
return $self->post( "/v1/bitcoin/receivers... |
| 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-EnumPrinters-0.01 | Win32::EnumPrinters | show |
| %EXPORT_TAGS = (
'dmicmethod' => [
'DMICMMETHOD_NONE',
'DMICMMETHOD_SYSTEM',
'DMICMMETHOD_DRIVER',
... |
| Win32-Fmode-1.0.6 | Win32::Fmode | show |
| print "All tests passed" |
| Wizard-LDAP-0.1008 | Wizard::LDAP::Config | show |
| $Wizard::LDAP::Config::config = {
'ldap-prefs-file' => '/etc/Wizard-LDAP/prefs'
} |
| WordNet-Extend-1.000 | WordNet::Extend | show |
| $VERSION = '1.000' |
| Wx-Demo-0.22 | Wx::DemoModules::wxPasswordEntryDialog | show |
| defined &Wx::PasswordEntryDialog::new |
| Wx-Demo-0.22 | Wx::DemoModules::wxPropertyGrid | show |
| eval { return Wx::_wx_optmod_propgrid(); } |
| Wx-Demo-0.22 | Wx::DemoModules::wxFontPickerCtrl | show |
| defined &Wx::FontPickerCtrl::new ? 1 : 0 |
| Wx-Demo-0.22 | Wx::DemoModules::wxColourPickerCtrl | show |
| defined &Wx::ColourPickerCtrl::new ? 1 : 0 |
| Wx-Demo-0.22 | Wx::DemoModules::wxWebView | show |
| eval { return Wx::_wx_optmod_webview(); } |
| Wx-Demo-0.22 | Wx::DemoModules::wxRibbonControl | show |
| eval { return Wx::_wx_optmod_ribbon(); } |
| Wx-Demo-0.22 | Wx::DemoModules::wxOverlay | show |
| ( $@ ) ? 0 : 1 |
| Wx-Demo-0.22 | Wx::DemoModules::wxAboutDialog | show |
| defined &Wx::AboutBox ? 1 : 0 |
| Wx-Demo-0.22 | Wx::DemoModules::wxNativeTreeListCtrl | show |
| defined &Wx::PlTreeListItemComparator::new |
| Wx-Demo-0.22 | Wx::DemoModules::wxMediaCtrl | show |
| defined &Wx::MediaCtrl::new ? 1 : 0 |
| Wx-Demo-0.22 | Wx::DemoModules::wxRichTextCtrl | show |
| defined &Wx::RichTextCtrl::new ? 1 : 0 |
| Wx-Demo-0.22 | Wx::DemoModules::wxDirPickerCtrl | show |
| defined &Wx::DirPickerCtrl::new ? 1 : 0 |
| Wx-Demo-0.22 | Wx::DemoModules::wxFilePickerCtrl | show |
| defined &Wx::FilePickerCtrl::new ? 1 : 0 |
| Wx-Demo-0.22 | Wx::DemoModules::wxCollapsiblePane | show |
| defined &Wx::CollapsiblePane::new ? 1 : 0 |
| Wx-Demo-0.22 | Wx::DemoModules::wxSimpleHtmlListBox | show |
| defined &Wx::SimpleHtmlListBox::new ? 1 : 0 |
| Wx-Demo-0.22 | Wx::DemoModules::wxGraphicsContext | show |
| defined &Wx::GraphicsContext::Create |
| Wx-Demo-0.22 | Wx::DemoModules::wxSearchCtrl | show |
| defined &Wx::SearchCtrl::new ? 1 : 0 |
| X11-XCB-0.18 | _GenerateMyXS | show |
| () = $0 =~ (__PACKAGE__ . '.pm') ? generate() : 1 |
| X11-XRandR-0.01 | X11::XRandR::Types | show |
| declare XID, as PositiveOrZeroInt |
| XML-Lenient-1.0.1 | XML::Lenient | show |
| method within($full, $tag, $n = 1) {
if (!defined $tag or 0 == length($tag)) {
return '';
} else {
my @vtagged;
$self->_stripverbatim(\@vtagged, \$full);
my $left = $self->{tagl} . $tag . '[ ' . $self->{tag... |
| XML-LibXML-PrettyPrint-0.006 | XML::LibXML::PrettyPrint | show |
| TRUE |
| XML-LibXML-QuerySelector-0.005 | 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-Parser-ClinicalTrials-Study-1.20150818 | XML::Parser::ClinicalTrials::Study | show |
| finalize_class() |
| XML-Parser-ClinicalTrials-Study-1.20150818 | XML::Parser::ClinicalTrials::Study::Facility | show |
| finalize_class() |
| XML-Parser-ClinicalTrials-Study-1.20150818 | XML::Parser::ClinicalTrials::Study::Contact | show |
| finalize_class() |
| XML-Parser-ClinicalTrials-Study-1.20150818 | XML::Parser::ClinicalTrials::Study::Intervention | show |
| finalize_class() |
| XML-Parser-ClinicalTrials-Study-1.20150818 | XML::Parser::ClinicalTrials::Study::Location | show |
| finalize_class() |
| XML-Parser-ClinicalTrials-Study-1.20150818 | XML::Parser::ClinicalTrials::Study::Link | show |
| finalize_class() |
| XML-Parser-ClinicalTrials-Study-1.20150818 | XML::Parser::ClinicalTrials::Study::Design | show |
| finalize_class() |
| XML-Parser-ClinicalTrials-Study-1.20150818 | XML::Parser::ClinicalTrials::Study::MeSHTerm | show |
| finalize_class() |
| XML-SAX-Machines-0.46 | 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.006 | XT::Manager::API | show |
| __FILE__ |
| XTerm-Conf-0.11 | XTerm::Conf | show |
| xterm_conf(@ARGV) |
| XUL-Gui-0.63 | Web::Gui | show |
| __PACKAGE__ if 'first require' |
| XUL-Gui-0.63 | XUL::Gui | show |
| __PACKAGE__ if 'first require' |
| Xacobeo-0.15 | Xacobeo::Ex::ClipboardLoad | show |
| __PACKAGE__->load() |
| YAPC-1.01 | YAPC | show |
| $YAPC::Venue::VERSION = '1.01' |
| Zonemaster-GUI-1.0.11 | Zonemaster::GUI::Dancer::Export | show |
| true |
| Zonemaster-GUI-1.0.11 | Zonemaster::GUI::Dancer::Frontend | show |
| true |
| Zonemaster-GUI-1.0.11 | Zonemaster::GUI::Dancer::NoJsFrontend | show |
| true |
| anarch-0.04 | App::Anarch | show |
| $VERSION = '0.04' |
| constant-lexical-2.0003 | constant::lexical | show |
| eval($] < 5.011002 ? $old : $new) or die $@ |
| cvswebedit-v2.0b1 | CGI::Form | show |
| $VERSION |
| cvswebedit-v2.0b1 | CGI::BasePlus | show |
| $VERSION |
| 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::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::StatUtf8 | show |
| %StatsTableUtf8Long = (
'ст' => 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,
'�... |
| examples | HashEmp | show |
| timethese (100000,
{"Employee", '$x = $o->age',
"HashEmp" , '$x = $o1->age'
}
) |
| examples | File | show |
| print $obj->next_line() |
| jmx4perl-1.12 | JMX::Jmx4Perl::Agent::Jolokia::Verifier::PGPKey | show |
| $KEY = <<EOT |
| junk-0.004 | 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 =&... |
| mod_perl-2.0.10 | APR::Base64 | show |
| $ModPerl::Util::VERSION = 2.000010 |
| new.spirit-2.2.2 | CIPP | show |
| $VERSION = "0.00" |
| pcsc-perl-1.4.14 | Chipcard::PCSC | show |
| _LoadPCSCLibrary() |
| perl5i-v2.13.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.13.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::Id_factory | show |
| $VERSION=$VERSION |
| pop-0.07 | POP::POX_parser | show |
| $VERSION = $VERSION |
| pop-0.07 | POP::List | show |
| $VERSION = $VERSION |
| pop-0.07 | POP::Pid_factory | show |
| $VERSION = $VERSION |
| pop-0.07 | POP::Environment | show |
| $VERSION = $VERSION |
| pop-0.07 | POP::Lazy_object_hash | show |
| $VERSION = $VERSION |
| pop-0.07 | POP::Lazy_object | show |
| $VERSION = $VERSION |
| pop-0.07 | POP::Lazy_object_list | show |
| $VERSION = $VERSION |
| pop-0.07 | POP::Persistent | show |
| $VERSION = $VERSION |
| pop-0.07 | POP::Lid_factory | show |
| $VERSION=$VERSION |
| pop-0.07 | POP::Hash | show |
| $VERSION = $VERSION |
| qbit_xgettext-0.006 | QBit::Gettext::PO | show |
| TRUE |
| qbit_xgettext-0.006 | QBit::Gettext::Extract | show |
| qbit_xgettext-0.006 | QBit::Gettext::Extract::Lang | show |
| qbit_xgettext-0.006 | QBit::Gettext::Extract::Lang::Perl | show |
| qbit_xgettext-0.006 | QBit::Gettext::Extract::Lang::TT2 | show |
| qdbm-perl-1.8.14 | Curia | show |
| TRUE |
| qdbm-perl-1.8.14 | Villa | show |
| TRUE |
| qdbm-perl-1.8.14 | Depot | show |
| TRUE |
| sympatic-0.2 | Types::Fibo | show |
| declare Seed
=> as ArrayRef
=> where { @$_ == 2 } |
| 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.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;
return unless $up->{status};
delete $DATA->{sce... |
| 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-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::IndRangeVector | show |
| sub ranges { $_[0]{RANGES} } |
| AI-Genetic-0.05 | AI::Genetic::Individual | show |
| sub resetScore { $_[0]{CALCED} = 0 } |
| 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::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::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::IndListVector | show |
| sub lists { $_[0]{LISTS} } |
| 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-Buffalo-Buffalo-0.01 | Acme::Buffalo::Buffalo | show |
| sub buffalo { return 'buffalo'; } |
| Acme-Chef-1.03 | 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.03 | Acme::Chef::Ingredient | show |
| sub liquify {
my $self = shift;
$self->{type} = 'liquid';
return $self;
} |
| Acme-Chef-1.03 | 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-Cow-0.1 | Acme::Cow::DragonAndCow | show |
| sub as_string
{
my $self = shift;
return $self->SUPER::as_string($dragon_and_cow);
} |
| 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-HidamariSketch-0.05 | Acme::HidamariSketch::Apartment | show |
| sub knock {
my ($self, $knock_room) = @_;
if (!defined $knock_room) {
return undef;
}
for my $tenant (@{$self->{tenants}}) {
my $room_number = $tenant->{room_number}->{$self->{year}};
if (defined $roo... |
| Acme-Magic8Ball-1.3 | Acme::Magic8Ball | show |
| sub ask {
my $question = shift || return "You must ask a question!";
my @answers = @_;
unless (@answers) {
my $pos = tell DATA;
@answers = map { chomp; $_ } <DATA>;
seek DATA, $pos,0;
}
return $answers[r... |
| 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-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.07 | Acme::Umlautify | show |
| sub umlautify_latin {
shift @_ if ref $_[0] eq 'Acme::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::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::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::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-LUHN_XS-1.08 | Algorithm::LUHN_XS | show |
| sub _dump_map {
my %foo = valid_chars();
my ($k,$v);
print "$k => $v\n" while (($k, $v) = each %foo);
return 1;
} |
| 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-Build-1.85 | Alien::Foo1::ConfigData | show |
| sub feature {
my ($package, $key) = @_;
return $features->{$key} if exists $features->{$key};
my $info = $auto_features->{$key} or return 0;
my %info = %$info;
require Module::Build;
while (my ($type, $prereqs) = each %info) {
... |
| Alien-Build-1.85 | Alien::Foo2::ConfigData | show |
| sub feature {
my ($package, $key) = @_;
return $features->{$key} if exists $features->{$key};
my $info = $auto_features->{$key} or return 0;
my %info = %$info;
require Module::Build;
while (my ($type, $prereqs) = each %info) {
... |
| Alien-LIBSVM-0.003 | Alien::LIBSVM::Install::Files | show |
| sub deps { () } |
| Alien-LibMagic-0.002 | Alien::LibMagic::Install::Files | show |
| sub deps { () } |
| 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... |
| Alien-UDUNITS2-0.006 | Alien::UDUNITS2::Install::Files | show |
| sub deps { () } |
| Alien-Uninum-0.005 | Alien::Uninum::Install::Files | show |
| sub deps { () } |
| Alien-WFDB-0.004 | Alien::WFDB::Install::Files | show |
| sub deps { () } |
| 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::Schema | show |
| sub sqlmaker
{
my $self = shift;
my %p = validate( @_, { quote_identifiers =>
{ type => BOOLEAN,
default => $self->{quote_identifiers},
},
... |
| Alzabo-0.92 | Alzabo::ForeignKey | show |
| sub comment { $_[0]->{comment} } |
| Alzabo-0.92 | Alzabo::Index | show |
| sub table
{
my $self = shift;
return $self->{table};
} |
| Alzabo-0.92 | Alzabo::Table | 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::ChangeTracker | show |
| sub DESTROY
{
--$STACK;
@CHANGES = () unless $STACK;
} |
| Alzabo-0.92 | Alzabo::Column | show |
| sub comment { $_[0]->{comment} } |
| Alzabo-0.92 | Alzabo::ColumnDefinition | show |
| sub owner
{
my $self = shift;
return $self->{owner};
} |
| 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::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::Schema | show |
| sub _schema_file_type
{
return 'create';
} |
| Alzabo-0.92 | Alzabo::Create::ForeignKey | show |
| sub set_comment { $_[0]->{comment} = defined $_[1] ? $_[1] : '' } |
| 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::Table | show |
| sub former_name { $_[0]->{last_instantiated_name} } |
| Alzabo-0.92 | Alzabo::Create::Column | show |
| sub former_name { $_[0]->{last_instantiated_name} } |
| 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.12 | 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.12 | 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.12 | 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.31 | 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... |
| AnyEvent-SlackRTM-1.0 | AnyEvent::SlackRTM | show |
| sub close { shift->{conn}->close } |
| 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::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-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-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::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... |
| 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::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... |
| 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.03 | Apache2::Instrument::Time | show |
| sub report {
my ( $class, $r, $notes ) = @_;
my $e = tv_interval( $notes->{before}, $notes->{after} );
return { interval => $e };
} |
| Apache2-Instrument-0.03 | Apache2::Instrument::Strace | show |
| sub report {
my ( $class, $r, $notes ) = @_;
my $out = $notes->{out};
my %syscalls;
while ( <$out> ) {
if ( /([0-9\.]+)\s+([0-9.]+)\s+(\d+)\s+(\d+)\s+((\d+)\s+)?(\S+)/ ) {
my ( $time, $seconds, $usecs_call, $... |
| Apache2-Instrument-0.03 | 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+//;
... |
| 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-BatParser-0.011 | App::BatParser | show |
| sub parse {
my $self = shift;
my $text = shift;
if ( $^O eq 'MSWin32' ) {
$text =~ s/\^\n//msg;
}
else {
$text =~ s/\^\r\n//msg;
$text =~ s/\r\n/\n/msg;
}
if ( $text =~ $self->grammar ) {
r... |
| App-CharmKit-2.11 | docker | show |
| sub is_installed {
print("What's installed?\n");
} |
| App-Env-Login-0.01 | App::Env::Login | show |
| sub envs
{
my ( $opt ) = @_;
my %opt = ( Shell => $ENV{SHELL}, %$opt );
my $shell = ( splitpath( $opt{Shell} ) )[-1];
local %ENV = map { $_ => $ENV{$_} } grep { exists $ENV{$_} }qw[ HOME LOGNAME ];
return Shell::GetEnv->ne... |
| App-EvalServerAdvanced-0.024 | App::EvalServerAdvanced::Sandbox::Plugin::Perlbot | show |
| sub perl_wrap {
my ($class, $lang, $code) = @_;
my $qcode = quotemeta $code;
my $wrapper = 'use Data::Dumper;
local $Data::Dumper::Terse = 1;
local $Data::Dumper::Quotekeys = 0;
local $Data::Dumper::Indent = 0;
local $Data::Dump... |
| App-EvalServerAdvanced-REPL-0.004 | App::EvalServerAdvanced::REPL | show |
| sub start_repl {
my (@args) = @_;
my $loop = IO::Async::Loop->new();
my $term = Term::ReadLine->new("Erepl");
my $seq = 1;
my $connect_future = $loop->new_future();
$loop->connect(
addr => {
family => "ine... |
| App-Fetchware-1.016 | App::Fetchware | show |
| sub hook ($$) {
my ($sub_to_hook, $callback) = @_;
die <<EOD unless App::Fetchware->can($sub_to_hook);
override $sub_to_hook => $callback;
{
no warnings 'redefine';
clone($sub_to_hook => (from => 'App::... |
| App-GitGrepPerlStatement-0.05 | App::GitGrepPerlStatement | show |
| sub run {
my ($class, @argv) = @_;
my $word = (@argv)[0];
unless (defined $word) {
say "USAGE: git grep-per-statement <pattern token> <pathspec>";
exit 1;
}
my @files = split "\n", `git grep --name-only -... |
| App-Gitc-0.60 | App::Gitc::UserLookup | show |
| sub users {
return map { s{^user/}{}; $_ } git 'tag -l user/*';
} |
| App-Glacier-2.10 | App::Glacier | show |
| sub new {
my ($class, $argref) = shift;
my $self = $class->SUPER::new(
$argref,
optmap => {
'config-file|f=s' => 'config',
'account=s' => 'account',
'region=s' => 'region'
});
my $com = shift @{$self->argv}
or $se... |
| App-Glacier-2.10 | App::Glacier::DateTime | show |
| sub TO_JSON {
my $self = shift;
return $self->canned_format('standard');
} |
| App-MaMGal-1.6 | App::MaMGal::VideoIcon | show |
| sub img { unpack('u*', $uu_video) } |
| App-MaMGal-1.6 | App::MaMGal::DirIcon | show |
| sub img { unpack('u*', $uu_dir) } |
| App-RecordStream-4.0.25 | App::RecordStream::Test::Aggregator::ArrayHelper | show |
| sub array_agg_ok {
my ($aggr, $input, $expected, $desc) = @_;
$aggr = "App::RecordStream::Aggregator::$aggr"->new("x")
unless ref $aggr;
my $cookie = $aggr->initial();
$cookie = $aggr->combine($cookie, App::RecordStream:... |
| App-RunCron-0.08 | App::RunCron | show |
| sub _timestamp {
my @tm = gettimeofday;
my @dt = localtime $tm[0];
sprintf('[%04d-%02d-%02d %02d:%02d:%02d.%06.0f] ',
$dt[5] + 1900,
$dt[4] + 1,
$dt[3],
$dt[2],
$dt[1],
$dt[0],
$tm[1],
... |
| App-Sandy-0.23 | App::Sandy | show |
| sub command_map {
genome => 'App::Sandy::Command::Genome',
transcriptome => 'App::Sandy::Command::Transcriptome',
quality => 'App::Sandy::Command::Quality',
expression => 'App::Sandy::Command::Expression',
variation =&... |
| App-Sandy-0.23 | App::Sandy::InterlaceProcesses | show |
| sub _handle_signal {
my $self = shift;
return sub {
my $signame = shift;
unless ($self->signal_catched) {
$self->_add_signal($signame);
my $cnt = kill 'TERM' => @{ $self->foreign_pid };
}
};
} |
| App-Sandy-0.23 | App::Sandy::DB | show |
| sub _build_schema {
my $self = shift;
my $DB = 'db.sqlite3';
my @DB_PATH = (
file(__FILE__)->dir->parent->parent->parent->file('share', 'assets'),
file(__FILE__)->dir->parent->parent->file('auto', 'share', 'dist', 'App-S... |
| App-Sandy-0.23 | App::Sandy::Read | show |
| sub _randb {
my ($self, $base) = @_;
return $self->_not_base->{$base}[int(rand(3))] || $base;
} |
| App-Sandy-0.23 | App::Sandy::CLI | show |
| sub opt_spec {
'help|h',
'man|u'
} |
| App-Sandy-0.23 | App::Sandy::Simulator | show |
| sub run_simulation {
my $self = shift;
my $piece_table = $self->_piece_table;
my $number_of_reads = $self->_calculate_number_of_reads;
my $strand = $self->_strand;
my $seqid = $self->_seqid_raffle;
my $simulation = $self->argv->... |
| App-Sandy-0.23 | App::Sandy::BGZF | show |
| sub new_filehandle {
my ($class, $file, $level) = @_;
open my $fh, "<", undef;
tie *$fh, $class, $file, $level
or croak "Failed to tie filehandle: $!";
return $fh;
} |
| App-Sandy-0.23 | App::Sandy::WeightedRaffle | show |
| sub _cmp {
my ($range, $weight) = @_;
if ($range >= $weight->{down} && $range <= $weight->{up}) {
return 0;
}
elsif ($range > $weight->{down}) {
return 1;
} else {
return -1;
}
} |
| App-Sandy-0.23 | App::Sandy::Seq | show |
| sub gen_eof_marker {
my ($self, $file) = @_;
open my $fh, ">>" => $file
or croak "Cannot open '$file': $!";
binmode $fh;
my $eof_ref = $self->with_eof_marker;
print {$fh} $$eof_ref;
close $fh
or croak "Cannot write to '$file': $!... |
| App-Sandy-0.23 | App::Sandy::Quality | show |
| sub _poisson_dist {
my ($self, $quality_ref, $size, $countdown) = @_;
return $quality_ref if not $countdown;
my $phred_score = $self->_get_phred_score($self->_count_phred_score - $countdown);
my $part = int($size / $phred_score->{ratio}) + (... |
| App-Sandy-0.23 | App::Sandy::PieceTable | show |
| sub _piece_at {
my ($self, $pos) = @_;
state $comm = sub {
my ($pos, $piece) = @_;
if ($self->_is_pos_inside_range($pos, $piece->{pos}, $piece->{len})) {
return 0;
} elsif ($pos > $piece->{pos}) {
return 1;
} else {
retu... |
| App-Sandy-0.23 | App::Sandy::Command::Transcriptome | show |
| sub rm_opt {
'strand-bias',
'coverage',
'seqid-weight',
'genomic-variation'
} |
| App-Sandy-0.23 | App::Sandy::Command::Citation | show |
| sub execute {
print <<'EOP';
} |
| App-Sandy-0.23 | App::Sandy::Command::Expression | show |
| sub execute {
my ($self, $opts, $args) = @_;
my $report_ref = $self->make_report;
if (%$report_ref) {
my $t1 = Text::ASCIITable->new;
$t1->setCols('expression-matrix', 'source', 'provider', 'date');
for my $expression_matrix (sort key... |
| App-Sandy-0.23 | App::Sandy::Command::Version | show |
| sub execute {
pod2usage(-verbose => 99, -sections => ['NAME', 'VERSION', 'AUTHOR', 'COPYRIGHT AND LICENSE'], -exitval => 0);
} |
| App-Sandy-0.23 | App::Sandy::Command::Quality | show |
| sub execute {
my ($self, $opts, $args) = @_;
my $report_ref = $self->make_report;
if (%$report_ref) {
my $t1 = Text::ASCIITable->new;
$t1->setCols('quality profile', 'mean', 'stdd', 'error', 'type', 'source', 'provider', 'date');
for ... |
| App-Sandy-0.23 | App::Sandy::Command::Genome | show |
| sub rm_opt {
'strand-bias',
'number-of-reads',
'seqid-weight',
'expression-matrix'
} |
| App-Sandy-0.23 | App::Sandy::Command::Variation | show |
| sub execute {
my ($self, $opts, $args) = @_;
my $report_ref = $self->make_report;
if (%$report_ref) {
my $t1 = Text::ASCIITable->new;
$t1->setCols('structural variation', 'source', 'provider', 'date');
for my $structural_variation (so... |
| App-Sandy-0.23 | App::Sandy::Command::Variation::Add | show |
| sub execute {
my ($self, $opts, $args) = @_;
my $file = shift @$args;
my %default_opt = $self->_default_opt;
$self->fill_opts($opts, \%default_opt);
if ($file =~ /^.+\.vcf(\.gz)?$/) {
$opts->{'type'} = 'vcf';
}
$LOG_VERBOSE = $opts-&g... |
| App-Sandy-0.23 | App::Sandy::Command::Variation::Restore | show |
| sub execute {
my ($self, $opts, $args) = @_;
$LOG_VERBOSE = exists $opts->{verbose} ? $opts->{verbose} : 0;
log_msg ":: Restoring structural variation database to vendor state ...";
$self->restoredb;
log_msg ":: Done!";
} |
| App-Sandy-0.23 | App::Sandy::Command::Variation::Remove | show |
| sub execute {
my ($self, $opts, $args) = @_;
my $structural_variation = shift @$args;
$LOG_VERBOSE = exists $opts->{verbose} ? $opts->{verbose} : 0;
log_msg ":: Attempting to remove $structural_variation ...";
$self->deletedb($structural_v... |
| App-Sandy-0.23 | App::Sandy::Command::Variation::Dump | show |
| sub execute {
my ($self, $opts, $args) = @_;
my $variation = $self->retrievedb($args);
print "#seqid\tposition\tid\treference\talteration\tgenotype\n";
for my $id (sort keys %$variation) {
my $data = $variation->{$id};
for my $entry (@$dat... |
| App-Sandy-0.23 | App::Sandy::Command::Expression::Add | show |
| sub execute {
my ($self, $opts, $args) = @_;
my $file = shift @$args;
my %default_opt = $self->_default_opt;
$self->fill_opts($opts, \%default_opt);
$LOG_VERBOSE = $opts->{verbose};
log_msg ":: Inserting $opts->{'expression-matrix'} f... |
| App-Sandy-0.23 | App::Sandy::Command::Expression::Restore | show |
| sub execute {
my ($self, $opts, $args) = @_;
$LOG_VERBOSE = exists $opts->{verbose} ? $opts->{verbose} : 0;
log_msg ":: Restoring expression-matrix database to vendor state ...";
$self->restoredb;
log_msg ":: Done!";
} |
| App-Sandy-0.23 | App::Sandy::Command::Expression::Remove | show |
| sub execute {
my ($self, $opts, $args) = @_;
my $expression_matrix = shift @$args;
$LOG_VERBOSE = exists $opts->{verbose} ? $opts->{verbose} : 0;
log_msg ":: Attempting to remove $expression_matrix ...";
$self->deletedb($expression_matrix)... |
| App-Sandy-0.23 | App::Sandy::Command::Expression::Dump | show |
| sub execute {
my ($self, $opts, $args) = @_;
my $expression_matrix = shift @$args;
my $matrix = $self->retrievedb($expression_matrix);
print "#feature\tcount\n";
for my $feature (sort keys %$matrix) {
print "$feature\t$matrix->{$feature}\n"... |
| App-Sandy-0.23 | App::Sandy::Command::Quality::Add | show |
| sub execute {
my ($self, $opts, $args) = @_;
my $file = shift @$args;
my %default_opt = $self->_default_opt;
$self->fill_opts($opts, \%default_opt);
$LOG_VERBOSE = $opts->{verbose};
if ($file !~ /.+\.(fastq)(\.gz)?$/) {
$opts->{type... |
| App-Sandy-0.23 | App::Sandy::Command::Quality::Restore | show |
| sub execute {
my ($self, $opts, $args) = @_;
$LOG_VERBOSE = exists $opts->{verbose} ? $opts->{verbose} : 0;
log_msg ":: Restoring quality database to vendor state ...";
$self->restoredb;
log_msg ":: Done!";
} |
| App-Sandy-0.23 | App::Sandy::Command::Quality::Remove | show |
| sub execute {
my ($self, $opts, $args) = @_;
my $quality_profile = shift @$args;
$LOG_VERBOSE = exists $opts->{verbose} ? $opts->{verbose} : 0;
log_msg ":: Attempting to remove '$quality_profile' ...";
$self->deletedb($quality_profile);
l... |
| App-Sandy-0.23 | App::Sandy::Command::Quality::Dump | show |
| sub execute {
my ($self, $opts, $args) = @_;
my $quality_profile = shift @$args;
my ($matrix, $deepth, $partil) = $self->retrievedb($quality_profile);
for (my $line = 0; $line < $deepth; $line++) {
for (my $col = 0; $col < $partil; $col++... |
| App-Sandy-0.23 | App::Sandy::DB::Handle::Expression | show |
| sub make_report {
my $self = shift;
my $schema = App::Sandy::DB->schema;
my %report;
my $rs = $schema->resultset('ExpressionMatrix')->search(undef);
while (my $expression_matrix = $rs->next) {
my %hash = (
source => $expressio... |
| App-Sandy-0.23 | App::Sandy::DB::Handle::Quality | show |
| sub make_report {
my $self = shift;
my $schema = App::Sandy::DB->schema;
my %report = %{ &DEFAULT_PROFILE };
my $rs = $schema->resultset('QualityProfile')->search(undef);
while (my $quality = $rs->next) {
my %hash = (
'mean' ... |
| App-Sandy-0.23 | App::Sandy::DB::Handle::Variation | show |
| sub make_report {
my $self = shift;
my $schema = App::Sandy::DB->schema;
my %report;
my $rs = $schema->resultset('StructuralVariation')->search(undef);
while (my $structural_variation = $rs->next) {
my %hash = (
source => $str... |
| App-Sandy-0.23 | App::Sandy::Read::SingleEnd | show |
| sub gen_read {
my ($self, $ptable, $ptable_size, $read_size, $is_leader) = @_;
if ($ptable_size < $read_size) {
croak sprintf "ptable_size (%d) must be greater or equal to read_size (%d)"
=> $ptable_size, $read_size;
}
my ($read_ref, $att... |
| App-Sandy-0.23 | App::Sandy::Read::PairedEnd | show |
| sub gen_read {
my ($self, $ptable, $ptable_size, $read_size, $is_leader) = @_;
unless ($read_size <= $self->fragment_mean && $self->fragment_mean <= $ptable_size) {
croak sprintf
"read_size (%d) must be leseer or equal to fragment_mean... |
| App-Sandy-0.23 | App::Sandy::Seq::SingleEnd | show |
| sub sprint_seq {
my ($self, $id, $num, $seq_id, $seq_id_type, $ptable, $ptable_size, $is_leader) = @_;
my $read_size = $self->_get_read_size;
if ($read_size > $ptable_size) {
$read_size = $ptable_size;
}
my ($read_ref, $attr) = $self->g... |
| App-Sandy-0.23 | App::Sandy::Seq::PairedEnd | show |
| sub _sprint_seq {
my ($self, $read_ref, $read_size, $read_num, $attr, $is_leader) = @_;
if ($is_leader) {
my $error_a = $attr->{error1};
my $tlen = $attr->{end2} - $attr->{end1};
$self->_set_info(
'start' => $attr->... |
| App-Sandy-0.23 | App::Sandy::Role::IO | show |
| sub with_open_bam_w {
my ($self, $file, $level) = @_;
my $fh = App::Sandy::BGZF->new_filehandle($file, $level);
return $fh;
} |
| App-Sandy-0.23 | App::Sandy::Role::SeqID | show |
| sub with_std_seqid {
my ($self, $seqid) = @_;
croak "No seqid defined" if not defined $seqid;
$seqid =~ s/$SEQID_REGEX//;
$seqid =~ s/$MT_REGEX/M/;
return uc $seqid;
} |
| App-Sandy-0.23 | App::Sandy::Role::Digest | show |
| sub execute {
my ($self, $opts, $args) = @_;
my $fasta_file = shift @$args;
my %default_opt = $self->default_opt;
$self->fill_opts($opts, \%default_opt);
my $report = $self->_quality_profile_report;
my $entry = $report->{$opts->{'qu... |
| App-Sandy-0.23 | App::Sandy::Role::Counter | show |
| sub with_make_counter {
my ($self, $num, $picks) = @_;
return sub {
state $count_down = $num;
state $picks_left = $picks;
my $rc = 0;
my $rand = int(rand($count_down));
if ($rand < $picks_left) {
$rc = 1;
$picks_left--;
}
$cou... |
| App-Sandy-0.23 | App::Sandy::Role::ParseArgv | show |
| sub with_parser {
my ($self, $argv, @opt_spec) = @_;
my @argv = @{ $argv };
my %opts;
Getopt::Long::Configure('gnu_getopt');
GetOptionsFromArray(
\@argv,
\%opts,
@opt_spec
) or die "Error parsing command-line arguments\n";
return (\%opts, ... |
| App-Sandy-0.23 | App::Sandy::Role::BSearch | show |
| sub _bsearch {
my ($self, $key1, $base, $start, $end, $func) = @_;
if ($start > $end) {
return;
}
my $index = int(($start + $end) / 2);
my $key2 = $base->[$index];
my $rc = $func->($key1, $key2);
if ($rc > 0) {
return $self->... |
| App-Sandy-0.23 | App::Sandy::Role::RunTimeTemplate | show |
| sub with_compile_template {
my ($self, $template, $input_name, $sym_table) = @_;
croak "sym_table is not a hashref" unless ref $sym_table eq 'HASH';
$template =~ s/(?<!\\)[\$\@\#\&]/\\$&/g;
while (my ($sym, $variable) = each %$sym_table) {
$tem... |
| App-Sandy-0.23 | App::Sandy::Role::RNorm | show |
| sub with_random_half_normal {
my ($self, $mean, $stdd) = @_;
return abs(int(random_normal(1, $mean, $stdd)));
} |
| App-Sandy-0.23 | App::Sandy::Role::Statistic | show |
| sub with_stdd {
my ($self, $vet) = @_;
if (ref $vet ne 'ARRAY') {
croak "vet is not an array ref";
}
return sqrt $self->with_variance($vet);
} |
| App-Sandy-0.23 | App::Sandy::Role::Template::Sam | show |
| sub with_bam_align_template {
my ($self, $seqid_ref, $read_ref, $quality_ref, $read_flag, $read_size) = @_;
my $seqid_size = length($$seqid_ref) + 1;
my $packed_read = pack("H*",
$$read_ref =~ tr [=ACMGRSVTWYHKDBNacmgrsvtwyhkdbn\x00-\xff] [\x00-\x0... |
| App-Sandy-0.23 | App::Sandy::Role::Template::Fastq | show |
| sub with_fastq_template {
my ($self, $seqid_ref, $read_ref, $quality_ref) = @_;
my $fastq = "\@$$seqid_ref\n$$read_ref\n+\n$$quality_ref\n";
return \$fastq;
} |
| App-Sandy-0.23 | App::Sandy::CLI::Command | show |
| sub fill_opts {
my ($self, $opts, $default_opt) = @_;
if (ref $opts ne 'HASH' || ref $default_opt ne 'HASH') {
die '$opts and $default_opt need to be a hash reference';
}
for my $opt (keys %$default_opt) {
$opts->{$opt} = $default_opt->{$op... |
| App-Sandy-0.23 | App::Sandy::CLI::App | show |
| sub run {
my $self = shift;
my @argv = @{ $self->argv };
my %command_map = $self->command_map;
my %command_map_bultin = $self->command_map_bultin;
$self->_help_text unless scalar @argv;
if ($command_map_bultin{$argv[0]}) {
my $comman... |
| App-SimulateReads-0.16 | App::SimulateReads | show |
| sub command_map {
custom => 'App::SimulateReads::Command::Custom',
genome => 'App::SimulateReads::Command::Genome',
transcriptome => 'App::SimulateReads::Command::Transcriptome',
quality => 'App::SimulateReads::Command:... |
| App-SimulateReads-0.16 | App::SimulateReads::InterlaceProcesses | show |
| sub _handle_signal {
my $self = shift;
return sub {
my $signame = shift;
$self->_add_signal($signame);
my $cnt = kill 'TERM' => @{ $self->foreign_pid };
};
} |
| App-SimulateReads-0.16 | App::SimulateReads::DB | show |
| sub _build_schema {
my $self = shift;
my $DB = 'db.sqlite3';
my @DB_PATH = (
file(__FILE__)->dir->parent->parent->parent->file('share'),
file(__FILE__)->dir->parent->parent->file('auto', 'share', 'dist', 'App-SimulateRea... |
| App-SimulateReads-0.16 | App::SimulateReads::Read | show |
| sub _randb {
my ($self, $base) = @_;
return $self->_not_base->{$base}[int(rand(3))] || $base;
} |
| App-SimulateReads-0.16 | App::SimulateReads::CLI | show |
| sub opt_spec {
'help|h',
'man|M'
} |
| App-SimulateReads-0.16 | App::SimulateReads::Simulator | show |
| sub run_simulation {
my $self = shift;
my $fasta = $self->_fasta;
my $number_of_reads = $self->_calculate_number_of_reads;
my $strand = $self->_strand;
my $seqid = $self->_seqid_raffle;
my %files = (
'App::SimulateReads::Fastq::Sin... |
| App-SimulateReads-0.16 | App::SimulateReads::Fastq | show |
| sub fastq_template {
my ($self, $header_ref, $seq_ref) = @_;
my $quality_ref = $self->gen_quality;
my $fastq = "\@$$header_ref\n";
$fastq .= "$$seq_ref\n";
$fastq .= "+\n";
$fastq .= "$$quality_ref";
return \$fastq;
} |
| App-SimulateReads-0.16 | App::SimulateReads::WeightedRaffle | show |
| sub _search {
my ($self, $min_index, $max_index, $range) = @_;
if ($min_index > $max_index) {
die "Random feature not found";
}
my $selected_index = int(($min_index + $max_index) / 2);
my $weight = $self->_weights->[$selected_index];
i... |
| App-SimulateReads-0.16 | App::SimulateReads::Quality | show |
| sub _poisson_dist {
my ($self, $quality_ref, $size, $countdown) = @_;
return $quality_ref if not $countdown;
my $phred_score = $self->_get_phred_score($self->_count_phred_score - $countdown);
my $part = int($size / $phred_score->{ratio}) + (... |
| App-SimulateReads-0.16 | App::SimulateReads::Command::Transcriptome | show |
| sub rm_opt {
'strand-bias',
'coverage',
'seqid-weight'
} |
| App-SimulateReads-0.16 | App::SimulateReads::Command::Expression | show |
| sub _print_report {
my $self = shift;
my $report_ref = $self->make_report;
return if not defined $report_ref;
my $format = "\t%*s\t%*s\t%*s\t%*s\n";
my ($s1, $s2, $s3, $s4) = map {length} qw/expression-matrix/x4;
printf $format => $s1, "exp... |
| App-SimulateReads-0.16 | App::SimulateReads::Command::Custom | show |
| sub rm_opt {
} |
| App-SimulateReads-0.16 | App::SimulateReads::Command::Quality | show |
| sub _print_report {
my $self = shift;
my $report_ref = $self->make_report;
return if not defined $report_ref;
my $format = "\t%*s\t%*s\t%*s\t%*s\t%*s\n";
my ($s1, $s2, $s3, $s4, $s5) = map {length} qw/sequencing_system/x5;
printf $format => $... |
| App-SimulateReads-0.16 | App::SimulateReads::Command::Genome | show |
| sub rm_opt {
'strand-bias',
'number-of-reads',
'seqid-weight',
'expression-matrix'
} |
| App-SimulateReads-0.16 | App::SimulateReads::Command::Expression::Add | show |
| sub execute {
my ($self, $opts, $args) = @_;
my $file = shift @$args;
my %default_opt = $self->_default_opt;
$self->fill_opts($opts, \%default_opt);
$LOG_VERBOSE = $opts->{verbose};
log_msg ":: Inserting $opts->{'expression-matrix'} f... |
| App-SimulateReads-0.16 | App::SimulateReads::Command::Expression::Restore | show |
| sub execute {
my ($self, $opts, $args) = @_;
$LOG_VERBOSE = exists $opts->{verbose} ? $opts->{verbose} : 0;
log_msg ":: Restoring expression-matrix database to vendor state ...";
$self->restoredb;
log_msg ":: Done!";
} |
| App-SimulateReads-0.16 | App::SimulateReads::Command::Expression::Remove | show |
| sub execute {
my ($self, $opts, $args) = @_;
my $expression_matrix = shift @$args;
$LOG_VERBOSE = exists $opts->{verbose} ? $opts->{verbose} : 0;
log_msg ":: Attempting to remove $expression_matrix ...";
$self->deletedb($expression_matrix)... |
| App-SimulateReads-0.16 | App::SimulateReads::Command::Quality::Add | show |
| sub execute {
my ($self, $opts, $args) = @_;
my $file = shift @$args;
my %default_opt = $self->_default_opt;
$self->fill_opts($opts, \%default_opt);
$LOG_VERBOSE = $opts->{verbose};
if ($file !~ /.+\.(fastq)(\.gz)?$/) {
$opts->{type... |
| App-SimulateReads-0.16 | App::SimulateReads::Command::Quality::Restore | show |
| sub execute {
my ($self, $opts, $args) = @_;
$LOG_VERBOSE = exists $opts->{verbose} ? $opts->{verbose} : 0;
log_msg ":: Restoring quality database to vendor state ...";
$self->restoredb;
log_msg ":: Done!";
} |
| App-SimulateReads-0.16 | App::SimulateReads::Command::Quality::Remove | show |
| sub execute {
my ($self, $opts, $args) = @_;
my $quality_profile = shift @$args;
$LOG_VERBOSE = exists $opts->{verbose} ? $opts->{verbose} : 0;
log_msg ":: Attempting to remove $opts->{'quality-profile'}";
$self->deletedb($quality_profi... |
| App-SimulateReads-0.16 | App::SimulateReads::DB::Handle::Expression | show |
| sub make_report {
my $self = shift;
my $schema = App::SimulateReads::DB->schema;
my %report;
my $rs = $schema->resultset('ExpressionMatrix')->search(undef);
while (my $expression_matrix = $rs->next) {
my %hash = (
source => $e... |
| App-SimulateReads-0.16 | App::SimulateReads::DB::Handle::Quality | show |
| sub make_report {
my $self = shift;
my $schema = App::SimulateReads::DB->schema;
my %report;
my $rs = $schema->resultset('QualityProfile')->search(undef);
while (my $quality = $rs->next) {
my %hash = (
size => $quality->s... |
| App-SimulateReads-0.16 | App::SimulateReads::Read::SingleEnd | show |
| sub gen_read {
my ($self, $seq_ref, $seq_size, $is_leader) = @_;
if ($seq_size < $self->read_size) {
die sprintf "seq_size (%d) must be greater or equal to read_size (%d)\n"
=> $seq_size, $self->read_size;
}
my ($read_ref, $read_pos... |
| App-SimulateReads-0.16 | App::SimulateReads::Read::PairedEnd | show |
| sub _random_half_normal {
my $self = shift;
return abs(int(random_normal(1, $self->fragment_mean, $self->fragment_stdd)));
} |
| App-SimulateReads-0.16 | App::SimulateReads::Role::IO | show |
| sub my_open_w {
my ($self, $file, $is_gzipped) = @_;
my $fh;
my $mode;
if ($is_gzipped) {
$mode = ">:gzip";
} else {
$mode = ">";
}
open $fh, $mode => $file
or die "Not possible to create $file: $!";
return $fh;
} |
| App-SimulateReads-0.16 | App::SimulateReads::Role::Digest | show |
| sub execute {
my ($self, $opts, $args) = @_;
my $fasta_file = shift @$args;
my %default_opt = $self->default_opt;
$self->fill_opts($opts, \%default_opt);
$LOG_VERBOSE = $opts->{verbose};
if ($default_opt{'count-loops-by'} eq 'coverage') ... |
| App-SimulateReads-0.16 | App::SimulateReads::Role::ParseArgv | show |
| sub parser {
my ($self, $argv, @opt_spec) = @_;
my @argv = @{ $argv };
my %opts;
Getopt::Long::Configure('gnu_getopt');
GetOptionsFromArray(
\@argv,
\%opts,
@opt_spec
) or die "Error parsing command-line arguments\n";
return (\%opts, \@ar... |
| App-SimulateReads-0.16 | App::SimulateReads::Role::RunTimeTemplate | show |
| sub compile_template {
my ($self, $template, $input_name, $sym_table) = @_;
die "sym_table is not a hashref" unless ref $sym_table eq 'HASH';
while (my ($sym, $variable) = each %$sym_table) {
$template =~ s/$sym/$variable/g;
}
my $sub = eval "su... |
| App-SimulateReads-0.16 | App::SimulateReads::Fastq::SingleEnd | show |
| sub sprint_fastq {
my ($self, $id, $num, $seq_id, $seq_ref, $seq_size, $is_leader) = @_;
my ($read_ref, $pos) = $self->gen_read($seq_ref, $seq_size, $is_leader);
my ($start, $end) = ($pos + 1, $pos + $self->read_size);
unless ($is_leader) {
... |
| App-SimulateReads-0.16 | App::SimulateReads::Fastq::PairedEnd | show |
| sub sprint_fastq {
my ($self, $id, $num, $seq_id, $seq_ref, $seq_size, $is_leader) = @_;
my ($read1_ref, $read2_ref, $fragment_pos, $fragment_size) = $self->gen_read($seq_ref, $seq_size, $is_leader);
my ($fragment_start, $fragment_end) = ($fragmen... |
| App-SimulateReads-0.16 | App::SimulateReads::CLI::Command | show |
| sub fill_opts {
my ($self, $opts, $default_opt) = @_;
if (ref $opts ne 'HASH' || ref $default_opt ne 'HASH') {
die '$opts and $default_opt need to be a hash reference';
}
for my $opt (keys %$default_opt) {
$opts->{$opt} = $default_opt->{$op... |
| App-SimulateReads-0.16 | App::SimulateReads::CLI::App | show |
| sub run {
my $self = shift;
my @argv = @{ $self->argv };
my %command_map = $self->command_map;
my %command_map_bultin = $self->command_map_bultin;
$self->_help_text unless scalar @argv;
given ($argv[0]) {
when (%command_map_bultin) {... |
| 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-Tel-0.201601 | 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} || [];
} |
| App-Tel-0.201601 | Module::Build::ConfigData | show |
| sub feature {
my ($package, $key) = @_;
return $features->{$key} if exists $features->{$key};
my $info = $auto_features->{$key} or return 0;
my %info = %$info;
require Module::Build;
while (my ($type, $prereqs) = each %info) {
... |
| App-Tel-0.201601 | App::Tel::Merge | show |
| sub merge (@) {
shift unless ref $_[0];
my ($left, @right) = @_;
return $left unless @right;
return merge($left, merge(@right)) if @right > 1;
my ($right) = @right;
my %merge = %$left;
for my $key (keys %$right) {
... |
| App-Tel-0.201601 | App::Tel::Passwd | show |
| sub load_from_profile {
my $profile = shift;
foreach my $plugin (@$plugins) {
my $type = lc($plugin);
if (defined($profile->{$type .'_file'})) {
my $file = $type . '_file';
my $entry = $type . '_entry';
... |
| 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.020 | 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.020 | 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-WRT-v6.3.1 | App::WRT::Image | show |
| sub image_size {
return imgsize($_[0]);
} |
| App-WRT-v6.3.1 | App::WRT::Util | show |
| sub file_get_contents {
my ($file) = @_;
open my $fh, '<', $file
or croak "Couldn't open $file: $!\n";
my $contents;
{
local $/ = undef;
$contents = <$fh>;
}
close $fh or croak "Couldn't close $file: $!";
return $con... |
| App-WRT-v6.3.1 | App::WRT::Markup | show |
| sub image_markup {
my $self = shift;
my ($file, $block) = @_;
my ($basename, $dir) = fileparse($file);
my ($file_date) = $dir =~ m{
(
[0-9]{4}/ # year
[0-9]{1,2}/ # month
[0-9]{1,2}/ # day
... |
| App-ZofCMS-1.001007 | App::ZofCMS::Plugin::Example | show |
| sub _do {
my ( $self, $conf, $template, $query, $config ) = @_;
$template->{t}{time} = localtime;
} |
| App-ZofCMS-1.001007 | 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-hopen-0.000010 | App::hopen::Phase::Gen | show |
| sub todo {
my $self = shift or croak 'Need an instance';
...
} |
| 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.08 | 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);
$... |
| App-ssl4curl-1.01 | App::ssl4curl | show |
| sub get_ca {
my $get_ca = sub {
open my $pipe,"-|", 'perldoc -l Mozilla::CA';
while(<$pipe>){ $mozilla_ca_path = $_ }
close $pipe;
$mk_ca_bundle_script = $mozilla_ca_path;
$mk_ca_bundle_script =~ s/(.*)(\... |
| App-unichar-0.012 | App::unichar | show |
| sub run {
foreach ( @ARGV ) {
my $fallthrough = 1;
say "Processing $_";
my( $code, $match );
if( / \A (?: $r{u} | $r{h} | $r{d} ) \z /x ) {
$match = 'code point';
my( $key ) = keys %+;
$code = $transformation{$key}( $+{$key} );
$fall... |
| App-whatthecommit-0.02 | App::whatthecommit | show |
| sub goodie($) {
my $git = shift;
my $prepare_commit_msg = $git . "/.git/hooks/prepare-commit-msg";
open my $REPO, ">$prepare_commit_msg"
or die( print "Cannot open $prepare_commit_msg\n" );
print $REPO $HOOK;
... |
| 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-Any-0.0946 | Archive::Any::Zip | show |
| sub type {
return 'zip';
} |
| Archive-Cpio-0.10 | 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) {
... |
| Archive-Tar-Builder-2.5004 | Archive::Tar::Builder | show |
| sub archive {
my ( $self, @members ) = @_;
die('No paths to archive specified') unless @members;
return $self->archive_as( map { $_ => $_ } @members );
} |
| 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.04 | Aspect::Legacy | show |
| sub append_params {
my $self = shift;
$self->args( $self->args, @_ );
} |
| Astro-Catalog-4.34 | 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::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-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-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... |
| Audio-Nama-1.208 | Audio::Nama | show |
| sub pan_back {
my $track = shift;
my $old = $track->old_pan_level;
if (defined $old){
update_effect(
$track->pan,
0,
$old,
);
$track->set(old_pan_level => undef);
}
} |
| Auth-Kokolores-1.01 | Auth::Kokolores::Protocol::CyrusSaslauthd | show |
| sub write_response {
my ( $self, $response ) = @_;
my $message = 'NO';
if( $response->success ) {
$message = 'OK';
}
my $size = length($message) + 1;
$self->handle->print( pack("nA$size", $size, $message."\0") );
return;
} |
| Auth-Yubikey_WebClient-4.02 | Auth::Yubikey_WebClient | show |
| sub otp
{
my ($self,$otp) = @_;
chomp($otp);
$self->{otp} = $otp;
if($self->{otp} !~ /[cbdefghijklnrtuv]/i || length($self->{otp}) < 32) {
$self->{status} = "ERR_BAD_OTP";
return $self->{status};
}
$self->{nonce} ... |
| 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... |
| BalanceOfPower-0.400115 | BalanceOfPower::Role::Shopper | show |
| sub do_transaction
{
my $self = shift;
my $player = shift;
my $action = shift;
my $q = shift;
my $what = shift;
my $flags = shift;
if(! grep {$_ eq $what} @products)
{
return -10;
}
if($player->get_friend... |
| 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::Grammar | show |
| sub new { my $self = bless( {
'_AUTOTREE' => {
'TERMINAL' => bless( {
'lookahead' => 0,
... |
| 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 $... |
| Bio-BioStudio-2.11 | Bio::BioStudio | show |
| sub DESTROY
{
my ($self) = @_;
my @factories = values %{$self->{blast_registry}};
foreach my $factory (@factories)
{
$factory->cleanup();
}
$self->SUPER::DESTROY if $self->can("SUPER::DESTROY");
return;
} |
| 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_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-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-DB-USeq-0.25 | Bio::DB::USeq | show |
| sub get_seq_stream {
my $self = shift;
return Bio::DB::USeq::Iterator->new(
-seq_id => $self->seq_id,
-start => $self->start,
-end => $self->end,
-strand => $self->strand,
-type => 'regio... |
| 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::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::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::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::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::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::Archive | show |
| sub create_archive {
} |
| 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::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::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-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::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::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::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-Gonzales-0.082 | Bio::Gonzales::Util::Cerial | show |
| sub ndjson_iterate {
my @srcs = flatten(@_);
my $i = 0;
my ( $fh, $fh_was_open ) = open_on_demand( $srcs[$i], '<' );
return sub {
while ( $i < @srcs ) {
while ( my $record = <$fh> ) {
next if ( !$record || $record =... |
| Bio-Gonzales-0.082 | Bio::Gonzales::Graphics::Glyph::colorfulBox | show |
| sub fgcolor {
my $self = shift;
my $fgcolor = $self->option('color') || $self->option('fgcolor');
$fgcolor = $fgcolor->() if(ref $fgcolor eq 'CODE');
} |
| Bio-Gonzales-0.082 | Bio::Gonzales::Stat::Util | show |
| sub nstat {
my $frac = shift;
my $values = shift;
my $min_size = shift;
my $total;
if ($min_size) {
$total = sum grep { $_ >= $min_size } @$values;
} else {
$total = sum @$values;
}
my $sum = 0;
my $n = 0;
for ( sort... |
| Bio-Graphics-2.40 | 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::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-Metabolic-0.07 | Bio::Metabolic::Dynamics::Substrate | show |
| sub Bio::Metabolic::Substrate::release {
shift->var->value(undef);
} |
| 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-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 (&... |
| Bio-Sketch-0.3 | Bio::Sketch | show |
| sub paste{;} |
| Bio-ToolBox-1.66 | Bio::ToolBox | show |
| sub big_adapter {
my $self = shift;
return Bio::ToolBox::Data->big_adapter(@_);
} |
| Bio-ToolBox-1.66 | Bio::ToolBox::utility | show |
| sub check_file {
return Bio::ToolBox::Data::file->check_file(@_);
} |
| Bio-ToolBox-1.66 | Bio::ToolBox::Data | show |
| sub row_index {
my $self = shift;
carp "row_index is a read only method" if @_;
return $self->{'index'};
} |
| Bio-ToolBox-1.66 | Bio::ToolBox::SeqFeature | show |
| sub bed_string {
my $self = shift;
my $string = join("\t", (
$self->seq_id || '.',
($self->start || 1) - 1,
$self->end || 1,
$self->display_name || $self->primary_id,
defined $self->score ? $self->score : 0,
$self->st... |
| Bio-ToolBox-1.66 | Bio::ToolBox::big_helper | show |
| sub generate_chromosome_file {
my $database = shift;
my $chr_exclude = shift || undef;
print " generating chromosome file....\n";
my @chromosomes = get_chromosome_list($database, $chr_exclude);
unless (@chromosomes) {
carp " no chromosome seque... |
| Bio-ToolBox-1.66 | Bio::ToolBox::db_helper | show |
| sub _load_bigbed_helper_module {
if ($BIG_ADAPTER =~ /ucsc|kent/i) {
$BIGBED_OK = _load_helper_module('Bio::ToolBox::db_helper::bigbed');
$BIG_ADAPTER = 'ucsc';
}
elsif ($BIG_ADAPTER =~ /big/i) {
$BIGBED_OK = _load_helper_module('Bio::ToolBox::d... |
| Bio-ToolBox-1.66 | Bio::ToolBox::GeneTools | show |
| sub _return_filtered_transcripts {
my ($gene, $keepers) = @_;
if (ref($gene) =~ /seqfeature/i) {
if ($gene->primary_tag =~ /transcript|rna/i) {
$keepers->[0] ||= undef;
return $keepers->[0];
}
my %attributes = $gene->attribu... |
| Bio-ToolBox-1.66 | Bio::ToolBox::parser::bed | show |
| sub find_gene {
my $self = shift;
unless (exists $self->{id2seqf}) {
croak "must parse file first!" unless $self->{'eof'};
$self->{id2seqf} = {};
foreach (@{ $self->{top_features} }) {
my $name = lc $_->display_name;
if (exi... |
| Bio-ToolBox-1.66 | Bio::ToolBox::parser::gff | show |
| sub _get_seq_ids {
my $self = shift;
return unless $self->{'eof'};
foreach (@{ $self->{top_features} }) {
my $s = $_->seq_id;
unless (exists $self->{seq_ids}{$s}) {
$self->{seq_ids}{$s} = 1;
}
$self->{seq_ids}{$s} = $_->... |
| Bio-ToolBox-1.66 | Bio::ToolBox::parser::ucsc | show |
| sub find_existing_subfeature {
my ($self, $gene, $type, $start, $stop) = @_;
foreach my $transcript ($gene->get_SeqFeatures()) {
foreach my $subfeature ($transcript->get_SeqFeatures()) {
if (
$subfeature->primary_tag eq $type and
... |
| Bio-ToolBox-1.66 | Bio::ToolBox::Data::file | show |
| sub standard_column_names {
my ($self, $type) = @_;
if ($type eq 'gff') {
return [qw(Chromosome Source Type Start Stop Score Strand Phase Group)];
}
elsif ($type eq 'bed12') {
return [qw(Chromosome Start0 End Name Score Strand
thickStart0 t... |
| Bio-ToolBox-1.66 | Bio::ToolBox::Data::core | show |
| sub get_seqfeature {
my ($self, $row) = @_;
return unless ($row and $row <= $self->{last_row});
return unless exists $self->{SeqFeatureObjects};
return $self->{SeqFeatureObjects}->[$row] || undef;
} |
| Bio-ToolBox-1.66 | Bio::ToolBox::Data::Feature | show |
| sub gff_string {
my $self = shift;
my %args = @_;
$self->seqfeature;
my $chr = $args{chromo} || $args{seq_id} || $self->seq_id;
my $start = $args{start} || $self->start;
my $stop = $args{stop} || $args{end} || $self->stop ||
$st... |
| Bio-ToolBox-1.66 | Bio::ToolBox::Data::Stream | show |
| sub DESTROY {
my $self = shift;
$self->close_fh;
} |
| Bio-ToolBox-1.66 | Bio::ToolBox::db_helper::wiggle | show |
| sub collect_wig_position_scores {
my $param = shift;
my %pos2score;
for (my $d = DATA; $d < scalar @$param; $d++) {
my $feature = $param->[$d];
confess "dataset is not a seqfeature object!" unless ref($feature) =~ /seqfeature/i;
... |
| Bio-ToolBox-1.66 | Bio::ToolBox::db_helper::bigbed | show |
| sub _get_bb {
my $bbfile = shift;
return $OPENED_BB{$bbfile} if exists $OPENED_BB{$bbfile};
my $bb = open_bigbed_db($bbfile) or
croak " Unable to open bigBed file '$bbfile'! $!\n";
$OPENED_BB{$bbfile} = $bb;
$BIGBED_CHROMOS{$bbfile} = {};
f... |
| Bio-ToolBox-1.66 | Bio::ToolBox::db_helper::seqfasta | show |
| sub collect_store_scores {
my $param = shift;
my @types = splice(@$param, DATA);
my $iterator = $param->[DB]->get_seq_stream(
-seq_id => $param->[CHR],
-start => $param->[STRT],
-end => $param->[STOP... |
| Bio-ToolBox-1.66 | Bio::ToolBox::db_helper::alignment_callbacks | show |
| sub _reverse_name_array {
my ($a, $data) = @_;
my $flag = $a->flag;
return if $flag & 0x0100;
return if $flag & 0x0400;
return if $flag & 0x0800;
my $reversed = $flag & 0x10;
if ($flag & 0x1) {
my $first = $a->flag & 0x40;
return if ... |
| Bio-ToolBox-1.66 | Bio::ToolBox::db_helper::config | show |
| sub _rewrite_config {
my $updated;
if (-w $config_path) {
$updated = $BTB_CONFIG->write;
}
unless ($updated) {
my $file = File::Spec->catdir($ENV{HOME}, '.biotoolbox.cfg');
$updated = $BTB_CONFIG->write($file);
if ($updated) {
$con... |
| Bio-ToolBox-1.66 | Bio::ToolBox::db_helper::useq | show |
| sub _get_useq {
my $useqfile = shift;
return $OPENED_USEQ{$useqfile} if exists $OPENED_USEQ{$useqfile};
my $useq = open_useq_db($useqfile) or
croak " Unable to open USeq file '$useqfile'! $!\n";
$OPENED_USEQ{$useqfile} = $useq;
$USEQ_CHROMOS... |
| Bio-ToolBox-1.66 | Bio::ToolBox::db_helper::bigwig | show |
| sub _lookup_bigwigset_wigs {
my $param = shift;
my @types = splice(@$param, DATA);
my $lookup = sprintf("%s_%s_%s", join('_', @types), $param->[STND],
$param->[STR]);
return $BIGWIGSET_WIGS{$lookup} if exists $BIGWIGSET_WIGS{$lookup};
my... |
| Bio-ToolBox-1.66 | Bio::ToolBox::db_helper::hts | show |
| sub sum_total_bam_alignments {
my $sam_file = shift;
my $min_mapq = shift || 0;
my $paired = shift || 0;
my $cpu = shift || 2;
$cpu = 1 unless ($parallel);
unless ($sam_file) {
carp " no Bam file or bam db object passed!\n";
return;
... |
| Bio-ToolBox-1.66 | Bio::ToolBox::db_helper::bam | show |
| sub sum_total_bam_alignments {
my $sam_file = shift;
my $min_mapq = shift || 0;
my $paired = shift || 0;
my $cpu = shift || 2;
$cpu = 1 unless ($parallel);
unless ($sam_file) {
carp " no Bam file or bam db object passed!\n";
return;
... |
| Bio-ToolBox-1.66 | Bio::ToolBox::db_helper::big | show |
| sub next_seq {
my $self = shift;
my $entry = shift @{ $self->{entries} } || undef;
unless ($entry) {
$self->{entries} = $self->{iter}->next || undef;
return unless $self->{entries};
$entry = shift @{ $self->{entries} } || undef;... |
| 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};
} |
| Bitcoin-Crypto-0.02 | Bitcoin::Crypto | show |
| sub version
{
return $VERSION;
} |
| Bookmarks-Parser-0.08 | Bookmarks::Delicious | show |
| sub _parse_bookmarks {
my ($self, $user, $password) = @_;
my $account = Net::Delicious->new(
{ user => $user,
pswd => $password,
}
);
my @posts = $account->all_posts();
foreach my $post (@po... |
| 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.08 | 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-HashCash-1.004 | Business::HashCash | show |
| sub AUTOLOAD {
my $self = shift; (my $auto = $AUTOLOAD) =~ s/.*:://;
return if $auto eq 'DESTROY';
if ($auto =~ /^(debug|client|stash)$/x) {
$self->{$auto} = shift if (defined $_[0]);
return $self->{$auto};
}
else {
die "Could ... |
| Business-ID-BCA-0.08 | Business::ID::BCA | show |
| sub parse_bca_account {
my %args = @_;
my $acc = $args{account};
defined($acc) or return [400, "Please specify account"];
$acc =~ s/\D+//g;
length($acc) == 10 or return [400, "Account number must be 10 digits"];
my $parsed = {acc... |
| Business-ID-Mandiri-0.05 | Business::ID::Mandiri | show |
| sub parse_mandiri_account {
my %args = @_;
my $acc = $args{account};
defined($acc) or return [400, "Please specify account"];
$acc =~ s/\D+//g;
length($acc) == 13 or return [400, "Account number must be 13 digits"];
my $parsed = ... |
| 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::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::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::CreditCardRequest | 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::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::PayerAuthenticationResponse | show |
| sub GetTransactionConditionCode {
my $self = shift;
$self->{strTransactionConditionCode};
} |
| 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::SecureHttp | show |
| sub GetErrorString
{
my $self = shift;
return $self->{strError};
} |
| 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;
... |
| C-Blocks-0.42 | C::Blocks::Types | show |
| sub data_type { 'char' } |
| 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.61 | 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::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::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::fut | show |
| sub fdumpstore {
my ($s,$f,$d) =@_;
$s->fstore('-',$f,$s->parent->dumpout($d))
} |
| 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::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::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::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::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::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::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::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=>['�����', '����� � �।��饬� �࠭�']
,-lgn=... |
| 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-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_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_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_ru | show |
| sub lngbase {
my @msg;
push @msg, CGI::Bus::lngbase::CGI_Bus_tmsql::lngbase;
push @msg,
(-nap=>['����', '������� �������']
,-nup=>['����', '����������� �������']
,-nth=>['�����', '��� ���������� ��-���������']
,-bck=>['�����'... |
| 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::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::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::Obj | show |
| sub jsonrpc_javascript {
my $self = shift;
return $self->js_class
} |
| 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::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::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::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::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::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::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::changepw | show |
| sub launch {
my $self = shift;
$self->authenticate_user();
if ($self->{'user'}){
$self->assign_tmpl("changepw.html");
}
} |
| CGI-Portal-0.12 | CGI::Portal::Scripts::Header | show |
| 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::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::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::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::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( ', ', @{$... |
| 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::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-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::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::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-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.06 | 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.18 | 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... |
| CSS-Selector-Grammar-0.002 | CSS::Selector::Grammar | show |
| sub parse_selector {
state $rx = do {
use Regexp::Grammars;
qr/
\A \s*+ <selectors_group> \s* \z
<extends: CSS3::Selectors>
/x;
};
return {%/} if shift =~ $rx;
return undef;
}
1;... |
| CTM-0.181 | CTM::ReadEM::WorkOnCurrentBIMServices | show |
| sub DESTROY {
unlock_hash(%{+shift});
} |
| Cache-AgainstFile-1.016 | Cache::AgainstFile::Base | show |
| sub DUMP {} |
| Cache-Cache-1.08 | 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-Session-PSGI-0.0.2 | Catalyst::Plugin::Session::State::PSGI | show |
| sub delete_session_id { } |
| CatalystX-Eta-0.08 | CatalystX::Eta::Controller::ParamsAsArray | show |
| sub params_as_array {
my ( $self, $splt, $c_req_params ) = @_;
my $out = {};
my $idx_visibles = {};
foreach my $k ( keys %$c_req_params ) {
next unless $k =~ /^$splt:([^\:]+):([0-9]+)$/;
my ( $name, $idx ) = ( $... |
| 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 | 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::TieGroup | show |
| sub format($$)
{
"$_[1]: ".join(',',@{$_[1]})."\n";
} |
| CfgTie-0.41 | CfgTie::TieRsrc | show |
| sub STORE
{
setrlimits($K->{$_[1]}, $_[2]->[0],$_[2]->[1]);
} |
| CfgTie-0.41 | CfgTie::TieUser | 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... |
| CfgTie-0.41 | CfgTie::TieMTab | show |
| sub FETCH {$CfgTie::TieMTab::by_dev{$_[1]};} |
| 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;
} |
| Cheater-0.10 | Cheater::Parser | show |
| sub new { my $self = bless( {
'_precompiled' => 1,
'localvars' => '',
'startcode' => '',
'namespace' => 'Parse::RecDescent::Cheater::Parser',
'rules' => {
... |
| Chef-REST-Client-1.2 | Chef | show |
| sub new {
my $class = shift;
my $param = {@_};
my $self = {};
bless $self, $class;
$self->server( $param->{'chef_server'} ) if defined $param->{'chef_server'};
$self->chef_version( $param->{'chef_version'} ) if defined $para... |
| 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()";
} |
| Cikl-0.5.1 | Cikl::Logging | show |
| sub get_logger {
my $category = shift || "";
return Log::Log4perl->get_logger($category);
} |
| Cindy-0.22 | 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-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-Property-1.002 | Class::Property | show |
| sub wo_property{ return $make_property->( (caller)[0], map{$_ => {'set' => undef }} @_);} |
| 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;
} |
| 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-Grammar-1.13 | Config::Grammar::Dynamic | show |
| sub parse($$)
{
my $self = shift;
my $file = shift;
my $args = shift;
$self->{encoding} = $args->{encoding} if ref $args eq 'HASH';
$self->{cfg} = {};
$self->{level} = 0;
$self->{cfg_stack} ... |
| Config-Magic-0.801 | Config::Magic::Grammar | show |
| sub new { my $self = bless( {
'_AUTOTREE' => undef,
'localvars' => '',
'startcode' => '',
'_check' => {
'thisoffset' => '',
... |
| Config-Simple-Conf-2.003 | Config::Simple::Conf | show |
| sub _die {
if($ENV{'QUERY_STRING'} || $ENV{'REQUEST_METHOD'}){
print "Content-type: text/plain\n\nConfiguration ERROR: $_[0]";
exit(64);
} else {
print STDERR "$_[0]\n";
exit(64);
}
} |
| Constant-Generate-0.17 | 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.17 | 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 {
... |
| 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.30 | Convert::IBM390::CP01141 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.30 | Convert::IBM390::CP00278 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.30 | Convert::IBM390::CP00500 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.30 | Convert::IBM390::CP01144 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.30 | Convert::IBM390::CP01148 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.30 | Convert::IBM390::CP00282 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.30 | Convert::IBM390::CP00281 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.30 | Convert::IBM390::CP00037 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.30 | Convert::IBM390::CP00285 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.30 | Convert::IBM390::CP00871 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.30 | Convert::IBM390::CP01142 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.30 | Convert::IBM390::CP00277 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.30 | Convert::IBM390::CP00297 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.30 | Convert::IBM390::CP01145 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.30 | Convert::IBM390::CP01146 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.30 | Convert::IBM390::CP01047 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.30 | Convert::IBM390::CP01140 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.30 | Convert::IBM390::CP01143 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.30 | Convert::IBM390::CP01147 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.30 | Convert::IBM390::CP00275 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.30 | Convert::IBM390::CP00273 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.30 | Convert::IBM390::CP01149 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.30 | Convert::IBM390::CP00284 | show |
| sub import {
set_translation(undef, <<'END EBCDIC');
} |
| Convert-IBM390-0.30 | Convert::IBM390::CP00280 | 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;
} |
| Couchbase-2.0.3 | Couchbase::Document | show |
| sub _data_printer {
my $self = shift;
my $r = bless $self->as_hash, ref($self) . "::_PrettyDummy";
Data::Printer::p($r);
} |
| Couchbase-2.0.3 | Couchbase::BucketConfig | show |
| sub nodes {
my $self = shift;
my @ret;
for (my $ii = 0; $ii < $self->nservers; ++$ii) {
my $srvhash = {};
push @ret, $srvhash;
while (my ($i_type,$s_type) = each %MODE2STR) {
my $svchash = $srvhash->... |
| 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-HCE_SHA-0.75 | 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.09 | 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.25 | 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-0.9609 | Curses::UI::Container | show |
| sub base_id2idx($;)
{
my $this = shift;
my $param = shift;
my $id = shift;
my $idx;
my $i = 0;
foreach my $win_id (@{$this->{$param}})
{
if ($win_id eq $id) {
$idx = $i;
last;
... |
| 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.082841 | 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-Class-BatchUpdate-1.004 | DBIx::Class::BatchUpdate | show |
| sub batch_update {
my $self = shift;
my ($rows) = @_;
return DBIx::Class::BatchUpdate::Update->new({
resultset => $self,
rows => $rows,
})->update();
} |
| DBIx-Class-BatchUpdate-1.004 | DBIx::Class::BatchUpdate::Batch | show |
| sub update {
my $self = shift;
$self->resultset
->search({ $self->pk_column => { -in => $self->ids } })
->update( $self->key_value );
} |
| DBIx-Class-BatchUpdate-1.004 | DBIx::Class::BatchUpdate::Update | show |
| sub update {
my $self = shift;
for my $batch ( $self->batches->elements ) {
$batch->update();
}
} |
| 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.41 | DBIx::Custom::NotExists | show |
| sub singleton { $not_exists } |
| DBIx-DBSchema-0.45 | 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-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.12 | 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.12 | 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.12 | 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.12 | 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.12 | 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.12 | DBIx::Migration::Directories::Build::Base | show |
| sub ACTION_code {
my $self = shift;
$self->build_dirs();
return $self->SUPER::ACTION_code(@_);
} |
| DBIx-Migration-Directories-0.12 | 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.12 | 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-POS-Template-0.067 | DBIx::POS::Template | show |
| sub template {
my ($self, %arg) = @_;
$self->{_template} ||= Text::Template->new(
TYPE => 'STRING',
SOURCE => $self->sql,
%{$self->{_TT}},
);
$self->{_template}->fill_in(HASH=>
%ar... |
| DBIx-RunSQL-0.21 | DBIx::RunSQL | show |
| sub handle_command_line {
my ($package,$appname,$argv) = @_;
require Pod::Usage; Pod::Usage->import();
my $opts = $package->parse_command_line($appname,$argv)
or pod2usage(2);
pod2usage(1) if $opts->{help};
pod2usage... |
| 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}-... |
| DBIx-Web-0.80 | DBIx::Web | show |
| sub DESTROY {
eval{$_[0]->close()}
} |
| DBR-1.5 | DBR::Query::Part::Value | show |
| sub _session { $_[0]->{session} } |
| DBR-1.5 | DBR::Query::Part::Compare | show |
| sub is_emptyset{ $_[0]->value->is_emptyset } |
| 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,
$... |
| DB_File-Utils-0.006 | DB_File::Utils::Command::new | show |
| sub execute {
my ($self, $opt, $args) = @_;
$opt = { %{$self->app->global_options}, %$opt};
my $file = $args->[0];
$opt->{_create_} = 1;
my $hash = $self->app->do_tie( $file, $opt );
untie $hash;
} |
| 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.01 | DFA::Statemap | show |
| sub emptyStateStack {
my $self = shift;
$self->{_state_stack} = [];
} |
| 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);
} |
| Dancer-Plugin-CORS-0.13 | Dancer::Plugin::CORS::Sharing | show |
| sub clear {
my $self = shift;
$self->{rules} = [];
$self;
} |
| Dancer-Plugin-FontSubset-0.1.2 | Dancer::Plugin::FontSubset | show |
| sub canchangegids
{ 0; } |
| Dancer-Plugin-RPC-1.07 | Dancer::RPCPlugin::CallbackResult | show |
| sub new {
my $class = shift;
my %data = validation_for(
params => {
error_code => {type => Int, optional => 0},
error_message => {type => Str, optional => 0},
},
)->(@_);
r... |
| 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-Dataset-Classic-0.001 | Data::Dataset::Classic::Anscombe | show |
| sub get {
return Data::Dataset::Classic::_adapt( $dataset, @_ );
} |
| Data-Dataset-Classic-0.001 | Data::Dataset::Classic::Iris | show |
| sub get {
return Data::Dataset::Classic::_adapt( $dataset, @_ );
} |
| 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-Fake-0.004 | Data::Fake::Dates | show |
| sub fake_future_datetime {
my ($format) = @_;
$format ||= "%Y-%m-%dT%H:%M:%SZ";
return sub {
Time::Piece->strptime( _future(), "%s" )->strftime($format);
};
} |
| 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-Hopen-0.000015 | Data::Hopen::Scope::Overrides | show |
| sub todo {
my $self = shift or croak 'Need an instance';
...
} |
| Data-Hopen-0.000015 | Data::Hopen::Scope::Inputs | show |
| sub todo {
my $self = shift or croak 'Need an instance';
...
} |
| 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-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-2.0 | 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.04 | Data::Transactional | show |
| sub current_state {
shift->{CURRENT_STATE};
} |
| Data-Transpose-0.0023 | 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... |
| Data-Tubes-0.736 | Data::Tubes::Util::Cache | show |
| sub set {
my ($self, $key, $data) = @_;
my $repo = $self->repository();
return $repo->{$key} = $data if ref($repo) eq 'HASH';
eval {
mkpath($repo) unless -d $repo;
nstore($data, _path($repo, $key));
1;
} or LOGWARN $... |
| 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-Calendar-TauStation-1.182290 | DateTime::Calendar::TauStation | show |
| sub subtract_datetime {
my ( $dt1, $dt2 ) = @_;
my $dt1_tz = $dt1->time_zone;
my $dt2_tz = $dt2->time_zone;
$dt1->set_time_zone('UTC');
$dt2->set_time_zone('UTC');
my $dur = $dt1->subtract_datetime_absolute($d... |
| DateTime-Calendar-TauStation-1.182290 | DateTime::Duration::TauStation | show |
| sub gct_units {
my ( $self ) = @_;
return DateTime::Calendar::TauStation->catastrophe->add_duration( $self )->gct_unit;
} |
| DateTime-Event-ICal-0.13 | 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.903 | 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.041 | 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-Locale-1.24 | DateTime::Locale::Data | show |
| sub add_locale {
my $code = shift;
my $data = shift;
die "You cannot add an existing locale - $code\n"
if exists $Codes{$code};
die
qq{One of either the 'en_language' or 'language' keys is required to add a new locale\n}
... |
| DateTime-Set-0.3900 | 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} };
... |
| 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-CallTrace-PP-0.02 | Devel::CallTrace::Utils | show |
| sub isin($$) {
my ( $val, $array_ref ) = @_;
return 0 unless $array_ref && defined $val;
for my $v (@$array_ref) {
return 1 if $v eq $val;
}
return 0;
} |
| 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-ModInfo-2.04 | MyModule | show |
| sub method2($$) {
my($self, $message) = @_;
print "$message!\n";
return 2;
} |
| Devel-ModInfo-2.04 | 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-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-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-TypeCheck-1.2 | Devel::TypeCheck::Glob2type | show |
| sub del {
my ($this, $glob) = @_;
delete($this->{$glob});
} |
| Device-CurrentCost-1.142240 | Device::CurrentCost::Constants | show |
| sub current_cost_type_string {
$names{$_[0]}
} |
| Device-Gsm-1.61 | Device::Gsm::Sms | show |
| sub type {
my $self = shift;
if (@_) {
$self->{'type'} = shift;
}
$self->{'type'};
} |
| Device-Gyro-IXBLUE-1.0 | Device::Gyro::IXBLUE | show |
| sub INDYN {
my $self = shift;
$self->{NMEADATA} = {} unless ref($self->{NMEADATA});
my $d = $self->{NMEADATA};
(undef,
$$d{lat_indyn},
$$d{long_idyn},
$$d{alt_idyn},
$$d{heading_idyn},
$$d{roll_idyn},
... |
| Device-ISDN-OCLM-0.40 | Device::ISDN::OCLM::SystemStatistics | show |
| sub
time
{
return shift->{'time'};
} |
| 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'};
} |
| Device-ISDN-OCLM-0.40 | Device::ISDN::OCLM::LastStatistics | show |
| sub
downReason
{
return shift->{'downReason'}->[shift];
} |
| Device-ISDN-OCLM-0.40 | Device::ISDN::OCLM::SPStatistics | show |
| sub
connectTime
{
return shift->{'connectTime'}->[shift];
} |
| Device-ISDN-OCLM-0.40 | Device::ISDN::OCLM::CurrentStatistics | show |
| sub
upReason
{
return shift->{'upReason'}->[shift];
} |
| DhMakePerl-0.96 | 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::Export | show |
| sub DESTROY {
my $self = shift;
my $fh = $self->{fh_meta};
close($fh) if $fh;
} |
| 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;
} |
| 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.91 | 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.43 | 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... |
| EBook-EPUB-Lite-0.71 | EBook::EPUB::Lite::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}... |
| Eixo-Docker-1.211 | Eixo::Docker::ContainerException | show |
| sub ERROR_CODE {
my $self = $_[0];
my $error_code = $self->args->[0];
if (exists($ERRORS->{$error_code})){
$self->error($ERRORS->{$error_code});
$self->error_details('Error produced in \''.$self->method.'\' api call. Detail... |
| Eixo-Rest-1.207 | Eixo::Rest::RequestAsync | show |
| sub send{
my ($self, $ua, $req) = @_;
$self->api->newJob($self);
$self->start();
$self->queue(Thread::Queue->new);
my $with_progress = ($self->onProgress) ? 1 : undef;
$self->thread(
threads->create(
sub {
my... |
| Eixo-Zone-0.001 | Eixo::Zone::FS::Ctl | show |
| sub __mountBind{
my ($self, $old, $new) = @_;
$self->runSysWait(
$MOUNT_CMD,
'-B',
$old,
$new
);
} |
| ElasticSearchX-Model-2.0.1 | ElasticSearchX::Model::Document::Mapping | show |
| sub _set_doc_values {
my %mapping = @_;
if ( $mapping{type} eq 'string'
&& ( $mapping{index} || 'analyzed' ) eq 'analyzed' )
{
delete $mapping{doc_values};
}
elsif ( $mapping{type} eq 'multi_field' ) {
delete $... |
| 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.10 | Event::RPC | show |
| sub crypt {
my $class = shift;
my ($user, $pass) = @_;
return crypt($pass, $user);
} |
| Excel-Template-XLSX-v1.0.7 | Excel::Template::XLSX | show |
| sub zzpodtail {
} |
| 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.18 | 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-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.026 | ExtUtils::Helpers::VMS | show |
| sub detildefy {
my $arg = shift;
return $arg if ($arg =~ /^~~/);
return $arg if ($arg =~ /^~ /);
if ($arg =~ /^~/) {
my $spec = $arg;
$spec =~ s/^~//;
$spec =~ s#^/##;
my $home = VMS::Filespec::unixify($ENV{HOME});
$home .= '/' unless... |
| 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-7.36 | ExtUtils::Liblist | show |
| sub lsdir {
shift;
my $rex = qr/$_[1]/;
opendir my $dir_fh, $_[0];
my @out = grep /$rex/, readdir $dir_fh;
closedir $dir_fh;
return @out;
} |
| ExtUtils-MakeMaker-7.36 | 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-7.36 | 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-MakeMaker-7.36 | ExtUtils::MY | show |
| sub DESTROY {} |
| 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() . " " . ... |
| FFI-Platypus-Lang-Fortran-0.10 | FFI::Platypus::Lang::Fortran | show |
| sub mangler
{
my($class, @libs) = @_;
FFI::Platypus::Lang::Fortran::ConfigData->config('f77')->{'trailing_underscore'}
? sub { return "$_[0]_" }
: sub { $_[0] };
} |
| FFmpeg-Command-0.19 | 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.4 | FLAT::Regex::WithExtraOps | show |
| FLAT-0.9.4 | FLAT::Regex::WithExtraOps | show |
| FSSM-SOAPClient-0.012 | FSSM::SOAPClient | show |
| sub DESTROY {
my $self = shift;
delete $self->{_som};
} |
| Fabnewsru-Parser-0.01 | Fabnewsru::Geo | show |
| sub yandex_geocoder {
my $address = shift;
utf8::decode($address);
my $base_url='https://geocode-maps.yandex.ru/1.x/?format=json&geocode=';
my $ua = Mojo::UserAgent->new;
my $longlat = $ua->get($base_url . $address)->res->json->{res... |
| 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-BetweenTree-1.02 | File::BetweenTree | show |
| sub view {
my ($self, $offset_byts, $length) = @_;
my $dat;
seek $self->{fh}, $offset_byts, 0;
read $self->{fh}, $dat, $length;
join "\n", split $self->{_sep_}, $dat;
} |
| 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.001004 | File::FindLib | show |
| sub UpdateInc {
my( $path )= @_;
my $base= $path;
return 0
if $base !~ s/[.]pm$//;
my @parts= grep length $_, splitdir( $base );
my @names;
unshift @names, pop @parts
... |
| 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.02 | 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.02 | File::Lock::Multi::Base | show |
| sub DESTROY {
my $self = shift;
$self->release if $self->locked;
} |
| File-Lock-Multi-1.02 | 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.02 | 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.02 | 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-Lock-ParentLock-0.08 | File::Lock::ParentLock | show |
| sub _write_lock {
my ($lockfile, $pid)=@_;
unlink $lockfile;
sysopen(FH, $lockfile, O_WRONLY|O_CREAT|O_EXCL, 0644)
or die "can't open lock file $lockfile: $!";
syswrite(FH, "$pid");
close (FH) or die "can't close lock file $lockfile:... |
| 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-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-Wachovia-0.5 | Finance::Bank::Wachovia | 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::Credit | show |
| sub DESTROY {} |
| Finance-Bank-Wachovia-0.5 | Finance::Bank::Wachovia::Account | show |
| sub DESTROY {} |
| Finance-Bank-Wachovia-0.5 | Finance::Bank::Wachovia::Transaction | show |
| sub DESTROY {} |
| Finance-Bank-Wachovia-0.5 | Finance::Bank::Wachovia::DataObtainer::WWW | show |
| sub DESTROY {} |
| 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.49 | 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-Quote-1.49 | Finance::Quote::AlphaVantage | show |
| sub alphavantage {
my $quoter = shift;
my @stocks = @_;
my $quantity = @stocks;
my ( %info, $reply, $url, $code, $desc, $body );
my $ua = $quoter->user_agent();
my $launch_time = time();
foreach my $stock (@stocks) {
... |
| Finance-Quote-1.49 | 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.49 | Finance::Quote::IEXCloud | show |
| sub iexcloud {
my $quoter = shift;
my @stocks = @_;
my $quantity = @stocks;
my ( %info, $reply, $url, $code, $desc, $body );
my $ua = $quoter->user_agent();
foreach my $symbol (@stocks) {
$url = $IEX_URL->fill_in(HA... |
| 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::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::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::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::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::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::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::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-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::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-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::Record | show |
| sub is_deleted {$_[0]->preamble()->is_deleted() } |
| 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... |
| 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);
} |
| 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... |
| Footprintless-1.29 | Footprintless::Command | show |
| sub _init {
my ( $self, %options ) = @_;
$self->{hostname} = $options{hostname} if ( defined( $options{hostname} ) );
$self->{ssh} = $options{ssh} if ( defined( $options{ssh} ) );
$self->{username} ... |
| 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;
} |
| FreeBSD-FsStat-0.107 | FreeBSD::FsStat | show |
| sub get_filesystems {
map { FreeBSD::FileSystem->new( $_ ) } @{ &getfsstat() }
} |
| 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::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::Plugin | show |
| sub plugin_directory {
abs_path($self->hub->config->base . '/' . super);
} |
| FreePAN-0.10 | FreePAN::Command | show |
| sub usage {
warn <<END . $self->command_usage(" freepan -%-14s# %s\n");
} |
| 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::Field | show |
| sub js_default { 'new SFNode("","NULL")' } |
| 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::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);
} |
| 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";
} |
| 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-ArrangeNumber-0.05 | Games::ArrangeNumber | show |
| sub run {
my $self = shift;
$self->init;
$self->new_game;
my $ticks = 0;
GAME:
while (1) {
while (defined(my $key = $self->read_key)) {
if ($key eq 'q' || $key eq 'Q') {
last GAME;
... |
| 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-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-Hangman-0.06 | Games::Hangman | show |
| sub run {
my $self = shift;
$self->init;
WORD:
while (1) {
$self->new_word;
$self->draw;
KEY:
while (1) {
my $key = $self->read_key;
if (!defined($key)) {
sle... |
| 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::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-Rezrov-0.20 | Games::Rezrov::ZOptions | show |
| sub CORRECT_TYPOS {
return (defined $_[0] ? $CORRECT_TYPOS = $_[0] : $CORRECT_TYPOS);
} |
| 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::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->... |
| 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... |
| Gapp-0.60 | 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-Postcodes-0.32 | Geo::Postcodes::Update | show |
| sub _ask
{
my $question = shift;
print "$question (y/n): ";
my $answer = <STDIN>;
return $answer =~ /y/i;
} |
| Geography-States-2015072102 | Geography::States | show |
| sub init_data {
my $data;
$$data {'USA'} {AK} = [1 => "Alaska"];
$$data {'USA'} {AL} = [1 => "Alabama"];
$$data {'USA'} {AR} = [1 => "Arkansas"];
$$data {'USA'} {AS} = [0 => "American Samoa"];
$$data {'USA'} {AZ} = [1 ... |
| GermaNet-Flat-0.03 | GermaNet::Flat | show |
| sub loadBin {
require Storable;
my ($gn,$file) = @_;
my $fh = ref($file) ? $file : IO::File->new("<$file");
confess(__PACKAGE__."::loadBin(): open failed for '$file'") if (!$fh);
binmode($fh,':raw');
my $loaded = Storable::fd_retrieve($f... |
| Getargs-Mixed-1.06 | Getargs::Mixed | show |
| sub new {
my $class = shift;
bless {@_}, $class;
} |
| 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-Long-Descriptive-Util-0.002 | Getopt::Long::Descriptive::Util | show |
| sub detect_getopt_long_descriptive_script {
my %args = @_;
(defined($args{filename}) xor defined($args{string}))
or return [400, "Please specify either filename or string"];
my $include_noexec = $args{include_noexec} // 1;
my $... |
| Getopt-Long-More-Util-0.001 | Getopt::Long::More::Util | show |
| sub detect_getopt_long_more_script {
my %args = @_;
(defined($args{filename}) xor defined($args{string}))
or return [400, "Please specify either filename or string"];
my $include_noexec = $args{include_noexec} // 1;
my $yesno =... |
| Getopt-Long-Subcommand-Util-0.002 | Getopt::Long::Subcommand::Util | show |
| sub detect_getopt_long_subcommand_script {
my %args = @_;
(defined($args{filename}) xor defined($args{string}))
or return [400, "Please specify either filename or string"];
my $include_noexec = $args{include_noexec} // 1;
my $y... |
| Getopt-Std-Util-0.001 | Getopt::Std::Util | show |
| sub detect_getopt_std_script {
my %args = @_;
(defined($args{filename}) xor defined($args{string}))
or return [400, "Please specify either filename or string"];
my $include_noexec = $args{include_noexec} // 1;
my $yesno = 0;
... |
| 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 ... |
| Git-Code-Review-2.6 | Git::Code::Review::Notify | show |
| sub _install_templates {
my %templates = ();
my $TEMPLATE_DIR ||= gcr_mkdir('.code-review','templates');
my $repo = gcr_repo();
my $new = 0;
foreach my $tmpl (keys %_DEFAULTS) {
my $file = File::Spec->catfile($TEMPLATE_DIR,... |
| Git-Wrapper-0.048 | Git::Wrapper | show |
| sub _win32_multiline_commit_msg {
my ( $cmd, $name, $val ) = @_;
return 0 if $^O ne "MSWin32";
return 0 if $cmd ne "commit";
return 0 if $name ne "m" and $name ne "message";
return 0 if $val !~ /\n/;
return 1;
} |
| GitLab-API-v3-1.05 | GitLab::API::v3 | show |
| sub paginator {
my ($self, $method, @args) = @_;
my $params = (ref($args[-1]) eq 'HASH') ? pop(@args) : {};
return GitLab::API::v3::Paginator->new(
api => $self,
method => $method,
args => \@args,
... |
| GitLab-API-v4-0.21 | GitLab::API::v4 | show |
| sub sudo {
my ($self, $user) = @_;
return $self->_clone(
sudo_user => $user,
);
} |
| Gloom-0.25 | Gloom | show |
| sub EXPORT_BASE {
return map { __PACKAGE__ . '::' .$_ }
qw(has WWW XXX YYY ZZZ);
} |
| GnaData-0.01 | GnaData::Conform | show |
| sub deconform {
} |
| GnaData-0.01 | GnaData::Read | show |
| sub write {
} |
| GnaData-0.01 | GnaData::Load::RDB | show |
| sub write {
} |
| Google-ProtocolBuffers-0.12 | 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.27 | 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 $a... |
| 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-Mozilla-0.11 | Graphics::ColorNames::Mozilla | show |
| sub NamesRgbTable() {
use integer;
return {
"aliceblue" => 0xF0F8FF,
"antiquewhite" => 0xFAEBD7,
"aqua" => 0x00FFFF,
"aquamarine" => 0x7FFFD4,
"azure" => 0xF0FFFF,
"beige" =>... |
| Graphics-Raylib-0.025 | Graphics::Raylib::Key | show |
| sub tonum {
my $self = shift;
return $self->keycode;
} |
| Graphics-Raylib-0.025 | Graphics::Raylib::Keyboard | show |
| sub exit_key {
if (@_) {
$EXIT_KEY = from_vinotation $_[0];
Graphics::Raylib::XS::SetExitKey($EXIT_KEY);
} else {
$EXIT_KEY
}
} |
| 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-23 | 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;
} |
| Guitar-Scale-0.06 | Guitar::Scale | show |
| sub pv {
my ($_key, $_t, $mode) = @_;
$_t ||= 'Minor';
my %type = (
'MitsuruMetal' => '201011010111',
'Aeolian' => '201101011010',
'Altered' => '210110111010',
'Algerian' => '201101111001',
... |
| 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);
} |
| HOI-Comprehensions-0.045 | HOI::Comprehensions | show |
| sub force {
my $self = shift;
if (not $self->{all_done}) {
my ($elt, $done);
do {
($elt, $done) = @{<$self>};
} while (not $done);
}
$self->{list}
} |
| 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.301 | 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.13 | 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.12 | HTML::Transmorgify::ConditionalsDebug | show |
| sub new { my $self = bless( {
'_precompiled' => 1,
'localvars' => '',
'startcode' => '',
'namespace' => 'Parse::RecDescent::HTML::Transmorgify::ConditionalsDebug',
... |
| HTML-Transmorgify-0.12 | 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.12 | 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.12 | HTML::Transmorgify::Conditionals | show |
| sub new { my $self = bless( {
'_precompiled' => 1,
'localvars' => '',
'startcode' => '',
'namespace' => 'Parse::RecDescent::HTML::Transmorgify::Conditionals',
... |
| HTML-Widgets-SelectLayers-0.07 | HTML::Widgets::SelectLayers | show |
| sub _safeonload {
<<END;
} |
| HTTP-DAV-0.49 | 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.69 | 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::Hierarchy | show |
| sub new
{
my ($pkg) = @_;
my $r_hash = $pkg->SUPER::new;
bless $r_hash, $pkg;
return $r_hash;
} |
| 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-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.07 | 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;
... |
| HubSpot-Client-0.1 | HubSpot::Client | show |
| sub _checkResponse
{
my $self = shift;
if($self->rest_client->responseCode !~ /^[23]|404/)
{
die ("Request failed.
Response Code: ".$self->rest_client->responseCode."
Response Body: ".$self->rest_client->responseContent."
");
}... |
| ICal-QuickAdd-1.00 | ICal::QuickAdd | show |
| sub get_dt {
my $self = shift;
return $self->{dt};
} |
| IETF-ACE-0.04 | 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-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-0.05 | 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-JpegTran-AutoRotate-0.04 | Image::JpegTran::AutoRotate | show |
| sub auto_rotate {
my ($from, $to) = @_;
-s $from or return;
my $exifTool = Image::ExifTool->new;
$exifTool->ExtractInfo($from) or return;
my $orientation = $exifTool->GetValue(Orientation => 'Raw') or return;
my %Transf... |
| 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-1.011 | 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-1.011 | 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.12 | 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::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::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::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::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::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::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::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::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::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
;
} |
| 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... |
| Keyword-Declare-0.001014 | Perl6::Loops | show |
| sub import {
keyword for {{{ foreach }}}
keytype OptIter is /my\s*\$\w+/;
keyword for (OptIter $iter = '', '(', '^', Int $max, ')') {{{ for <{$iter}> (0..<{$max-1}>) }}}
keyword for (ParensList $list, '->', CommaList $p... |
| 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::Installer | show |
| sub warn_config {
<<END . shift;
} |
| 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::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::WebFile | show |
| sub clear_files {
$self->files([]);
} |
| Kwiki-0.39 | Kwiki::Toolbar | show |
| sub order {
@{$self->config->toolbar_order};
} |
| 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::Icons | show |
| sub usage {
die "Don't use Kwiki::Icons directly. Use a subclass of it.";
} |
| Kwiki-0.39 | Kwiki::Plugin | show |
| sub new_preference {
$self->hub->preferences->new_preference(scalar(caller), @_);
} |
| Kwiki-0.39 | Kwiki::Theme | show |
| sub resolve_install_path {
sprintf shift, $self->theme_id;
} |
| 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::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::Command | show |
| sub usage {
warn <<END . $self->command_usage(" kwiki -%-20s # %s\n");
} |
| Kwiki-0.39 | Kwiki::Archive | show |
| sub revision_numbers {
my $page = shift;
[map $_->{revision_id}, @{$self->history($page)}];
} |
| 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-0.39 | Kwiki::Hub | show |
| sub action {
$self->cgi->action || 'display';
} |
| 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-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-Rcs-0.16 | Kwiki::Archive::Rcs | show |
| my sub oldest_decode {
my $string = shift;
if ($string =~ /^[\d\.]{7,}$/) {
return {edit_address => $string};
}
else {
return {edit_by => $string};
}
} |
| 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::Users::Remote | show |
| sub id {
exists $ENV{REMOTE_USER}
? $ENV{REMOTE_USER}
: $self->hub->config->user_default_name;
} |
| Kwiki-Users-Remote-0.04 | Kwiki::UserName::Remote | show |
| sub register {
my $registry = shift;
$registry->add( preload => 'user_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.3.9 | 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-Measurement-3.682 | Lab::Moose::Countdown | show |
| sub countdown {
my $delay = shift;
my $prefix = shift // "Sleeping for ";
if ( $delay < 0.5 ) {
sleep $delay;
return;
}
my $t1 = time();
my $autoflush = STDOUT->autoflush();
while () {
my $rem... |
| Lab-Measurement-3.682 | 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::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::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::Undef | show |
| sub toperl
{
return undef;
} |
| 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::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-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-2.0.5 | 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 ( $backend =~
/^Apache::Sessi... |
| Lemonldap-NG-Manager-2.0.5 | Lemonldap::NG::Manager::Attributes | show |
| sub attributes {
return {
'activeTimer' => {
'default' => 1,
'type' => 'bool'
},
'ADPwdExpireWarning' => {
'default' => 0,
'type' => 'int'
},
... |
| 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-Ogmios-0.011 | Lingua::Ogmios::NLPWrappers::PatternParser | show |
| sub _Lexer {
my($parser)=shift;
my $fh = $parser->YYData->{FH};
my $semtype = '(@semtype\(([^\)]+)\))';
my $openchunk = '(\[)';
my $closechunk = '(\])';
my $syn_dep = '(@syndep\(([^\)]+)\))';
my $postag = '(@postag\(([^... |
| Lingua-PT-Speaker-0.12 | Lingua::PT::Speaker | show |
| sub silabas {
my $word = shift;
return split '\|', wordaccent($word);
} |
| 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-Phonology-0.352 | Lingua::Phonology::RuleParser | show |
| sub new { my $self = bless( {
'_AUTOTREE' => undef,
'localvars' => '',
'startcode' => '',
'_check' => {
'thisoffset' => '',
... |
| Lingua-TT-0.12 | Lingua::TT::DBx::Document | show |
| sub putIO {
$_[0]->putDocument($_[1]->getDocument);
} |
| Lingua-YaTeA-0.626 | 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... |
| List-NSect-0.06 | List::NSect | show |
| sub spart {
my $parts = shift || 0;
my @deck = ();
if ($parts > 0) {
my $i = 0;
@deck = part {int($i++ / $parts)} @_; #/
}
return wantarray ? @deck : \@deck;
}
sub deal {
my $hands = shift || 0;
my @deck = ();
if ($hands >... |
| List-Objects-WithUtils-2.028003 | List::Objects::WithUtils::Role::Array | show |
| sub ssect {
my ($self, $per) = @_;
my @parts;
my $x = 0;
if ($per) {
CORE::push @{ $parts[ int($x++ / $per) ] }, $_ for @$self;
}
my $cls = blessed_or_pkg($self);
$cls->new( map {; $cls->new(@$_) } @parts )
}
sub tuples {
my ($s... |
| 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-Agent-1.003 | Log::Agent::Driver::Mail | show |
| sub prefix_msg {
my($self, $str) = @_;
return ($self->{prefix} ? $self->{prefix} . ' ' : '') . $str;
} |
| Log-Agent-1.003 | 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-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-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-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-2.01 | Log::Dispatch::TkText | show |
| sub log {
my ($dw,%params) = @_;
if (not $params{hide_label}) {
$dw->insert('end',"$params{level}\n", [$params{level}, 'label' ]);
}
$dw->insert('end',"$params{message}\n", [$params{level}, 'message' ]);
} |
| Log-Dispatch-Tk-2.01 | Log::Dispatch::ToTk | show |
| sub all_levels
{
my $self = shift;
return @{$self->{level_names}}[$self->{min_level} .. $self->{max_level}] ;
} |
| Log-FileSimple-0.02 | Log::FileSimple | show |
| sub mask { my $s = shift; if (@_) { $s->{mask} = shift; } return $s->{mask}; } |
| Log-Log4perl-1.49 | Log::Log4perl::NDC | show |
| sub remove {
@NDC_STACK = ();
} |
| 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-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-Saftpresse-1.6 | Log::Saftpresse::Log4perl | show |
| sub level {
my ( $class, $level ) = @_;
$log->level( $OFF );
$log->more_logging( $level );
return;
} |
| 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.09 | Log::WarnDie | show |
| sub unimport { import( undef ) } |
| 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-Charset-1.012.2 | MIME::Charset::UTF | show |
| sub encode {
my $self = $_[0];
if ($self->name =~ /16/) {
return Encode::find_encoding('UTF-16')->encode($_[1], $_[2]);
} elsif ($self->name =~ /32/) {
return Encode::find_encoding('UTF-32')->encode($_[1], $_[2]);
} else {
... |
| MIME-Lite-HTML-1.24 | MIME::Lite::HTML | show |
| sub errstr {
my($self) = @_;
return @{$self->{_ERRORS}} if ($self->{_ERRORS});
return ();
} |
| MIME-Signature-0.15 | MIME::Signature | show |
| sub __test_version {
my $v = __PACKAGE__->VERSION;
return 1 if $version_pod =~ m/^Version \Q$v\E$/m;
return;
} |
| MIME-tools-5.509 | 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::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-Info-1.00 | MPEG::Info::Video | show |
| sub get_header_size {
my $self = shift;
$self->{header_size} = $self->{last_offset} - $self->{offset};
} |
| 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... |
| Magrathea-API-v1.6.0 | Magrathea::API::Abbreviation | show |
| sub abbreviate($)
{
my $check = shift;
local $_;
my $wanted = autoformat $check, {
case => 'highlight'
};
$wanted =~ s/\s*$//;
study $wanted;
while (<DATA>) {
chomp;
s/#.*//;
next if /^$... |
| Magrathea-API-v1.6.0 | Magrathea::API::Status | show |
| sub DESTROY { } |
| Mail-Audit-2.228 | 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::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::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::RecipientFlags | show |
| sub recipOriginal { return 0x0100; } |
| Mail-Exchange-0.04 | Mail::Exchange::Message::MessageFlags | show |
| sub mfUntrusted { return 0x8000; } |
| 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.42 | Mail::IMAPClient::Thread | show |
| sub new { my $self = bless( {
'_AUTOTREE' => undef,
'_AUTOACTION' => undef,
'namespace' => 'Parse::RecDescent::Mail::IMAPClient::Thread',
'startcode' => '',
'... |
| Mail-IMAPClient-3.42 | Mail::IMAPClient::BodyStructure::Parse | show |
| sub new { my $self = bless( {
'localvars' => '',
'startcode' => '',
'rules' => {
'envelopestruct' => bless( {
... |
| Mail-IspMailGate-1.1013 | Mail::IspMailGate::Filter::Dummy | show |
| sub doFilter($$) {
'';
} |
| Mail-LMLM-0.6806 | 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.6806 | Iglu::LMLM::Types::Linuxology | show |
| sub render_owner
{
my $self = shift;
my $htmler = shift;
return $self->render_something_with_subject($htmler, "comments");
} |
| Mail-LMLM-0.6806 | 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_docu... |
| Mail-Mailer-smtp_auth-0.02 | Mail::Mailer::smtp_auth | show |
| sub PRINT {
my $self = shift;
my $sock = $$self;
$sock->datasend( @_ );
} |
| Mail-Mbox-MessageParser-1.5111 | Module::Install::PRIVATE::Configure_Programs | show |
| sub Update_Config
{
my $filename = shift;
my %locations = %{ shift @_ };
my $code = read_binary($filename);
foreach my $program (keys %locations)
{
if (defined $locations{$program}{'path'})
{
$locations{$program}{'path'} = "\'$lo... |
| 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-SpamAssassin-3.4.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... |
| Makefile-Update-0.4 | Makefile::Update::Bakefile0 | show |
| sub update_bakefile_0
{
my ($in, $out, $vars) = @_;
my $var;
my %files;
my $changed = 0;
while (<$in>) {
chomp;
if (/<set var="(\w+)" hints="files">/ && exists $vars->{$1}) {
$var = $1;
... |
| Makefile-Update-0.4 | Makefile::Update::MSBuild | show |
| sub update_msbuild_filters
{
my ($in, $out, $sources, $headers, $filter_cb) = @_;
if (!defined $filter_cb) {
$filter_cb = sub {
my ($file) = @_;
return 'Source Files' if $file =~ q{\.c(c|pp|xx|\+\+)?$};
... |
| Makefile-Update-0.4 | Makefile::Update::CMakefile | show |
| sub update_cmakefile
{
my ($in, $out, $vars) = @_;
my $var;
my %files;
my $changed = 0;
while (<$in>) {
my $line_orig = $_;
chomp;
s/^\s+//;
s/\s+$//;
s/ *#.*$//;
if (defined $... |
| Makefile-Update-0.4 | Makefile::Update::Makefile | show |
| sub update_makefile
{
my ($in, $out, $vars) = @_;
my ($var, $makevar);
my %files;
my @values;
my $sorted = 1;
my %src_exts;
my $make_ext;
sub _get_ext { $_[0] =~ /(\.\S+)$/ ? $1 : undef }
my ($indent, $tail, $la... |
| Makefile-Update-0.4 | Makefile::Update::VCProj | show |
| sub update_vcproj
{
my ($in, $out, $sources, $headers, $filter_cb) = @_;
if (!defined $filter_cb) {
$filter_cb = sub {
my ($file) = @_;
return 'Source Files' if $file =~ q{\.c(c|pp|xx|\+\+)?$};
return ... |
| MarpaX-ESLIF-3.0.18 | MarpaX::ESLIF::Grammar::Rule::Properties | show |
| sub getHideseparator {
goto &isHideseparator
} |
| MarpaX-ESLIF-3.0.18 | MarpaX::ESLIF::Grammar::Symbol::Properties | show |
| sub getIfAction {
my ($self) = @_;
return $self->{ifAction}
} |
| 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-GoldenBigMath-0-804 | Math::GoldenBigMath | show |
| sub CalcDivisionWithoutSignPointAndExponent {
my $gbm1 = shift;
my $z1 = $gbm1;
my $z2 = shift;
$z1->prepareMulDiv($z2);
my @mulTab = $gbm1->ConvertMultiplicationTableToGoldenBigMath();
my $maxDivDigits = $gbm1-... |
| Math-HashSum-0.02 | Math::HashSum | show |
| sub hashsum {
my %sum;
while (@_) {
my $key = shift;
$sum{$key} += shift;
}
%sum;
} |
| Math-Lapack-0.002 | Math::Lapack::Matrix | show |
| sub matrix_id {
my $self = shift;
if (exists $self->{_matrix}) {
return $self->{_matrix};
}
die "Matrix id requested, but not available...";
} |
| Math-PlanePath-127 | Math::SquareRadical | show |
| sub mul {
my ($self, $other) = @_;
if (blessed($other) && $other->isa('Math::SquareRadical')) {
my $root1 = $self->[2];
my $root2 = $other->[2];
if ($root1 % $root2 == 0) {
my $g2 = $root1/$root2;
my $g = sqrt($g2);
... |
| Math-Random-Zipf-0.11 | Math::Random::Zipf | show |
| sub cdf_ref {
return shift->{cdf};
} |
| Math-String-1.29 | Math::String | show |
| sub modify
{
$_[0]->{_cache} = undef;
0;
} |
| Math-String-1.29 | 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.29 | 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.29 | 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-1.29 | 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-Charset-Wordlist-0.09 | 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.41 | 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::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-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::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-GeneXplorer-0.11 | Microarray::DataMatrix | show |
| sub allowedOperators{
my ($self) = @_;
return (sort keys %kAllowedOperators);
} |
| Mira-00.07.56 | Mira::Control::Parser::MiraMarkdown | show |
| sub _code_block {
my ($self, $text) = @_;
my $less_than_tab = $self->{tab_width} - 1;
while ($text =~ m{
^((?<spaces>[ \t]*)```) # ^([ ]{0,$less_than_tab}```)
[ \t]*(?<class>.*)?$
(?<code>[\w\W]*?)
... |
| Mo-0.40 | 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... |
| Mock-Sub-1.09 | Mock::Sub::Child | show |
| sub _end {} |
| 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.4229 | 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-Build-Xilinx-0.13 | App::mbxilinx | show |
| sub process {
my ($self, $yml) = @_;
my $data = LoadFile($yml);
die "YAML data is not a hash reference" unless ref $data eq 'HASH';
my $build = Module::Build::Xilinx->new(%$data);
$build->create_build_script;
1;
} |
| Module-Dependency-1.86 | Module::Dependency::Info | show |
| sub TRACE { } |
| Module-ExtractUse-0.343 | Module::ExtractUse::Grammar | show |
| Module-Install-Pod-Inherit-0.01 | Module::Install::Pod::Inherit | show |
| sub PodInherit {
my ($self) = @_;
$self->postamble(<<"EOPOST");
} |
| Module-Install-RTx-0.40 | Module::Install::RTx::Remove | show |
| sub RTxRemove {
my $remove_files = shift;
foreach my $file (@$remove_files){
next unless -e $file;
print "Removing $file\n";
unlink($file) or warn "Could not unlink $file: $!";
}
} |
| 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.73 | 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-... |
| Mojo-UserAgent-Mockable-1.56 | Mojo::UserAgent::Mockable::Proxy | show |
| sub detect {
return;
} |
| Mojo-Webqq-2.2.7 | Mojo::Webqq::Plugin::ProgramCode | show |
| sub call{
my $client = shift;
my $data = shift;
my $callback = sub{
my($client,$msg)=@_;
if ($msg->content =~ m/^code\s*\|\s*([a-zA-z]+?)\s*>>>(.*)/s) {
my $language = $1;
my $code = $2;
... |
| Mojolicious-Command-generate-upstart-0.02 | Mojolicious::Command::generate::upstart | show |
| sub user_is_root { $> == 0 || $< == 0 } |
| Mojolicious-Plugin-AdvancedMod-0.38 | Mojolicious::Command::am | show |
| sub _usage {
return <<USAGE;
} |
| Mojolicious-Plugin-StaticShare-0.074 | Mojolicious::Plugin::StaticShare | show |
| sub parse { my $self = shift; no strict 'refs'; ($self->{pkg}.'::markdown')->(@_); } |
| 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::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::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::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::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::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::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::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::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::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::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::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::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::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::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::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);
} |
| 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::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' => ... |
| Monitoring-GLPlugin-3.0.2.6 | Monitoring::GLPlugin::DB::DBI | show |
| sub add_dbi_funcs {
my ($self) = @_;
$self->SUPER::add_dbi_funcs();
{
no strict 'refs';
*{'Monitoring::GLPlugin::DB::fetchall_array'} = \&{"Monitoring::GLPlugin::DB::DBI::fetchall_array"};
*{'Monitoring::GLPlugin::DB::fetchrow_array'}... |
| 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::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-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-DIC-0.5.0 | MooseX::DIC::Configuration::Code | show |
| sub _get_meta_from_package {
my ($self,$package_name) = @_;
load $package_name;
my $injectable_role =
reduce {$a}
grep { $_->{package} eq 'MooseX::DIC::Injectable' }
$package_name->meta->calculate_all_roles_with_inheritance;
PackageI... |
| 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-0.50 | MooseX::Types | show |
| sub check_export_generator {
my ($class, $type, $full, $undef_msg) = @_;
return sub {
my ($value) = @_;
my $tobj = find_type_constraint($full) or croak $undef_msg;
return $tobj->check($value);
}
} |
| 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;
} |
| Moot-2.0.14 | Moot::Waste::Annotator | show |
| sub sink {
my $wd = shift;
$wd->_set_sink(@_) if (@_);
return $wd->_get_sink();
} |
| Moot-2.0.14 | Moot::Waste::Lexicon | show |
| sub from_array {
my $lx = shift;
$lx->insert($_) foreach (map {ref($_) && ref($_) eq 'ARRAY' ? @$_ : $_} @_);
return $lx;
} |
| Moot-2.0.14 | Moot::Waste::Lexer | show |
| sub get_sentence {
confess(__PACKAGE__, "::get_sentence() method not supported");
} |
| Moot-2.0.14 | Moot::Waste::Decoder | show |
| sub sink {
my $wd = shift;
$wd->_set_sink(@_) if (@_);
return $wd->_get_sink();
} |
| 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.281 | 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_regexe... |
| MyCPAN-App-DPAN-1.281 | 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 ) };
$reporter_logger->error( "Couldn't create CHECKSUMS for $dir: $@" ) if $@;
$report... |
| 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::Entry | show |
| sub DESTROY
{
} |
| NISPlus-0.06-alpha | Net::NISPlus::Group | show |
| sub DESTROY
{
} |
| NNexus-2.0.3 | NNexus::Index::Mathhub | show |
| sub request_interval { 1; } |
| NVDefined-0.02 | NVDefined | show |
| sub NVDefined {
my($hashref) = shift;
Hash::NoVivify::Defined($hashref, @_);
} |
| 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-AWS-SES-0.04 | Net::AWS::SES | show |
| sub get_dkim_attributes {
my $self = shift;
my @identities = @_;
my %call_args = ();
for ( my $i = 0 ; $i < @identities ; $i++ ) {
my $id = $identities[$i];
$call_args{ 'Identities.member.' . ( $i + 1 ) } = $id;
... |
| Net-Amazon-S3-0.86 | Shared::Examples::Net::Amazon::S3::Error | show |
| sub fixture_error_no_such_key {
_error_fixture NoSuchKey => HTTP::Status::HTTP_NOT_FOUND;
} |
| Net-Async-Webservice-UPS-1.1.4 | Net::Async::Webservice::UPS::Response::Utils | show |
| sub base64_if {
return ($_[0],decode_base64($_[1])) if $_[1];
return;
} |
| Net-BGP-0.17 | Net::BGP::ASPath | show |
| sub _length_helper {
my ($this, $path) = @_;
my $res = 0;
foreach my $p (@{ $path }) {
$res += $p->length;
}
return $res;
} |
| Net-CIDR-0.20 | Net::CIDR | show |
| sub _triml0 {
my ($a) = @_;
$a =~ s/^0+//g;
$a = "0" if $a eq '';
return $a
} |
| 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-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.500 | Net::IDN::UTS46::_Mapping | show |
| sub MapMapped { my $l = shift;
$l =~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZª\x{00B2}\x{00B3}µ\x{00B9}ºÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞĀĂĄĆĈĊČĎĐĒĔĖĘĚĜĞĠĢĤĦĨĪĬĮĴĶĹĻĽŁŃŅŇŊŌŎŐŒŔŖŘŚŜŞŠŢŤŦŨŪŬŮŰŲŴŶŸŹŻŽſƁƂƄƆƇƉƊƋƎƏƐƑƓƔƖƗƘƜƝƟƠƢƤƦƧƩƬƮƯƱƲƳƵƷƸƼǍǏǑǓǕǗǙǛǞǠǢǤǦǨǪǬǮǴǶǷǸǺǼǾȀȂȄȆȈȊȌȎȐ... |
| Net-IMP-HTTP-0.523 | Net::IMP::HTTP::Example::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-IMP-Remote-0.009 | Net::IMP::Remote::Protocol | show |
| sub load_implementation {
shift;
my $impl = shift || 'Storable';
$impl = "Net::IMP::Remote::$impl";
$impl =~m{^[\w:]+$} and eval "require $impl"
or croak("bad wire implementation $impl: $@");
return $impl;
} |
| Net-IP-Checker-0.03 | Net::IP::Checker | show |
| sub ip_is_ipv6 {
my $ip = shift;
return $ip =~ /^$IPv6_re$/ ? 1 : 0;
} |
| 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.604 | Net::IdentServer | show |
| sub process_request {
my $this = shift;
my $master_alarm = alarm 10;
local $SIG{ALRM} = sub { die "\n" };
eval {
while( my $input = <STDIN> ) {
$input = "" unless $input;
$input =~ s/[\x0d\x0a]+\z... |
| Net-MQTT-1.163170 | 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-Netconf-1.05 | Net::Netconf::TestDevice | show |
| sub ssh_close : Test(shutdown=>3)
{
my $isclose=$jnx->close_session();
print "disconnect value is $isclose";
cmp_ok(index ($isclose, "rpc-reply"), '>', -1);
cmp_ok(index($isclose, "ok"), '>', -1);
is(index($isclose,"rpc-error"), -1, "No error ... |
| Net-Netconf-1.05 | Net::Netconf::EzEditXML | show |
| sub toString {
my $self = shift;
return $self->{I_AM_NODE}->toString(1);
} |
| 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-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-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::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-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-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::RR | 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::Entry | 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-SSH-Any-0.10 | Net::SSH::Any::Test::Isolated::Util | show |
| sub _serialize {
my $dump = Data::Dumper->new([@_], ['DATA']);
$dump->Terse(1)->Purity(1)->Indent(0)->Useqq(1);
return $dump->Dump;
} |
| Net-Simplify-1.5.0 | Net::Simplify::Jws | show |
| sub _auth_error {
my ($msg) = @_;
croak(Net::Simplify::AuthenticationException->new($msg));
} |
| 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-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::bytes | show |
| sub encode {
my $self = shift;
'{'. length($$self). '}'. $$self;
} |
| 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::boolean | show |
| sub encode {
my $self = shift;
$$self ? '/T' : '/F';
} |
| 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-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.21 | Net::Z3950::OID | show |
| sub appxml { $prefix . '109.11' } |
| Net-Zemanta-0.7 | Net::Zemanta::Preferences | show |
| sub get {
my $self = shift;
return $self->execute();
} |
| Net-Zemanta-0.7 | 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... |
| Netdot-Client-REST-1.03 | 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-3.5001 | Number::Phone | show |
| sub _make_stub_object {
my ($class, $number, $country_name) = @_;
die("no module available for $country_name, and nostubs turned on\n") if($NOSTUBS);
my $stub_class = "Number::Phone::StubCountry::$country_name";
eval "use $stub_class";
if($@) {
... |
| 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.1 | ORM::TjoinNull | show |
| sub null_class { shift->{null_class}; } |
| ORM-0.85.1 | ORM::DbResultSet | show |
| sub result_tables
{
die "You forget to override 'result_tables' in '$_[0]'";
} |
| ORM-0.85.1 | 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.1 | ORM::ResultSet | show |
| sub amount
{
my $self = shift;
$self->{result}->rows;
} |
| ORM-0.85.1 | ORM::Order | show |
| sub conds_amount
{
my $self = shift;
return scalar @{$self->{order}};
} |
| ORM-0.85.1 | ORM::StatResultSet | show |
| sub amount
{
my $self = shift;
$self->{result}->rows;
} |
| ORM-0.85.1 | ORM::Error | show |
| sub fatal { $_[0]->{fatal}; } |
| ORM-0.85.1 | ORM::Datetime | show |
| sub earlier24h { shift->new_epoch( time-24*60*60 ); } |
| ORM-0.85.1 | 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.1 | ORM::Expr | show |
| sub _autoshift { ( ! ref $_[0] && shift @_ ); @_; } |
| ORM-0.85.1 | 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.1 | ORM::Db | show |
| sub rollback_transaction
{
die "You forget to override 'rollback_transaction' method in '$_[0]'";
} |
| ORM-0.85.1 | ORM::MetapropBuilder | show |
| sub DESTROY
{
} |
| ORM-0.85.1 | ORM::Db::DBI | show |
| sub _func_concat { shift; ORM::Filter::Cmp->new( '||', @_ ); } |
| ORM-0.85.1 | ORM::Db::DBIResultSet | show |
| sub result_tables
{
my $self = shift;
$self->{tables};
} |
| ORM-0.85.1 | ORM::Db::DBIResultSetFull | show |
| sub add_row
{
my $self = shift;
my $row = shift;
push @{$self->{rows}}, $row;
} |
| ORM-0.85.1 | ORM::Db::DBI::MySQL | show |
| sub _func_concat { shift; ORM::Filter::Func->new( 'CONCAT', @_ ); } |
| ORM-0.85.1 | ORM::Db::DBI::MySQLemTa | show |
| sub _func_concat { shift; ORM::Filter::Func->new( 'CONCAT', @_ ); } |
| ORM-0.85.1 | 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.1 | ORM::Db::DBI::SQLite | show |
| sub _lost_connection
{
my $self = shift;
my $err = shift;
defined $err && ( $err == 2006 || $err == 2013 );
} |
| ORM-0.85.1 | 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.1 | 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.1 | ORM::Meta::ORM::History | show |
| sub delete_slave { shift->slaved_by->prop_name eq 'id'; } |
| ORM-0.85.1 | 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
... |
| ORM-0.85.1 | 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.1 | 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.1 | ORM::Filter::Case | show |
| sub add_case
{
my $self = shift;
my $case = shift;
push @{$self->{case}}, $case;
} |
| ORM-0.85.1 | 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.1 | 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;
} |
| OS-Package-0.2.7 | OS::Package::Role::Build | show |
| sub build {
my $self = shift;
my $template = Path::Tiny->tempfile;
my $temp_sh = sprintf '%s/install.sh', $self->artifact->workdir;
my $vars = {
FAKEROOT => $self->fakeroot,
WORKDIR => $self->artifa... |
| Object-Dependency-0.41 | Object::Dependency | show |
| sub dump_graph_string
{
my ($self) = @_;
my $r = sprintf "Dependency Graph, alldone=%d\n", $self->alldone;
my %desc;
for my $addr (sort (keys %{$self->{addrmap}}, keys %{$self->{stuck}})) {
$desc{$addr} = $self->desc($addr);
}
for my ... |
| 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... |
| OpenGL-Modern-0.04 | OpenGL | show |
| sub import {
my ( undef, @args ) = @_;
$args[0] = ':all' if $args[0] eq ':constants';
my $target = caller;
OpenGL::Modern->import::into( $target, @args );
} |
| OpenGbg-0.1404 | OpenGbg::Service::AirQuality::Measurement | show |
| sub air_quality_to_text {
my $self = shift;
no warnings 'numeric';
return sprintf qs{
Total index: [ %4s ] [ %-16s ]
Nitrogen dioxide: %7.2f %s [ %4s ] [ %-16s ]
Nitrogen oxides: %... |
| OpenPlugin-0.11 | OpenPlugin::Exception::Template | show |
| sub get_fields {
return ( $_[0]->SUPER::get_fields, @FIELDS );
} |
| OpusVL-AppKit-2.29 | OpusVL::AppKit::Controller::AppKit | show |
| sub auto
: Action
: AppKitFeature('Password Change,User Administration,Role Administration')
{
my ($self, $c) = @_;
} |
| OpusVL-AppKit-2.29 | OpusVL::AppKit::Controller::Search | show |
| sub index :Path
: AppKitFeature('Search box')
{
my ($self, $c) = @_;
$c->_appkit_stash_searches($c->req->param('q'));
$c->stash->{query} = $c->req->param('q');
} |
| OpusVL-AppKit-2.29 | OpusVL::AppKit::Controller::AppKit::Admin | show |
| sub index
: Path
: Args(0)
: AppKitFeature('Role Administration,User Administration,Password Change')
{
my ( $self, $c ) = @_;
} |
| OpusVL-AppKit-2.29 | OpusVL::AppKit::Controller::AppKit::User | show |
| sub change_password
: Path('changepword')
: Args(0)
: AppKitForm("appkit/user/change_password.yml")
: AppKitFeature('Password Change')
{
my ($self, $c ) = @_;
if ( $c->stash->{form}->submitted_and_valid )
{
my... |
| OpusVL-AppKit-2.29 | OpusVL::AppKit::Controller::AppKit::Admin::Access | show |
| sub edit_descriptions
: Local
: AppKitFeature('Feature Documentation')
: AppKitForm
{
my ($self, $c) = @_;
my $form = $c->stash->{form};
my @features = $c->model('AppKitAuthDB::Aclfeature')->sorted->all;
my $cou... |
| OpusVL-AppKit-2.29 | OpusVL::AppKit::Controller::AppKit::Admin::Users | show |
| sub get_parameter_input
: Chained('user_specific')
: PathPart('addparaminput')
: Args(1)
: AppKitFeature('User Administration')
{
my ( $self, $c, $param_id ) = @_;
my $param = $c->model('AppKitAuthDB::Parameter')->find( $par... |
| OpusVL-AppKit-2.29 | OpusVL::AppKit::Plugin::AppKit | show |
| sub generate_class_name
{
my $self = shift;
my $var = shift;
$var =~ s/\W+//;
return lc $var;
} |
| 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(@_);
} |
| PAR-Packer-1.049 | pp | show |
| sub version {
print << ".";
exit;
} |
| PAR-Packer-1.049 | 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.049 | 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,
... |
| PAR-Packer-1.049 | 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... |
| PApp-2.1 | PApp::HTML | show |
| sub parse_params($) {
map { /([^=]+)(?:=(.*))?/ and (unescape $1, unescape $2) } split /[&;]/, $_[0];
} |
| PApp-2.1 | PApp::Lock | show |
| sub DESTROY {
$self->unlock while $self->{locked};
} |
| PApp-2.1 | PApp::DataRef | show |
| sub DESTROY { } |
| PApp-2.1 | 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.1 | 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.11 | 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::Ttc | show |
| sub DESTROY
{
my ($self) = @_;
close ($self->{' INFILE'});
undef;
} |
| 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::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::Dict | show |
| sub val
{ $_[0]; } |
| 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-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-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.36 | 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... |
| PDL-2.019 | PDL::Demos::Routines | show |
| sub output {print @_} |
| PDL-2.019 | 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.019 | C::Var | show |
| sub freecode {
} |
| PDL-2.019 | PDL::IO::HDF | show |
| sub DESTROY
{
my $self = shift;
$self->close;
} |
| PDL-2.019 | 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.019 | 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.019 | PDL::Graphics::TriD::Basic | show |
| sub add_transformation {
my($this,$trans) = @_;
push @{$this->{Transforms}},$trans;
} |
| PDL-2.019 | PDL::Graphics::TriD::OOGL | show |
| sub twiddle {
} |
| 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;
... |
| 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 => ... |
| PDLA-Core-2.019107 | PDLA::Demos::Routines | show |
| sub output {print @_} |
| PDLA-Core-2.019107 | PDLA::PP::Rule | show |
| sub translate {
my ($pars,$tbl) = @_;
foreach my $rule (@$tbl) {
$rule->apply($pars);
}
print "GOING OUT!\n" if $::PP_VERBOSE;
return $pars;
} |
| PDLA-IO-HDF-2.019102 | PDLA::IO::HDF | show |
| sub DESTROY
{
my $self = shift;
$self->close;
} |
| PDLA-Rest-2.019106 | PDLA::Demos::Routines | show |
| sub output {print @_} |
| PDLA-Rest-2.019106 | PDLA::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->{... |
| PDLA-Rest-2.019106 | PDLA::Filter::Linear | show |
| sub new($$) {
my($type,$deg,$nleft,$nright) = @_;
my $npoints = $nright + $nleft + 1;
my $x = ((PDLA->zeroes($npoints )->xvals) - $nleft)->float;
my $mat1 = ((PDLA->zeroes($npoints,$deg+1)->xvals))->float;
for(0..$deg-1) {
(my $tm... |
| PDLA-Rest-2.019106 | PDLA::Graphics::TriD::Basic | show |
| sub add_transformation {
my($this,$trans) = @_;
push @{$this->{Transforms}},$trans;
} |
| PDLA-Rest-2.019106 | PDLA::Graphics::TriD::OOGL | show |
| sub twiddle {
} |
| 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 ***");
} |
| PGPLOT-Device-0.09 | PGPLOT::Device::PGWin | show |
| sub finish
{
my ( $self ) = @_;
if ( defined $self->{win} )
{
pgask(1) if $self->{device}->is_ephemeral;
$self->{win}->close;
}
} |
| PGXN-Site-v0.10.3 | PGXN::Site::Templates | show |
| sub _obscure ($) {
my $addr = shift;
my @encode = (
sub { '&#' . ord(shift) . ';' },
sub { '&#x' . sprintf( "%X", ord(shift) ) . ';' },
sub { shift },
);
$addr... |
| PHP-Functions-Password-1.07 | PHP::Functions::Password | show |
| sub _en_base64 {
my $proto = @_ && UNIVERSAL::isa($_[0],__PACKAGE__) ? shift : __PACKAGE__;
my $octets = shift;
my $text = encode_base64($octets, '');
$text =~ tr#A-Za-z0-9+/=#./A-Za-z0-9#d;
return $text;
} |
| PITA-Test-Image-Qemu-0.41 | PITA::Test::Image::Qemu | show |
| sub filename {
File::ShareDir::dist_file('PITA-Test-Image-Qemu', 'qemu.img');
} |
| PLP-3.25 | Test::PLP | show |
| sub plp_ok {
local $Test::Builder::Level = $Test::Builder::Level + 1;
plp_is(_getplp(@_));
} |
| 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... |
| PMLTQ-3.0.2 | Parse::RecDescent::_Runtime | show |
| sub new { my $self = bless( {
'namespace' => 'Parse::RecDescent::_Runtime::PMLTQ::_Parser',
'rules' => {
'optional_nested_selector' => bless( {
... |
| 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.949 | 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-Filter-Bzip2-1.60 | POE::Filter::Bzip2 | show |
| sub clone {
my $self = shift;
my $nself = { };
$nself->{$_} = $self->{$_} for keys %{ $self };
$nself->{BUFFER} = [ ];
return bless $nself, ref $self;
} |
| POE-XUL-0.0601 | 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.98 | POSIX::1003::Pathconf | show |
| sub pathconf_names() { keys %$pathconf } |
| PPIx-Refactor-0.10 | SomePackage | show |
| sub my_method {
my ($self, $args) = @_;
$args->{this}->{that}->{other} =
{ abcd => 'goldfish',
mno => [qw/goldfish/],
rdr => { goldfish => 'poem' }
};
if ($args->{thing}) {
$args... |
| 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->{$_} . '"'... |
| 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... |
| PXP-0.1.2 | PXP::PluginRegistry | show |
| sub _getRegisteredPlugin {
my $id = shift || '';
return $plugins->{$id};
} |
| Padre-Plugin-HG-0.17 | 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-HG-0.17 | 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.17 | 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-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");
} |
| Pandoc-Elements-0.38 | Pandoc::Document::Element | show |
| sub match_simple {
my ( $self, $selector ) = @_;
$selector =~ s/^\s+|\s+$//g;
return 0
if $selector =~ s/^([a-z]+)\s*//i and lc($1) ne lc( $self->name );
return 1 if $selector eq '';
if ( $selector =~ s/^:(document|block|inl... |
| Pandoc-Elements-0.38 | Pandoc::Filter::HeaderIdentifiers | show |
| sub InPandocHeaderIdOrWs {
return "+utf8::Whitespace\n+utf8::Letter\n-utf8::Uppercase_Letter\n-utf8::Titlecase_Letter\n0030 0039\n005F\n002d 002e\n";
} |
| Pandoc-Elements-0.38 | Pandoc::Filter::Multifilter | show |
| sub apply_filter {
my ($doc, $format, @filter) = @_;
my $stdin = $doc->to_json;
my $stdout = "";
my $stderr = "";
run3 [@filter, $format // ''], \$stdin, \$stdout, \$stderr;
if ($?) {
$stderr .= "\n" if $stderr ne '' ... |
| ParallelUserAgent-2.62 | 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.15 | 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-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-MIME-1.005 | 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 {
... |
| Password-Policy-Rule-Pwned-0.02 | Password::Policy::Rule::Pwned | show |
| sub check {
my $self = shift;
my $password = $self->prepare (shift);
my $hash = uc sha1_hex ($password);
my $range = substr ($hash, 0, 5, '');
my $url = $base_url . $range;
my $res = LWP::UserAgent->new (agent => $ua, t... |
| Password-Policy-Rule-Pwned-0.02 | Password::Policy::Exception::Pwned | show |
| sub error { return 'The specified password has been pwned'; } |
| 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 |
| Penguin-3.00 | Penguin::Frame::Data | show |
| sub type {
"Data";
} |
| Penguin-3.00 | Penguin::Frame::Code | show |
| sub type {
"Code";
} |
| 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... |
| 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;
} |
| Perinci-Examples-Bin-Any-0.06 | Perinci::Examples::Bin::Any::Multi | show |
| sub subtract {
my %args = @_;
my $a1 = $args{a1}; defined($a1) or die [400, "Please specify arg1"];
$a1 =~ /\A[+-]?\d+\z/ or die [400, "Invalid arg1 (not an int)"];
my $a2 = $args{a2}; defined($a2) or die [400, "Please specify arg2"];
... |
| 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::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"} =... |
| Perl-RPM-1.51 | RPM::Header | show |
| Perl6-Bible-0.37 | Perl6::Bible | show |
| sub process {
my $self = shift;
print <<_;
} |
| Perl6-Controls-0.000007 | Perl6::Controls | show |
| sub import {
keyword for {{{ foreach }}}
keytype OptIter is /(?:my|our|state)\s*\$\w+/;
keyword for (OptIter $iter = '', '(', '^', Int $max, ')') {{{ for <{$iter}> (0..<{$max-1}>) }}}
keyword for (ParenthesesList $list, '-... |
| 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 | P6RulesInP5::Match | show |
| sub get_array {
my ( $self ) = @_;
return $self->capture();
} |
| 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 | 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 | 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 | 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-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";
}
} |
| PerlGuard-Agent-0.15 | PerlGuard::Agent::Frameworks::CGIApplication | show |
| sub import {
my $c = scalar(caller);
$c->add_callback('init', sub {
});
$c->add_callback('prerun', sub {
my $controller_instance = shift;
$controller_instance->{'PerlGuard::Profile'} = &perlguard_agent($controller_instance)-&g... |
| PerlIO-via-Logger-1.01 | PerlIO::via::Logger | show |
| sub import {
my ($class,%param) = @_;
$class->$_( $param{$_} ) foreach keys %param;
} |
| PerlIO-via-PrepareCP1251-0.02 | PerlIO::via::PrepareCP1251 | show |
| sub WRITE {
my ( undef, $line, $handle ) = @_;
utf8::decode $line;
my $out = join q{},
map { _convert_symbol($_) }
split m//, $line;
return ( print {$handle} $out ) ? length($line) : -1;
} |
| PerlIO-via-QuotedPrint-0.08 | PerlIO::via::QuotedPrint | show |
| sub WRITE {
return ( print { $_[2] } MIME::QuotedPrint::encode_qp( $_[1] ) )
? length( $_[1] )
: -1;
} |
| 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::Reader | show |
| sub _all_filehandle {
my $filehandle = $self->filehandle;
local $/;
return <$filehandle>;
} |
| 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::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);
} |
| 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 { $_-... |
| Perlito5-9.028 | Perlito5::Grammar | show |
| sub exp_stmts {
my $str = $_[0];
my $pos = $_[1] // 0;
if (!ref($str)) {
$str = [ split("", $str) ];
}
push @PKG, $Perlito5::PKG_NAME;
if ($pos == 0) {
my $m = Perlito5::Grammar::Space::start_of_line($str, $pos)... |
| Perlito5-9.028 | Perlito5::CompileTime::Closure | show |
| sub dump {
} |
| Perlito5-9.028 | Scalar::Util | show |
| sub refaddr {
} |
| Perlito5-9.028 | Text::Balanced | show |
| sub _match_tagged
{
my ($textref, $pre, $ldel, $rdel, $omode, $bad, $ignore) = @_;
my $rdelspec;
my ($startpos, $opentagpos, $textpos, $parapos, $closetagpos, $endpos) = ( pos($$textref) = pos($$textref)||0 );
unless ($$textref =~ m/\G($pre)/gc)
{... |
| Petal-CodePerl-0.06 | Petal::CodePerl::Parser | show |
| sub new { my $self = bless( {
'_AUTOTREE' => undef,
'localvars' => '',
'startcode' => '',
'_check' => {
'thisoffset' => '',
... |
| Pg-DatabaseManager-0.06 | 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... |
| Pgreet-1.0.0 | Pgreet::ExecEmbperl | show |
| sub ExecObjEmbperl {
my $Embperl_args = shift;
Embperl::Object::Execute($Embperl_args);
} |
| 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);
} |
| Physics-Unit-0.54 | 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.3 | 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.3 | 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-Elemental-Transformer-Splint-0.1201 | Pod::Elemental::Transformer::Splint::MethodRenderer::HtmlDefault | show |
| sub render_method {
my $self = shift;
my $data = shift;
my $positional_params = $data->{'positional_params'};
my $named_params = $data->{'named_params'};
my $return_types = $data->{'return_types'};
my @html = ('');
m... |
| 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-Tree-1.31 | Pod::Tree::HTML | show |
| sub escape_2396 {
my ( $html, $text ) = @_;
$text =~ s(([^\w\-.!~*'()]))(sprintf("%%%02x", ord($1)))eg;
$text;
} |
| 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.56 | 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-1.56 | Prima::Image::jpeg | show |
| sub save_dialog
{
return Prima::Image::jpeg-> create;
} |
| Prima-OpenGL-1.01 | Prima::OpenGL | show |
| sub gl_draw_pixels
{
my ( $image, $format, $type, $ptr ) = gl_image_prepare(@_);
glDrawPixels_c( $image->size, $format, $type, $ptr);
} |
| 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... |
| Progressive-Web-Application-0.05 | Progressive::Web::Application | show |
| sub manifest_schema { return \%MANIFEST_SCHEMA; } |
| 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... |
| Qgoda-0.9.6 | Qgoda::PluginUtils | show |
| sub init_plugin($$$) {
my ($name, $plugin, $logger) = @_;
$logger->debug(__x('initializing plugin {name}.', name => $name));
my $package_json = $plugin->{package_json};
my $json = read_file $package_json;
$logger->fatal(_... |
| Qiniu-0.07 | Qiniu::Util | show |
| sub encoded_entry_uri {
my ($bucket, $key) = @_;
my $entry = $key ? "$bucket:$key" : $bucket;
return safe_b64_encode($entry);
} |
| 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 | 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;
... |
| 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"
|
| 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";... |
| 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-Closure-0.001 | RDF::Trine::Parser::OwlFn::Compiled | show |
| sub new { my $self = bless( {
'_AUTOTREE' => undef,
'localvars' => '',
'startcode' => '',
'_check' => {
'thisoffset' => '',
... |
| 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.01 | RDF::Helper::RDFQuery | show |
| sub __node_value |
| RDF-TrineX-Merge-Bnodes-0.1.1 | RDF::TrineX::Merge::Bnodes | show |
| sub merge_bnodes {
my ($iterator, %options) = @_;
$iterator = $iterator->as_stream if $iterator->isa('RDF::Trine::Model');
my $digest = $options{digest} || 'MD5';
$digest = Digest->new($digest) unless ref $digest;
my $mod... |
| 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::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::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::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::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::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::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
... |
| RT-Authen-OAuth2-0.11 | RT::Authen::OAuth2::Google | show |
| sub Metadata {
my ($self, $response_content) = @_;
return (decode_json($response_content));
} |
| RT-Authen-OAuth2-0.11 | RT::Authen::OAuth2::Unimplemented | show |
| sub Metadata {
my ($self) = @_;
die ("Error - Unimplemented OAuth2 identity provider.");
} |
| RT-Client-REST-0.56 | RT::Client::REST::Forms | show |
| sub vsplit {
my ($val) = @_;
my (@words);
for my $line (map {split /\n/} (ref $val eq 'ARRAY') ? @$val : $val)
{
$line =~ s/^\s+//;
$line =~ s/\s+$//;
push @words, split /\s*,\s*/, $line;
}
return \@words;... |
| 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-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) {
... |
| Report-Porf-2.001 | Report::Porf::Table::Simple::AutoColumnConfigurator | show |
| sub create_report {
my ($self,
$list_ref,
$report_framework,
$format
) = @_;
return undef unless $list_ref && scalar @$list_ref;
my $first_element = $list_ref->[0];
$report_framework = Report::Porf::Framework::get() unless $re... |
| ResourcePool-Resource-Redis-1 | ResourcePool::Resource::Redis | show |
| sub DESTROY {
my ($self) = @_;
$self->close();
} |
| ResourcePool-Resource-Redis-1 | ResourcePool::Factory::Redis | show |
| sub create_resource {
my ($self) = @_;
return ResourcePool::Resource::Redis->new(%{$self->{'args'}});
} |
| 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... |
| Rest-HtmlVis-0.13 | Rest::HtmlVis::Footer | show |
| Rex-1.6.0 | Rex::TaskList | show |
| sub run {
my ( $class, $task_name, %option ) = @_;
$class = ref $class ? $class : $class->create;
my $task = ref $task_name ? $task_name : $class->get_task($task_name);
my $old_task = $class->{__current_task__};
$class->{__current... |
| Rex-1.6.0 | Rex::Hardware::VirtInfo | show |
| sub get {
my $cache = Rex::get_cache();
my $cache_key_name = $cache->gen_key_name("hardware.virt_info");
if ( $cache->valid($cache_key_name) ) {
return $cache->get($cache_key_name);
}
if ( Rex::is_ssh || $^O !~ m/^MSWin/... |
| Rex-Repositorio-1.2.1 | Rex::Repositorio::Server::Yum::Errata | show |
| sub query {
my ($self) = @_;
my $errata_dir =
File::Spec->catdir( File::Spec->rel2abs( $self->config->{RepositoryRoot} ),
$self->param("tag"), $self->param("repo"), "errata" );
$self->app->log->debug("Looking for... |
| Rex-Test-Spec-0.08 | Rex::Test::Spec::process | show |
| sub doit {
my ( $self ) = @_;
for my $process ( ps() ) {
if ( $process->{command} =~ s/$self->{name}/ ) {
$self->{ps} = $process;
}
}
}
sub getvalue {
my ( $self, $key ) = @_;
return $self->{ps}->{$key};
}
1
|
| Rinchi-XMLSchema-0.02 | Rinchi::XMLSchema::HFP | show |
| sub value() {
my $self = shift;
if (@_) {
$self->{'_value'} = shift;
}
return $self->{'_value'};
} |
| 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::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 ); ... |
| 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::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_Perl-2.1.2 | SDL::Tutorial::Images | show |
| sub write_file
{
my ($file, $contents) = @_;
die "Cowardly refusing to overwrite '$file'\n" if -e $file;
open my $out, '>', $file or die "Cannot write '$file': $!\n";
binmode $out;
print $out $contents;
} |
| 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 ... |
| SMS-Send-CZ-Axima-1.000 | SMS::Send::CZ::Axima | show |
| sub send_sms {
my ($self, %args) = @_;
my $url = 'https://smsgateapi.sms-sluzba.cz/apipost30/sms';
$args{'text'} = unidecode($args{'text'});
my %params = (
'msisdn' => $args{'to'} || '',
'msg' => $args{'text'} || '... |
| SMS-Send-CZ-Bulkgate-1.001 | SMS::Send::CZ::Bulkgate | show |
| sub send_sms {
my ($self, %args) = @_;
my $url = 'https://api.bulkgate.com/http';
$args{'text'} = unidecode($args{'text'});
$self->log("TEXT: " . $args{'text'} . ", TO: " . $args{'to'}, 4);
my %params = (
'number' => $args{'to'} ||... |
| SMS-Send-CZ-Konzulta-1.001 | SMS::Send::CZ::Konzulta | show |
| sub send_sms {
my ($self, %args) = @_;
my $url = 'https://www.sms-operator.cz/webservices/webservice.aspx';
$args{'text'} = unidecode($args{'text'});
$self->log("TEXT: " . $args{'text'} . ", TO: " . $args{'to'}, 4);
my $ua = LWP::... |
| SMS-Send-CZ-Neogate-1.000 | SMS::Send::CZ::Neogate | show |
| sub send_sms {
my ($self, %args) = @_;
my $url = 'https://api.smsbrana.cz/smsconnect/http.php';
my $salt = get_salt();
my $rawtext = $self->{'password'} . $self->{'stamp'} . $salt;
my %params = (
'number' => $args{'to'} || '',
... |
| SMS-Send-CZ-Smsmidlet-1.000 | SMS::Send::CZ::Smsmidlet | show |
| sub send_sms {
my ($self, %args) = @_;
my $url = 'https://smsmidlet.com/http';
$self->log("TEXT: " . $args{'text'} . ", TO: " . $args{'to'}, 4);
my %params = (
'number' => $args{'to'} || '',
'data' => $args{'text'} || '',... |
| SMS-Send-Fr-OVH-0.01 | SMS::Send::Fr::OVH | show |
| sub transform_number {
my ($self, $number) = @_;
foreach my $rule (@{ $self->{_transform_number} }) {
my $match = $rule->{match_re};
my $replace = $rule->{replace_re};
if ($number =~ /$match/) {
$numbe... |
| SMS-Send-Orange-ContactEveryone-0.01 | SMS::Send::Orange::ContactEveryone | show |
| sub xml_message {
my ($self, %args) = @_;
my $envelope = {
"xmlns:SOAP-ENV" => "http://schemas.xmlsoap.org/soap/envelope/",
"xmlns:apachesoap" => "http://xml.apache.org/xml-soap",
"xmlns:impl" => "MultiDiffusionWS... |
| SMS-Send-Twilio-0.20 | SMS::Send::Twilio | show |
| sub send_sms {
my $self = shift;
my %params = @_;
my $message = delete $params{text};
my $recipient = delete $params{to};
my $response = $self->{twilio}->POST(
'Messages.json',
From => $self->{_from},
... |
| SOAP-WSDL-3.003 | 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-QueryBuilder-WebApi-1.1.8 | SQL::QueryBuilder::WebApi::Role::AutoDoc | show |
| sub _printisa {
my ($self, $how) = @_;
my $meta = $self->meta;
my $myclass = ref $self;
my $super = join ', ', $meta->superclasses;
my @roles = $meta->calculate_all_roles;
my $isa = join ', ', grep {$_ ne $myclass} $meta->lineari... |
| SQL-Shell-1.17 | SQL::Shell | show |
| sub DUMP{} |
| SQL-Statement-1.412 | 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-1.60 | SQL::Translator::Parser::DB2::Grammar | show |
| sub new { my $self = bless( {
'_AUTOTREE' => undef,
'localvars' => '',
'startcode' => '',
'_check' => {
'thisoffset' => '',
... |
| SQL-Translator-1.60 | SQL::Translator::Producer::Oracle | show |
| sub quote {
my ($name, $q) = @_;
return $name unless $q && $name;
$name =~ s/\Q$quote_char/$quote_char$quote_char/g;
return "$quote_char$name$quote_char";
} |
| SReview-0.4.2 | SReview::Video::Profile::copy | show |
| sub _probe_audiocodec {
return "copy";
} |
| 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";
} |
| SVG-Timeline-Compact-0.003 | SVG::Timeline::Compact | show |
| sub _byStart {
return DateTime->compare($a->start,$b->start);
} |
| 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::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::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.06 | SVN::Dump::Reader | show |
| sub _eof { return "Unexpected EOF line $.", } |
| SWISH-Filter-0.191 | 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 ( $... |
| Scalar-LockRefType-0.03 | Scalar::LockRefType | show |
| sub STORE {
my ($self, $value) = @_;
my $ref = ref $value // '';
$self->{type} //= $ref;
croak 'invalid reference type' if $ref ne $self->{type};
return $self->{value} = $value;
} |
| 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 | 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::None | show |
| sub crypt {
return $_[1];
} |
| Schema-RDBMS-AUS-0.04 | Schema::RDBMS::AUS::Crypt::SHA1 | show |
| sub crypt {
return sha1_hex($_[1]);
} |
| Schema-RDBMS-AUS-0.04 | Schema::RDBMS::AUS::Crypt::MD5 | show |
| sub crypt {
return md5_hex($_[1]);
} |
| 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});
} |
| SchemaView-Plus-0.17 | 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... |
| SchemaView-Plus-0.17 | 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.17 | Logo::svplus | show |
| sub ppm {
my $obj = shift;
return $obj->{data};
} |
| 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::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);
} |
| 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::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::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-ESsearcher-0.3.1 | Search::ESsearcher::Templates::httpAccess | show |
| sub help{
return '
--host <log host> The system beats in question is running on.
--response <code> The response code from the HTTP server.
--verb <verb> The verb used with the request.
--vhost <vhost> The doma... |
| Search-ESsearcher-0.3.1 | Search::ESsearcher::Templates::bf2b | show |
| sub help{
return '
--status <status> The status value of the message.
--host <log host> The system beats in question is running on.
--jail <jail> The fail2ban jail in question.
--ip <ip> The IP to search... |
| Search-ESsearcher-0.3.1 | Search::ESsearcher::Templates::syslog | show |
| sub help{
return '
--host <log host> The syslog server.
--src <src server> The source server sending to the syslog server.
--program <program> The name of the daemon/program in question.
--size <count> The number ... |
| Search-ESsearcher-0.3.1 | Search::ESsearcher::Templates::postfix | show |
| sub help{
return '
--host <log host> The syslog server.
--src <src server> The source server sending to the syslog server.
--size <count> The number of items to return.
--pid <pid> The PID that sent the me... |
| SeeAlso-Server-0.71 | SeeAlso::Client | show |
| sub seealso_request {
my ($baseurl, $identifier) = @_;
my $response = eval { SeeAlso::Client->new($baseurl)->query($identifier); };
return $response;
} |
| Selenium-Remote-Driver-1.33 | Selenium::CanStartBinary::ProbePort | show |
| sub probe_port {
my ($port) = @_;
return IO::Socket::INET->new(
PeerAddr => '127.0.0.1',
PeerPort => $port,
Timeout => 3
);
} |
| Selenium-Remote-Driver-1.33 | Selenium::CanStartBinary::FindBinary | show |
| sub _naive_find_binary {
my ($executable) = @_;
my $naive_binary = which($executable);
if ( defined $naive_binary ) {
return $naive_binary;
}
else {
warn qq(Unable to find the $executable binary in your \$PATH.);
... |
| 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::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::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::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::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... |
| 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::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::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::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::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::Region | show |
| sub getAttributeValue
{
my $self = shift;
my $attr = shift;
return $self->{ _attributes }->{ $attr };
} |
| 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::Meta | show |
| sub init {
my $self = shift;
$self->SUPER::init( "meta" );
my $name = shift;
my $content = shift;
$self->setAttributes( 'name' => $name,
'content' => $content );
} |
| 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';
} |
| Software-GenoScan-v1.0.4 | Software::GenoScan::Regression | show |
| sub retrainRegModel($ $ $ $ $ $){
my ($POS_DATASET, $NEG_DATASET, $OUTPUT_DIR, $VERBOSE, $SCRIPT_PATH, $logArray) = @_;
if(!-e "$OUTPUT_DIR"){
system("mkdir $OUTPUT_DIR");
}
if(!-e "$OUTPUT_DIR/retrain"){
system("mkdir $OUTPUT_DIR/retrain");
}
i... |
| SolarBeam-0.05 | SolarBeam::Query | show |
| sub ___log {
my $self = shift;
my $msg = shift;
my $who = join ':', [caller(1)]->[3], [caller(0)]->[2];
$msg =~ s/\n/\n#/g;
print "# $who: $msg\n";
} |
| 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::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::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::Config | show |
| sub default_plugin_classes { () } |
| 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::Trace | show |
| sub DESTROY {
print $self->report
if $self->auto_print;
warn $self->report
if $self->auto_warn;
} |
| 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::Headers | show |
| Spoon-0.24 | Spoon::MetadataObject | show |
| sub update {
return $self;
} |
| 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::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::Command | show |
| sub msg {
warn @_ unless $self->quiet;
} |
| Spoon-0.24 | Spoon::Formatter | show |
| sub wafl_error {
join '',
'<span class="wafl_error">{',
$self->method,
': ',
$self->arguments,
'}</span>';
} |
| 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::ContentObject | show |
| sub store_metadata {
my $metadata = $self->{metadata}
or die "No metadata for content object";
$metadata->store;
return $self;
} |
| Spoon-0.24 | Spoon::Hub | show |
| sub DESTROY {
$self->remove_hooks;
} |
| 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::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::Slides | show |
| sub lwp_download {
my ($image_url, $image_file) = @_;
system "lwp-download $image_url > /dev/null";
} |
| 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::Template::TT2 | show |
| sub path {
$self->hub->config->template_path ||
[ $self->hub->config->template_directory ];
} |
| 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-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... |
| Spork-Shlomify-0.0400 | Spork::Shlomify::Slides::FromSpork | show |
| sub lwp_download {
my ($image_url, $image_file) = @_;
system "lwp-download $image_url > /dev/null";
} |
| Sport-Analytics-NHL-1.53 | Sport::Analytics::NHL::Normalizer | show |
| sub normalize_boxscore ($;$) {
my $boxscore = shift;
my $no_summarize = shift || 0;
$PLAYER_IDS = {};
unless ($no_summarize) {
my $event_summary = summarize($boxscore);
test_consistency($boxscore, $event_summary);
}
normalize_header($boxscore);... |
| Sport-Analytics-NHL-1.53 | Sport::Analytics::NHL::Tools | show |
| sub get_game_coords_adjust ($$) {
my $game = shift;
my $zones = shift;
$DB ||= Sport::Analytics::NHL::DB->new();
my $adjust = 1;
return if $BROKEN_FILES{$game->{_id}}{BS};
my $event = get_game_first_coord_goal($game, $zones) ||
get... |
| 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-Multtest-0.14 | 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-NiceR-0.03 | Statistics::NiceR::Inline::TypeInfo | show |
| sub get_type_info {
my ($klass, $type ) = @_;
return Storable::dclone( $info->{$type} );
} |
| Statistics-RserveClient-0.12 | Statistics::RserveClient::RNative | show |
| sub offsetGet($) {
my $offset = shift;
return isset( $this::data[$offset] ) ? $this::data[$offset] : null;
} |
| Statistics-Sequences-Turns-0.13 | Statistics::Sequences::Turns | show |
| sub _set_data {
my $self = shift;
my $args = ref $_[0] ? $_[0] : {@_};
my $data = $self->access($args)
;
ref $data or croak __PACKAGE__, '::Data for counting up turns are needed';
my @data_u = ();
for my $i ( 0 .. ... |
| Statistics-Sequences-Vnomes-0.20 | Statistics::Sequences::Vnomes | show |
| sub _sum_sq {
my ($obs, $exp) = @_;
return sum( map { ( $_ - $exp )**2 } @{$obs} );
} |
| StoredHash-0.031 | StoredHash::LD | show |
| sub allentvals {
my ($h) = @_;
} |
| Storm-0.240 | 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... |
| Strehler-RSS-1.1.2 | Strehler::Element::RSS::RSSChannel | show |
| String-CamelCase-0.04 | 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::Matcher | show |
| sub stringy
{
my $this = shift;
substr(${$this->{origref}},$this->{st}[0], $this->{ed}[0]-$this->{st}[0]);
} |
| 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-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 | String::String | show |
| sub string
{
wantarray ? map{ defined($_) ? "$_" : '' } @_ : join('', &string);
} |
| String-String-0.01 | UNIVERSAL::to_s | show |
| sub UNIVERSAL::to_s
{
wantarray ? map{ defined($_) ? "$_" : '' } @_ : join('', &UNIVERSAL::to_s);
} |
| 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.03 | Sub::Current | show |
| sub import {
*{caller() . '::ROUTINE'} = *ROUTINE;
} |
| Sub-ScopeFinalizer-0.02 | Sub::ScopeFinalizer | show |
| sub DESTROY
{
my $this = shift;
$this->raise();
} |
| 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;
} |
| Swagger2-Markdown-9.99 | Swagger2::Markdown::API::Blueprint | show |
| sub _blueprint {
return << 'EndOfBlueprint';
} |
| Sybase-Xfer-0.63 | Sybase::Xfer | show |
| sub sx_run_shell_cmd {
return system( +shift );
} |
| 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);
... |
| 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::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::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::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-MyTAP-3.27 | TAP::Parser::SourceHandler::MyTAP | show |
| sub make_iterator {
my ( $class, $source ) = @_;
my $config = $source->config_for('MyTAP');
my @command = ( $config->{mysql} || 'mysql' );
push @command, qw(
--disable-pager
--batch
--raw
--skip-column-names
... |
| TAP-Parser-SourceHandler-pgTAP-3.35 | 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=off
... |
| 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-1.007 | TPath::TypeConstraints | show |
| sub prefix(@) {
map { "TPath::$_" } @_;
} |
| 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... |
| Tangram-2.12 | 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()
} |
| Tangram-2.12 | 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_... |
| Tao-DBI-0.012 | 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, @_ );
... |
| Taxon-Parse-0.013 | Taxon::Parse | show |
| sub init {
my $self = shift;
my $p = $self->{patterns};
$p->{apostrophe} = qr/[\'´`]/xms;
$p->{compound_connector} = qr/[-]/xms;
} |
| Tcl-pTk-1.02 | 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.12 | 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-Mustache-1.3.2 | Template::Mustache::Parser | show |
| sub new { my $self = bless( {
'_AUTOACTION' => undef,
'_AUTOTREE' => undef,
'_check' => {
'itempos' => '',
'prevcolumn' => '',
... |
| Template-Plugin-ASCIITable-0.2 | Template::Plugin::ASCIITable | show |
| sub _die {
die (Template::Exception->new('ASCIITable',$_[0]))
} |
| Template-Plugin-Date-FriendlyDelta-0.02 | Template::Plugin::Date::FriendlyDelta | show |
| sub filter {
my ($self, $date2, $args) = @_;
my $date1 = DateTime->now();
my $format_text = {
month => {
1 => 'January',
2 => 'February',
3 => 'March',
4 => 'April',
5 => 'May',
6 => 'Ju... |
| Template-Plugin-Pagination-0.90 | Template::Plugin::Pagination | show |
| Term-ExtendedColor-TTY-0.034 | 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;
} |
| Term-Spinner-Color-0.06 | Term::Spinner::Color::Examples | show |
| sub meh_maker {
sleep 3;
return 2;
} |
| TermReadKey-2.38 | 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 c);
mai... |
| Test-AutomationFramework-0.060.04 | Test::AutomationFramework | show |
| sub prHtml2 {
my $tsDriverStr= &readFile("$c/$SvrProjName/index.pl") if ($^O =~ /win/i);
$tsDriverStr= &readFile("/$SvrProjName/index.pl") if ($^O =~ /linux/i);
if ($tsDriverStr =~ /^\s*$/){ $tsDriverStr = "This Testsuite doesn't have a hook (inde... |
| 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-Given-0.3.1 | Test::Given::Builder | show |
| sub plan { $CLASS->builder->plan(@_) } |
| 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-PAUSE-ConsistentPermissions-0.003 | Test::PAUSE::ConsistentPermissions | show |
| sub all_permissions_consistent
{
my $authority_with = shift;
plan skip_all => 'Set RELEASE_TESTING environmental variable to test this.' unless $ENV{RELEASE_TESTING};
my $provides = Parse::LocalDistribution->new->parse();
my $c... |
| Test-Proto-Where-0.001 | Test::Proto::Where | show |
| sub otherwise (&) {
my $self = {
code => shift,
type => 'otherwise'
};
$self->{run} = $self->{code};
bless $self, __PACKAGE__;
} |
| 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.0124 | 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.0124 | 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.0125 | 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-Simple-1.302167 | 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... |
| Test-Simple-1.302167 | Test::Tester::CaptureRunner | show |
| sub capture
{
return Test::Tester::Capture->new;
} |
| Test-Smoke-1.73 | 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.73 | Test::Smoke::Syncer | show |
| sub config {
my $dummy = shift;
my $key = lc shift;
if ( $key eq 'all_defaults' ) {
my %default = map {
my( $pass_key ) = $_ =~ /^df_(.+)/;
( $pass_key => $CONFIG{ $_ } );
} grep /^df_/ => keys %... |
| Test-Smoke-1.73 | Test::Smoke::Mailer | show |
| sub config {
my $dummy = shift;
my $key = lc shift;
if ( $key eq 'all_defaults' ) {
my %default = map {
my( $pass_key ) = $_ =~ /^df_(.+)/;
( $pass_key => $CONFIG{ $_ } );
} grep /^df_/ => keys %... |
| 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-Valgrind-1.19 | 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... |
| Test2-Harness-0.001091 | App::Yath::Command::test | show |
| sub _send_email {
my $self = shift;
my ($body, @to) = @_;
my $settings = $self->{+SETTINGS};
my $host = hostname();
my $subject = "Test run $settings->{run_id} on $host";
$body = "$settings->{notify_text}\n\n$body" ... |
| Test2-Harness-0.001091 | Test2::Harness::Job::Runner::Dummy | show |
| sub run {
my $class = shift;
my ($test) = @_;
my $job = $test->job;
my ($in_file, $out_file, $err_file, $event_dir) = $test->output_filenames;
my $out_fh = open_file($out_file, '>');
my $err_fh = open_file($err_file, '&... |
| Test2-Harness-UI-0.000015 | Test2::Harness::UI | show |
| sub wrap {
my $self = shift;
my ($class, $req, $r) = @_;
my ($controller, $res, $session);
my $ok = eval {
die error(404) unless $class;
if ($class->uses_session) {
$session = $req->session;
... |
| Test2-Tools-EventDumper-0.000011 | Test2::Tools::EventDumper | show |
| sub get_rows {
my ($event, $field, $settings) = @_;
return ['field', $field, 'DNE()']
unless exists $event->{$field};
my ($func, $val);
if ($settings->{call_when_can} && $event->can($field)) {
$func = 'call';
... |
| TestGen4Web-Runner-0.11 | TestGen4Web::Runner | show |
| sub _log_warn
{
my ($self, $msg) = @_;
unless ($self->{quiet})
{
print STDERR "WARNING: $msg\n";
}
} |
| Text-Amuse-Compile-1.31 | Text::Amuse::Compile::Utils | show |
| sub append_file {
my $file = shift;
open (my $fh, '>>:encoding(UTF-8)', $file) or die "Couldn't open $file $!";
print $fh @_;
close $fh or die "Couldn't close $file $!";
return;
} |
| Text-Amuse-Compile-1.31 | Text::Amuse::Compile::Devel | show |
| sub create_font_object {
my $fonts = Text::Amuse::Compile::Fonts->new;
return Text::Amuse::Compile::Fonts::Selected->new(size => 12,
sans => ($fonts->sans_fonts)[0],
... |
| 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-2.11 | 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-Fuzzy-PP-0.01 | Text::Fuzzy::PP | show |
| sub _min {
my $min = shift;
return $min if not @_;
my $next = shift;
unshift @_, $min < $next ? $min : $next;
goto &_min;
} |
| 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-NumericData-2.003003 | Text::NumericData::App::txdcolumns | show |
| sub process_data
{
my $self = shift;
$_[0] = ${$self->{txd}->data_line(
$self->{txd}->line_data($_[0]),$self->{cols} )};
} |
| Text-NumericData-2.003003 | Text::NumericData::App::txdmean | show |
| sub result
{
my $self = shift;
for(my $i = 0; $i <= $#{$self->{mean}}; ++$i)
{
$self->{mean}[$i] /= $self->{ln};
}
$_[0] = ${$self->{txd}->data_line($self->{mean})};
} |
| Text-NumericData-2.003003 | Text::NumericData::App::txdfromtcad | show |
| sub add_datasets
{
my $self = shift;
$_[0] =~ s/[\012\015]+$//;
if($_[0] =~ /^\s*(|.*\S)\s*\]$/){ $_[0] = $1; $self->{indatasets} = 0; }
else{ $self->{indatasets} = 1; }
$_[0] =~ s:^\s*"::;
$_[0] =~ s:"\s*$::;
push(@{$self->{txd}->{ti... |
| Text-NumericData-2.003003 | Text::NumericData::App::txdfromafors | show |
| sub finish
{
my $self = shift;
my $param = $self->{param};
my $txd = Text::NumericData->new({'separator'=>"\t", 'comment'=>'#'});
$_[0] = ${$txd->comment_line($param->{title})};
for my $c (@{$self->{com}})
{
$_[0] .= ${$txd-&... |
| Text-NumericData-2.003003 | Text::NumericData::App::txdrecycle | show |
| sub nearest_index
{
my ($val, $dir, $arr) = (@_);
my $lower = $dir == +1 ? 0 : $#{$arr};
my $upper = $dir == +1 ? $#{$arr} : 0;
for(my $i=$lower+$dir; $i!=$upper+$dir; $i+=$dir)
{
if($arr->[$i][0] >= $val)
{
$upper = $i;
$lower = $i-... |
| Text-NumericData-2.003003 | Text::NumericData::App::txdderiv | show |
| sub derivtitle
{
my $ot = shift;
my $col = shift;
return 'd('.(defined $ot ? $ot : "col$col").')';
} |
| Text-NumericData-2.003003 | Text::NumericData::App::txdextrema | show |
| sub result
{
my $self = shift;
my $param = $self->{param};
return unless defined $self->{ext};
if($param->{print})
{
foreach my $d (@{$self->{data}})
{
$_[0] .= ${$self->{txd}->data_line($d)};
}
}
else
{
$_[0] = $sel... |
| Text-NumericData-2.003003 | Text::NumericData::App::txdnorm | show |
| sub process_file
{
my $self = shift;
my $param = $self->{param};
my $good = 0;
my $normcolumn = $param->{column};
if($param->{append} and @{$self->{txd}->{Data}})
{
$normcolumn = $#{$self->{txd}->{Data}[0]}+2;
}
unless($para... |
| Text-NumericData-2.003003 | Text::NumericData::App::txdcalc | show |
| sub justcalc_result
{
my $self = shift;
$self->context_eval('aftercode');
return $self->{txd}->data_line($self->{A});
} |
| 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.31 | Text::PDF::Number | show |
| sub as_pdf
{ $_[0]->{'val'}; } |
| Text-PDF-0.31 | 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-PDF-0.31 | 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.31 | 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-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-Shirasu-0.0.4 | Text::Shirasu | show |
| sub normalize_symbols {
local $_ = shift;
return undef unless defined $_;
tr/。、・「」/｡､･｢｣/;
$_;
} |
| Text-T9-1.01 | 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\$";
re... |
| 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-2.1.0 | Text::Tradition::Parser::TEI | show |
| sub throw {
Text::Tradition::Error->throw(
'ident' => 'Parser::TEI error',
'message' => $_[0],
);
} |
| Text-Tradition-Analysis-2.0.4 | Text::Tradition::Analysis | show |
| sub throw {
Text::Tradition::Error->throw(
'ident' => 'Analysis error',
'message' => $_[0],
);
} |
| Text-Variations-0.03 | 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.05 | Text::WrapProp | show |
| sub wrap_prop {
my ($text, $width, $ref_width_table) = @_;
if (not defined $text) {
return('', 1);
}
elsif (not defined $width or $width < 0.0000001) {
return('', 2);
}
elsif (not defined $ref_width_table or ref($ref_widt... |
| TheBat-Read_TBB-0.02 | TheBat::Read_TBB | show |
| sub write_log {
my($message)=@_;
my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my($date)=sprintf("%02d/%02d %02d:%02d.%02d",$mon+1,$mday,$hour,$min,$sec);
print STDERR "$date $$ Read_TBB $message\n";
} |
| 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.14 | 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.082 | Tie::Toggle | show |
| sub TIESCALAR {
my $class = shift;
my $self = [ 0, 2, [ 0 == 1, 1 == 1] ];
bless $self, $class;
} |
| Tie-Tools-1.10 | 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.234 | 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{
... |
| Time-Progress-Stored-1.002 | Time::Progress::Stored | show |
| sub percent_from_string {
my $self = shift;
my ($percent_string) = @_;
$percent_string =~ /([\d.]+)/ or return 0;
return $1 + 0;
} |
| Time-Progress-Stored-1.002 | Time::Progress::Stored::Storage | show |
| sub retrieve {
my $self = shift;
my ($id) = @_;
croak("Abstract");
} |
| Time-Progress-Stored-1.002 | Time::Progress::Stored::Storage::Memory | show |
| sub retrieve {
my $self = shift;
my ($id) = @_;
my $report_json = $self->id__report->{ $id } // return undef;
return decode_json( $report_json );
} |
| Time-Progress-Stored-1.002 | Time::Progress::Stored::Storage::Redis | show |
| sub retrieve {
my $self = shift;
my ($id) = @_;
my $report_json = $self->redis->get($id) // return undef;
return decode_json( $report_json );
} |
| 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.009 | 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_data();
}
} |
| 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::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::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::wgMenu | show |
| 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::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::DataObjSet | show |
| sub Stop {shift->doAll(sub{shift->Stop(@_)},@_)} |
| 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::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::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-ToolBar-0.12 | 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-1.14 | Tree::DeepClone | show |
| sub _clone_self {
my $self = shift;
my $node = $self->SUPER::_clone_self;
$node->meta($self->meta);
return $node;
} |
| 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-2.20160630 | Parse::RecDescent::_Runtime | show |
| sub new { my $self = bless( {
'rules' => {
'PNOTQUOTED' => bless( {
'vars' => '',
'name' ... |
| Treex-PML-2.24 | 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.50 | Tripletail | show |
| sub _isa
{
my $val = shift;
my $type = shift;
defined($type) or die 'undefined arg:type';
defined($val) or return;
if( defined(ref($val)) )
{
return ref($val) eq $type || (blessed($val) && $val->isa($type));
}else
{
local($@);
local($S... |
| Tripletail-0.50 | 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.50 | Tripletail::Template | show |
| sub addSessionCheck {
my $this = shift;
$this->{root}->addSessionCheck(@_);
$this;
} |
| Tripletail-0.50 | 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.50 | Tripletail::DB | show |
| sub __postRequest {
foreach my $db (values %INSTANCES) {
if(my $dbh = $db->{locked_dbh}) {
$db->unlock;
my $setname = $dbh->getSetName;
$TL->log(
__PACKAGE__,
"DB [$db->{group}] (DB Set [$setname]) has been left locke... |
| Tripletail-0.50 | 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.50 | Tripletail::Filter | show |
| sub reset {
my $this = shift;
$this->{header_flushed} = undef;
%{$this->{replacement}} = ();
%{$this->{addition}} = ();
$this;
} |
| Tripletail-0.50 | Tripletail::MemCached | show |
| sub flush_all {
my $this = shift;
$this->{memd}->flush_all;
} |
| Tripletail-0.50 | 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.50 | Tripletail::Pager | show |
| Tripletail-0.50 | 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.50 | 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.50 | 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.50 | Tripletail::TagCheck | show |
| sub tagbreak {
my $this = shift;
if(@_) {
$this->{tagbreak} = shift;
}
$this->{tagbreak};
} |
| Tripletail-0.50 | Tripletail::Form | show |
| sub toHash {
return shift->{form};
} |
| Tripletail-0.50 | Tripletail::Error | show |
| sub __load_default_error_template
{
<<'END';
} |
| Tripletail-0.50 | 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.50 | Tripletail::Cookie | show |
| sub _makeSetCookies {
return map { $_->__makeSetCookie } values %_INSTANCES;
} |
| Tripletail-0.50 | 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.50 | Tripletail::RawCookie | show |
| sub __makeSetCookie {
my Tripletail::RawCookie $this = shift;
my @result;
while (my ($key, $value) = each %{$this->{setCookies}}) {
my @parts;
push @parts, sprintf('%s=%s', $key, defined $value ? $value : '');
if (... |
| Tripletail-0.50 | Tripletail::Validator | show |
| sub getKeys {
my $this = shift;
return keys %{ $this->{_filters} };
} |
| Tripletail-0.50 | Tripletail::CharConv | show |
| sub __new {
my $class = shift;
my $this = bless {} => $class;
return $this;
} |
| Tripletail-0.50 | Tripletail::Session | show |
| sub _createSessionCheck
{
my $this = shift;
my $issecure = shift;
my $sessiongroup = $this->{group};
my $csrfkey = $TL->INI->get($sessiongroup => 'csrfkey', undef);
if( !defined($csrfkey) )
{
my $err = "csrfkey is not defined for ... |
| Tripletail-0.50 | 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.50 | 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.50 | 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.50 | 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.50 | Tripletail::Sendmail::Smtp | show |
| sub _getResultCode {
my $this = shift;
$this->{status}{resultcode};
} |
| Tripletail-0.50 | 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.50 | 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.50 | 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.50 | 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.50 | 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.50 | Tripletail::InputFilter::MobileHTML | show |
| sub _raw2utf8 {
my $this = shift;
my $str = shift;
my $incode = shift;
$TL->charconv($str, $incode => 'utf8', 1);
} |
| Tripletail-0.50 | Tripletail::InputFilter::Plain | show |
| sub decodeURL {
my $this = shift;
my $form = shift;
my $url = shift;
my $fragment = shift;
$this;
} |
| Tripletail-0.50 | Tripletail::Debug::Watch | show |
| sub UNTIE {
$TL->log(__PACKAGE__,
Tripletail::Debug::Watch::_calledLocation . ' ' .
"end watch \%${_[0]->[1]}\n"
);
} |
| Tripletail-0.50 | 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.50 | 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.50 | 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.50 | Tripletail::Filter::MemCached | show |
| sub reset {
my $this = shift;
$this->SUPER::reset;
$this->{buffer} = '';
$this;
} |
| Tripletail-0.50 | 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.50 | 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.50 | Tripletail::Filter::HeaderOnly | show |
| Tripletail-0.50 | 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.50 | 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.47 | Command::Common | show |
| sub exit_code_for_return_value {
my $self = shift;
my $return_value = shift;
if (! $return_value) {
$return_value = 1;
} elsif ($return_value < 0) {
$return_value = 0 - $return_value;
} else {
$return_value =... |
| UR-0.47 | UR::Doc::Writer | show |
| sub generate_index {
my ($self, @command_trees) = @_;
return '';
} |
| URI-db-0.19 | URI::_ado | show |
| sub dbi_driver { 'ADO' } |
| URPM-5.22 | 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', @_);
} |
| Ucam-Term-3.00 | Ucam::Term | show |
| sub long_vac {
my $self = shift;
croak "Can only call long_vac() on an Easter term object"
unless $self->{term} eq 'e';
my $ga = $self->general_admission;
return undef unless defined($ga);
return $self->{cache}->... |
| Udev-FFI-0.104002 | Udev::FFI::Helper | show |
| sub get_entries_all {
my $entry = shift;
if (defined($entry)) {
if (wantarray) {
my @a = ();
do {
push @a, udev_list_entry_get_name($entry);
$entry = udev_list_entry_get_next($entry... |
| Unix-Conf-Bind8-0.3 | Unix::Conf::Bind8::Conf::Lib | show |
| sub __valid_string ($) { $_[0] =~ s/^"(.+)"$/$1/; return (1) } |
| Unix-Lsof-0.1.0 | 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;
}
} |
| VCF-1.003 | VCF::V3_2 | show |
| sub new
{
my ($class,@args) = @_;
my $self = $class->SUPER::new(@args);
bless $self, ref($class) || $class;
$$self{_defaults} =
{
version => '3.2',
drop_trailings => 1,
filter_passed => 0,
... |
| 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... |
| VSGDR-MergeData-0.05 | VSGDR::MergeData | show |
| sub columnsSQL {
return <<"EOF" ;
} |
| VSGDR-StaticData-0.48 | VSGDR::StaticData | show |
| sub columnsSQL {
return <<"EOF" ;
} |
| 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 ( ( ... |
| 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]);
} |
| Vote-Count-0.02401 | Vote::Count::Start | show |
| sub StartElection ( %ARGS ) {
my $winners = {};
_ballotset( \%ARGS );
my $Election = Vote::Count->new( %ARGS );
$winners->{'plurality'} = _do_plurality( $Election) ;
$winners->{'approval'} = _do_approval( $Election) ;
my $floorset =... |
| W3C-LogValidator-1.5 | 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::Number | show |
| sub is_parser {
return 1;
} |
| 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::Datetime | 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::Parser | show |
| sub taint {
return shift() . $WDDX::Parser::TAINTED;
} |
| WDDX-1.02 | WDDX::String | show |
| sub is_parser {
return 1;
} |
| WDDX-1.02 | WDDX::Boolean | show |
| sub is_parser {
return 1;
} |
| WL-0.92 | WL::fullscreen_shell | show |
| sub callback
{
my $self = shift;
my $opcode = shift;
if ($opcode == EVENT_MODE_SUCCESSFUL) {
return $self->mode_successful ();
} elsif ($opcode == EVENT_MODE_FAILED) {
return $self->mode_failed ();
} elsif ($opcode == EVENT_PRESENT_CANCELL... |
| WL-0.92 | WL::desktop | show |
| sub set_surface
{
my $self = shift;
my $file;
my $retval;
$self->call (REQUEST_SET_SURFACE, pack ('L L',
shift->{id},
shift->{id}), $file);
return $retval;
} |
| WL-0.92 | WL::xdg_shell | show |
| sub callback
{
my $self = shift;
my $opcode = shift;
if ($opcode == EVENT_POPUP_DONE) {
@_ = unpack ('L', shift);
return $self->popup_done (shift);
} else {
die 'Bad opcode';
}
} |
| WL-0.92 | WL::text_cursor_position | show |
| sub notify
{
my $self = shift;
my $file;
my $retval;
$self->call (REQUEST_NOTIFY, pack ('L l l',
shift->{id},
$self->nv2fixed ($_),
$self->nv2fixed ($_)), $file);
return $retval;
} |
| WL-0.92 | WL::screenshooter | show |
| sub callback
{
my $self = shift;
my $opcode = shift;
if ($opcode == EVENT_DONE) {
return $self->done ();
} else {
die 'Bad opcode';
}
} |
| WL-0.92 | WL::wl_test | show |
| sub callback
{
my $self = shift;
my $opcode = shift;
if ($opcode == EVENT_POINTER_POSITION) {
@_ = unpack ('L L', shift);
return $self->pointer_position ($self->fixed2nv (shift),
$self->fixed2nv (shift));
} elsif ($opcode == EVENT_N_E... |
| WL-0.92 | WL::workspaces | show |
| sub callback
{
my $self = shift;
my $opcode = shift;
if ($opcode == EVENT_STATE) {
@_ = unpack ('L L', shift);
return $self->state (shift,
shift);
} else {
die 'Bad opcode';
}
} |
| WL-0.92 | WL::text | show |
| sub create_text_input
{
my $self = shift;
my $file;
my $retval;
$self->call (REQUEST_CREATE_TEXT_INPUT, pack ('L',
($retval = new WL::wl_text_input ($self->{conn}))->{id}), $file);
return $retval;
} |
| WL-0.92 | WL::gtk | show |
| sub set_dbus_properties
{
my $self = shift;
my $file;
my $retval;
$self->call (REQUEST_SET_DBUS_PROPERTIES, pack ('L/ax!4 L/ax!4 L/ax!4 L/ax!4 L/ax!4 L/ax!4',
shift."\x00",
shift."\x00",
shift."\x00",
shift."\x00",
shift."\x00",
shift.... |
| 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-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-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-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::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-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-Mailgun-0.54 | WWW::Mailgun | show |
| sub AUTOLOAD {
our $AUTOLOAD;
my $self = shift;
my @ObjParts = split(/\:\:/, $AUTOLOAD);
my $method = pop(@ObjParts);
return if $method eq 'DESTROY';
unless ($method |M| @ALL_METHODS) {
die("Not a valid method, \"$method\... |
| 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-Monitor-0.24 | WWW::Monitor::Task | show |
| sub success {
my $self = shift;
return $self->{status};
} |
| WWW-Myspace-0.92 | WWW::Myspace | show |
| sub ____IN_PROGRESS____ {} |
| WWW-PGXN-v0.12.4 | WWW::PGXN::User | show |
| sub releases {
+{ %{ shift->{releases} } }
} |
| WWW-PGXN-v0.12.4 | 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-Scripter-Plugin-JavaScript-0.009 | 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::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-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-Shopify-1.02 | 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-SourceForge-0.73 | WWW::SourceForge::Wiki | show |
| sub post_page {
my ( $self, %parameters ) = @_;
my $url = $self->{url_prefix} . $parameters{page};
my %config = WWW::SourceForge::get_config();
my $ua = LWP::Authen::OAuth->new(
oauth_consumer_key => $config{consumer_... |
| WWW-Splunk-2.08 | WWW::Splunk::API | show |
| sub request {
my ($self, $method, $location, $data, $callback) = @_;
my $url = $self->{url}.$prefix.$location;
if ($self->{verbose}) {
print " $url\n";
if (defined $data) {
foreach my $key (sort keys %$data) {
my $value = $data->{$... |
| WWW-Txodds-0.69 | 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-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 =&... |
| 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::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;
} |
| 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::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) && $... |
| 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.250 | WebDyne | show |
| sub AUTOLOAD {
} |
| WebDyne-1.250 | WebDyne::Base | show |
| sub errstack {
return @_ ? \(@Err=@{$_[1]}) : \@Err;
} |
| WebDyne-1.250 | WebDyne::Err | show |
| sub err_eval {
my ($self, $message, $perl_sr)=@_;
debug("err_eval $message, %s, caller %s", Dumper($perl_sr), Dumper([caller()]));
$self->{'_err_perl_sr'}=$perl_sr;
return &errsubst($message);
} |
| WebDyne-1.250 | 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.250 | 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'};
my $html_fn_sr=$meta_hr->{'manifest'}[0];
debug("parse $self, $html_or line_no $line_no line_no_tag_end $line_... |
| WebDyne-1.250 | 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 ?'
);
... |
| WebDyne-1.250 | 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.250 | WebDyne::Static | show |
| sub handler : method {
my $self=shift();
$self->static(1);
$self->SUPER::handler(@_);
} |
| WebDyne-1.250 | WebDyne::Install::Apache | show |
| sub install {
my ($class, $prefix, $installbin_dn, $opt_hr)=@_;
unless ($Uninstall_fg) {
WebDyne::Install->install($prefix, $installbin_dn) ||
return err ();
}
else {
WebDyne::Install->uninstall($prefi... |
| WebDyne-1.250 | WebDyne::HTML::TreeBuilder | show |
| sub include {
my ($self, $method)=(shift, shift);
debug("block self $self, method $method, @_ text_fg $Text_fg");
$self->$method(@_);
} |
| WebDyne-1.250 | 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-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::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-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-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-Antispam-1.04 | WebService::Antispam | show |
| sub request {
my $class = shift;
my $params = shift;
$$params{'auth_key'} = $connection_params{'auth_key'};
$$params{'method_name'} = $connection_params{'method_name'} if !defined($$params{'method_name'});
$$params{'agent'} = $con... |
| 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-Naver-TTS-v0.0.3 | WebService::Naver::TTS | show |
| sub tts {
my ( $self, $text, %tmp_opts ) = @_;
return unless $text;
my $res = $self->{http}->post_form( $URL, { speaker => $self->{speaker}, speed => $self->{speed}, text => $text } );
die "Failed to convert text($te... |
| WebService-TVDB-1.133200 | 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.85 | 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-Codepage-Simple-0.01 | Win32::Codepage::Simple | show |
| sub get_oemcp
{
$get_oemcp && $get_oemcp->Call();
} |
| Win32-Daemon-20190315 | 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::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::Common | show |
| sub hash_password ($$) {
my ($cookie,$pass) = @_;
return md5_hex("$cookie:$pass");
} |
| Win32-Girder-IEvent-0.04 | Win32::Girder::IEvent::Client | show |
| sub DESTROY {
my ($obj) = @_;
$$obj->{_girder_pass} = undef;
$obj->SUPER::DESTROY();
} |
| Win32-HTA-1.02 | Win32::HTA | show |
| sub show {
my($self, %args) = @_;
@$self{ keys %args } = values %args;
$self->_listen() if $self->ajax();
my $html = $self->_make_html();
warn $html, "\n" if $self->debug();
my($fh, $hta_fn) = tempfile(UNLINK =>... |
| 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-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"... |
| 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::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-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::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::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::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::Server | show |
| sub Action_DeleteServer4 {
my($self, $wiz) = @_;
$self->DeleteItem($wiz,1);
$self->Action_Reset($wiz);
} |
| 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 | 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-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::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... |
| 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_... |
| 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... |
| WordPress-XMLRPC-2.12 | WordPress::XMLRPC | show |
| sub getUserMeta
{
my $self = shift;
my $username = $self->username;
my $password = $self->password;
my $meta = shift;
$meta = undef unless defined($meta);
croak('Missing argument - hash reference of user meta requirements') unless defined($m... |
| Working-Daemon-0.31 | Working::Daemon::Syslog | show |
| sub action_stop {
my $self = shift;
$self->NEXT::action_stop(@_);
closelog();
} |
| Wrap-Sub-0.06 | Wrap::Sub::Child | show |
| sub _end {} |
| 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::Response | show |
| sub Headers {
my $self = shift;
"content-type: " . $self->ContentType() . "\n\n";
} |
| 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::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::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-Feed-Deduper-0.06 | XML::Feed::Deduper | show |
| sub dedup {
my ($self, @entries) = @_;
my $engine = $self->{engine} or die 'wtf?';
my @res;
for my $entry (@entries) {
next unless $engine->is_new($entry);
push @res, $entry;
$engine->add($entry);
}
... |
| 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.16.0 | 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-Grammar-Fiction-0.16.0 | 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-NessusParser-0.01 | NessusParser::Host::Plugins | show |
| sub get_severity {
my ($self) = @_;
my $returnValue = -1;
if ( defined($self->{stem}->{'severity'})) {
$returnValue = $self->{stem}->{'severity'};
}
return $returnValue;
} |
| XML-NessusParser-0.01 | NessusParser::Host | show |
| sub get_bios_uuid {
my ($self,$name) = shift;
my $returnValue = -1;
if ( defined($self->{stem}{'HostProperties'}{'bios-uuid'})) {
$returnValue = $self->{stem}{HostProperties}{'bios-uuid'};
}
return $returnValue;
} |
| XML-NmapParser-0.1 | NmapParser | show |
| sub get_host {
my ($self,$hostIP) = @_;
my $host;
foreach ( @{$self->{parsed}{hosts}}) {
if (ref($_->{address}) eq "HASH" ) {
$host = $_ if ( $_->{address}{addr} eq $hostIP );
} elsif (ref($_->{address}) eq "ARRAY") {
for my... |
| XML-NmapParser-0.1 | NmapParser::Host::Script | show |
| sub output {
my ($self,$port) = @_;
my $returnValue = "unknown";
if ( defined($self->{stem}{output}) ) { $returnValue = $self->{stem}{output}; }
return $returnValue;
} |
| XML-NmapParser-0.1 | NmapParser::Host::TraceHop | show |
| sub host{ } |
| XML-NmapParser-0.1 | NmapParser::Host::Service | show |
| sub port {
my ($self,$port) = @_;
my $returnValue = -1;
if ( defined($self->{stem}{portid}) ) { $returnValue = $self->{stem}{portid}; }
return $returnValue;
} |
| XML-Parser-Expat-Dispatched-0.952 | XML::Parser::Expat::Dispatched | show |
| sub new {
my($package) = shift;
my ($opts, %dispatch, $s);
{ $opts =
{Start => 'Start',
End => 'End',
handler => 'handler',
};
if ($package->can('config_dispatched')) {
my $con... |
| 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.24 | 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.14 | 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-XSH-1.8.6 | XML::XSH::Parser | show |
| sub new { my $self = bless( {
'_AUTOTREE' => undef,
'rules' => {
'shell' => bless( {
'impcount' => 0,
... |
| XML-XSH2-2.2.3 | Parse::RecDescent::_Runtime | show |
| sub new { my $self = bless( {
'startcode' => '',
'_check' => {
'prevline' => '',
'itempos' => '',
'thisoffset' =>... |
| 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 | 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::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... |
| XMLRPC-Fast-0.11 | XMLRPC::Fast | show |
| sub decode_node {
my ($node) = shift;
my @result;
while (defined (my $e = shift @$node)) {
next if ref $e eq "HASH";
shift @$node and next if $e eq "0";
if ($e eq "value") {
my $v = shift @$nod... |
| XPlanner-0.01 | ProjectData | show |
| sub delete {
my $self = shift;
my $proxy = $self->{_proxy};
$proxy->removeProject($self->{id});
} |
| XS-TCC-0.05 | XS::TCC::Parser | show |
| sub extract_function_metadata {
my ($code) = @_;
my $results = {
function_names => [],
functions => {},
};
$code =~ s/$RE_comment_C/ /go;
$code =~ s/$RE_comment_Cpp/ /go;
$code =~ s/^\#.*(\\\n.*)*//mgo;
$code =~ s/$RE_balance... |
| XSConfig-6.27 | Config | show |
| sub AUTOLOAD {
require 'Config_xs_heavy.pl' if defined &DynaLoader::boot_DynaLoader;
goto \&launcher unless $Config::AUTOLOAD =~ /launcher$/;
die "&Config::AUTOLOAD failed on $Config::AUTOLOAD";
} |
| XTaTIK-0.005002 | XTaTIK::Common | show |
| sub set_product_pic {
my $c = shift;
my ( $pic, $num ) = @_;
if ( length $pic ) {
$pic = join '?',
grep $c->app->static->file( catfile 'product-pics', $_ ),
split /\?/, $pic;
$pic = 'nopic... |
| YATT-Lite-0.101 | YATT::Lite::XHF::Dumper | show |
| sub dump_hash {
my ($item) = @_;
"{\n" . _dump_pairs(map {$_, $item->{$_}} sort keys %$item) . "\n}";
} |
| Yancy-1.039 | Yancy::Plugin::Form::Bootstrap4 | show |
| sub form_for {
my ( $self, $c, $coll, %opt ) = @_;
my $item = $opt{ item } || $c->stash( 'item' ) || {};
my $props = $c->yancy->schema( $coll )->{properties};
my @sorted_props
= sort {
( $props->{$a}{'x-... |
| Yukki-0.140290 | 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;
} |
| Zonemaster-Backend-4.0.1 | Zonemaster::Backend::Validator | show |
| sub jsonrpc_method {
return joi->string->regex('^[a-zA-Z0-9_-]*$');
} |
| as-0.08 | as | show |
| sub _import {
return if @_ < 3 or $_[-2] ne 'as';
_alias( $_[0], $_[-1] );
return;
} |
| autobox-Transform-1.034 | autobox::Transform | show |
| sub to_array {
my $hash = shift;
my @new_array = map_each_to_array($hash, sub { shift() => $_ });
return wantarray ? @new_array : \@new_array;
} |
| cPanel-PublicAPI-2.5 | 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->{$_} ) } sort keys %{$formdata} );
}
return... |
| cPanel-PublicAPI-2.5 | 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 ... |
| 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.46 | DBIx::dbMan::Interface | show |
| sub is_utf8 {
my $obj = shift;
return 0;
} |
| dbMan-0.46 | 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.46 | DBIx::dbMan::Lang | show |
| sub str {
my $obj = shift;
my $str = join '',@_;
return $obj->{ gettext }->get( $str );
} |
| dbMan-0.46 | DBIx::dbMan::DBI | show |
| sub mempool {
my $obj = shift;
return undef unless $obj->{ current };
return $obj->{ connections }->{ $obj->{ current } }->{ -mempool };
} |
| dbMan-0.46 | 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.46 | DBIx::dbMan::Extension | show |
| sub handle_action {
my ($obj,%action) = @_;
$action{processed} = 1;
return %action;
} |
| dbMan-0.46 | 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.46 | DBIx::dbMan::Interface::tkgui | show |
| sub is_utf8 {
return 1;
} |
| dbMan-0.46 | DBIx::dbMan::Interface::cmdline | show |
| sub error {
my $obj = shift;
if ( $obj->{-config}->use_color ) {
$obj->print( color( 'bright_red' ) . "ERROR: " . join ( '',@_ ) . color( 'reset' ) . "\n" );
}
else {
$obj->print("ERROR: ",join '',@_,"\n");
}
} |
| dbMan-0.46 | DBIx::dbMan::Interface::curses | show |
| sub current_line {
my $obj = shift;
return $obj->{sqleditor}->get();
} |
| dbMan-0.46 | 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} = 'CACHE';
$action{type} = 'object' if lc $action{type} eq 'context';
$action{cache_type}... |
| dbMan-0.46 | 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.46 | 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.46 | 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.46 | 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.46 | 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}) {
... |
| dbMan-0.46 | 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.46 | 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.46 | 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.46 | 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.46 | 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.46 | 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.46 | DBIx::dbMan::Extension::CmdSetOracleSpecials | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
my $local_mempool = $obj->{-dbi}->mempool();
return qw/ORACLE/ if $line =~ /^\s*SET\s+\S*$/i;
return qw/SET/ if $line =~ /^\s*[A-Z]*$/i;
my @ret = ();
if ( $local_mempool ) {
push @ret, ... |
| dbMan-0.46 | DBIx::dbMan::Extension::FallbackNotify | show |
| sub handle_action {
my ($obj,%action) = @_;
$action{processed} = 1;
$action{action} = 'NONE' if $action{action} eq 'NOTIFY';
return %action;
} |
| dbMan-0.46 | 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.46 | 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.46 | 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.46 | 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.46 | 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.46 | DBIx::dbMan::Extension::SuggestionCacheStore | show |
| sub handle_action {
my ($obj,%action) = @_;
$action{processed} = 1;
if ($action{action} eq 'CACHE' and $action{oper} eq 'complete' and $action{what} eq 'list') {
$action{action} = 'NONE';
my $local_mempool = $obj->{-dbi}->mempool();
my $... |
| dbMan-0.46 | 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.46 | 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} = '';
$obj->{-interface}->e... |
| dbMan-0.46 | 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.46 | 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;
}
... |
| dbMan-0.46 | 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.46 | 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.46 | 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.46 | 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.46 | 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.46 | 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.46 | 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.46 | 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.46 | 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.46 | 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.46 | DBIx::dbMan::Extension::CmdComments | show |
| dbMan-0.46 | 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.46 | 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.46 | 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.46 | 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.46 | 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.46 | DBIx::dbMan::Extension::SQLOutputTable | show |
| sub handle_action {
my ($obj,%action) = @_;
$action{processed} = 1;
if ($action{action} eq 'SQL_OUTPUT') {
my $colorized = $obj->{-mempool}->get('output_format') eq 'colortable';
my $table = new Text::FormatTable ('|'.( 'l|' x scalar... |
| dbMan-0.46 | 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.46 | 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');
$action{ o... |
| dbMan-0.46 | 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.46 | 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_transa... |
| dbMan-0.46 | 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.46 | 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.46 | 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.46 | 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.46 | 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} = 'CACHE';
$action{cache_type} = 'describe_ora';
unless ($obj->{-dbi}-... |
| dbMan-0.46 | DBIx::dbMan::Extension::SuggestionCacheRetrieve | show |
| sub handle_action {
my ($obj,%action) = @_;
$action{processed} = 1;
if ($action{action} eq 'SQL' && $action{oper} eq 'complete' and $action{what} eq 'list') {
my $local_mempool = $obj->{-dbi}->mempool();
my $cache_type = '';
if ( $obj-&g... |
| dbMan-0.46 | 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|(color)?records)$/) {
my @widths = ();
for ($action{fieldnames},... |
| dbMan-0.46 | 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.46 | 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/COLOR/ if $line =~ /^\s*CREATE\s+(PERMANENT\s+)?CONNECTION\s+\S+\s+... |
| dbMan-0.46 | 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.46 | 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.46 | 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.46 | 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.46 | DBIx::dbMan::Extension::CmdSetSuggestionCache | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
my $local_mempool = $obj->{-dbi}->mempool();
if ( $local_mempool ) {
return qw/ON OFF/ if $line =~ /^\s*SET\s+SUGGESTION\s+CACHE\s+\S*$/i;
return qw/CACHE/ if $line =~ /^\s*SET\s+SUGGES... |
| dbMan-0.46 | 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.46 | 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.46 | 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.46 | 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.46 | 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 => $action{opt_quote},
eol => $action{opt_eol}, binary => 1,
sep_char => $action{opt_separ... |
| dbMan-0.46 | 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.46 | 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.46 | 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 && $_ != 255 && ... |
| dbMan-0.46 | 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.46 | 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.46 | 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.46 | 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.46 | 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.46 | 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.46 | 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.46 | DBIx::dbMan::Extension::OutputPager | show |
| dbMan-0.46 | 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.46 | DBIx::dbMan::Extension::CmdAuthors | show |
| sub cmdcomplete {
my ($obj,$text,$line,$start) = @_;
return qw/AUTHORS/ if $line =~ /^\s*[A-Z]*$/i;
return ();
} |
| dbMan-0.46 | 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.46 | 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.46 | 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.46 | 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.46 | 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.46 | 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.46 | 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.46 | 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.46 | 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.46 | DBIx::dbMan::Extension::ShowTablesOracle | show |
| sub handle_action {
my ($obj,%action) = @_;
if ($action{action} eq 'SHOW_TABLES' and $obj->{-dbi}->driver eq 'Oracle') {
my $colorized = $obj->{-mempool}->get('output_format') eq 'colortable';
my $table = new Text::FormatTable '| ... |
| dbMan-0.46 | 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.46 | 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.46 | 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.46 | 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.46 | 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.46 | DBIx::dbMan::Extension::CmdEval | show |
| sub cmdhelp {
my $obj = shift;
return [ 'EVAL <commands>' => 'Evaluate Perl commands',
'SYSTEM <command>' => 'Evaluate shell expression' ];
} |
| dbMan-0.46 | 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;
}
... |
| dbMan-0.46 | 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.46 | 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.46 | 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.46 | DBIx::dbMan::Extension::CmdPager | show |
| 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;
}
} |
| disbatch-4.103 | Disbatch::QueueBalance | show |
| sub max_tasks {
my ($max_threads_entries, $debug) = @_;
die 'Nothing passed to max_tasks' unless defined $max_threads_entries;
use warnings FATAL => 'uninitialized';
my $max_threads_hash = {};
for my $k (sort keys %$max_threads_en... |
| 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.36 | threads::shared::scalar | show |
| sub STORE { ${${$_[0]}} = $_[1] } |
| forks-0.36 | threads::shared::handle | show |
| sub WRITE { syswrite( ${$_[0]},$_[1],$_[2],$_[3] ) } |
| forks-0.36 | threads::shared::array | show |
| sub DELETE { delete ${$_[0]}->[$_[1]] } |
| forks-0.36 | threads::shared::hash | show |
| sub DELETE { delete ${$_[0]}->{$_[1]} } |
| forks-0.36 | forks::shared | show |
| sub _croak { return &Carp::confess(shift) } |
| 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.15 | GO::Model::Species | show |
| sub binomial {
my $self = shift;
return ($self->genus || "")." ".($self->species || "");
} |
| head-r-0.1 | App::HeadR | show |
| sub new {
my ($class, $options) = @_;
Carp::croak ("user-agent must be given and an object")
unless (Scalar::Util::blessed ($options->{"user-agent"}));
my $self = {
"uri-info" => { }
};
$self->{$_}
= $... |
| 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 } |
| 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... |
| 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-110 | 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-110 | 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::HTML | show |
| sub print_help_footer {
my $self = shift;
print "</pre><p>\n";
} |
| 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-&... |
| 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.2 | 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.8052 | 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::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... |
| 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: $!";... |
| 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]-... |
| 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);
} |
| perlude-0.61 | Perlude::Open | show |
| sub open_file {
return shift if ref ($_[0]||=$_);
( _callback_for_nargs +@_ )->(@_)
} |
| 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.04 | pkg | show |
| sub _die {
require Carp;
my $err = @_ > 1 ? sprintf( shift, @_ ) : $_[0];
Carp::croak( q[error in use pkg: ], $err );
} |
| plenigo-2.0006 | plenigo::Product | show |
| sub createModifiedPlenigoProduct {
my ($self, $product_id, $new_product_id, $title) = @_;
my $new_product = plenigo::Product->new(product_id => $product_id);
$new_product->title($title);
$new_product->product_id_replacement($n... |
| 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));
} |
| 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(@_);
} |
| 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::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;
} |
| 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::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... |
| rpn | cmo::rpn::deco::Mod | show |
| sub toString(){
return 'Mod';
} |
| rpn | cmo::rpn::deco::Minus | show |
| sub toString(){
return 'Minus';
} |
| rpn | cmo::rpn::deco::Multiply | show |
| sub toString(){
return 'Multiply';
} |
| rpn | cmo::rpn::deco::Sqrt | show |
| sub toString(){
return 'Sqrt';
} |
| rpn | cmo::rpn::deco::Divide | show |
| sub toString(){
return 'Divide';
} |
| rpn | cmo::rpn::deco::Plus | show |
| sub toString(){
return 'Plus';
} |
| setenv-0.04 | setenv | show |
| sub unimport {
shift;
if (@_) {
delete @ENV{@_};
}
else {
%ENV= ();
}
return;
} |
| stockmonkey-2.9409 | Math::Business::EMA | show |
| sub query {
my $this = shift;
return $this->{EMA};
} |
| stockmonkey-2.9409 | Math::Business::RSI | show |
| sub query {
my $this = shift;
return $this->{RSI};
} |
| stockmonkey-2.9409 | Math::Business::CCI | show |
| sub query {
my $this = shift;
return $this->{CCI};
} |
| stockmonkey-2.9409 | Math::Business::LaguerreFilter | show |
| sub query {
my $this = shift;
return $this->[F];
} |
| stockmonkey-2.9409 | Math::Business::ParabolicSAR | show |
| sub short {
my $this = shift;
$this->{ls} == SHORT;
} |
| stockmonkey-2.9409 | Math::Business::ATR | show |
| sub query {
my $this = shift;
return $this->{ATR};
} |
| stockmonkey-2.9409 | Math::Business::ConnorRSI | show |
| sub query {
my $this = shift;
return $this->{connor};
} |
| stockmonkey-2.9409 | Math::Business::HMA | show |
| sub query {
my $this = shift;
return $this->[2]->query;
} |
| stockmonkey-2.9409 | 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}-&... |
| stockmonkey-2.9409 | Math::Business::SMA | show |
| sub query {
my $this = shift;
return $this->{SMA};
} |
| stockmonkey-2.9409 | Math::Business::DMI | show |
| sub query {
my $this = shift;
return ($this->{PDI}, $this->{MDI}, $this->{ADX}) if wantarray;
return $this->{ADX};
} |
| stockmonkey-2.9409 | Math::Business::ADX | show |
| sub set_days {
my $this = shift;
$this->SUPER::set_days(@_);
$this->{tag} = "ADX($this->{days})";
} |
| stockmonkey-2.9409 | Math::Business::WMA | show |
| sub query {
my $this = shift;
return $this->[5];
} |
| stockmonkey-2.9409 | Math::Business::BollingerBands | show |
| sub query {
my $this = shift;
return ($this->{L}, $this->{M}, $this->{U}) if wantarray;
return $this->{M};
} |
| stockmonkey-2.9409 | Math::Business::SM::Stochastic | show |
| sub query {
my $this = shift;
return ($this->{D}, $this->{K});
} |
| theshopbizstore | Theshopbizstore | show |
| sub get_html{
my $html = <<HTML;
return $html;
} |
| 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... |
| uplug-main-0.3.8 | Uplug::XML::SubTree | show |
| sub XmlDoctype{
my ($p,$name,$sysid,$publid,$internal)=@_;
} |
| 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::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::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::XML | show |
| sub CloseAllTags{
my ($self)=@_;
if (defined $self->{OpenTagStack}){
while (@{$self->{OpenTagStack}}){
$self->CloseTag;
}
}
} |
| 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::IO::LWA | show |
| sub close{
my $self=shift;
$self->{source}->close();
$self->{target}->close();
$self->SUPER::close(@_);
} |
| 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::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::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::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::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-v8.115 | 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;... |