view release on metacpan or search on metacpan
lib/CWB/CEQL.pm view on Meta::CPAN
package BNCWEB::CEQL;
use base 'CWB::CEQL';
sub lemma {
## overwrite 'lemma' rule here (e.g. to allow for BNCweb's ``{bucket/N}'' notation)
my $orig_result = $self->SUPER::lemma($string); # call original rule if needed
}
## you can now use BNCWEB::CEQL in the same way as CWB::CEQL
=head1
view release on metacpan or search on metacpan
require IO::File;
my $fh = IO::File->new($cc0_h, "w") or die $!;
$fh->printflush($content) or die $!;
$fh->close or die $!;
}
return $self->SUPER::compile_c($file, %args);
}
sub link_c {
no strict "refs";
my($self, $spec) = @_;
my $cb = $self->cbuilder;
"--dllname", $spec{basename}.".".$cf->{dlext},
$spec{output},
] if $spec{output} eq $norm_libfile;
return @cmds;
} if $cb->isa("ExtUtils::CBuilder::Platform::Windows::GCC");
$self->SUPER::link_c($spec);
if($^O eq "MSWin32") {
die "failed to generate import library"
unless -e $impfile;
$self->add_to_cleanup($impfile);
}
view release on metacpan or search on metacpan
t/ffi_raw_ptr.t view on Meta::CPAN
$shared, 'foo_new',
FFI::Raw::ptr
)->coderef;
sub new {
bless shift->SUPER::new(_foo_new());
}
*get_bar = FFI::Raw->new(
$shared, 'foo_get_bar',
FFI::Raw::int,
view release on metacpan or search on metacpan
inc/TestML/Runtime/TAP.pm view on Meta::CPAN
has tap_object => sub { Test::Builder->new };
has planned => 0;
sub run {
my ($self) = @_;
$self->SUPER::run;
$self->check_plan;
$self->plan_end;
}
sub run_assertion {
my ($self, @args) = @_;
$self->check_plan;
$self->SUPER::run_assertion(@args);
}
sub check_plan {
my ($self) = @_;
if (! $self->planned) {
view release on metacpan or search on metacpan
inc/Inline/CPP.pm view on Meta::CPAN
unless defined $o->{ILSM}{PRESERVE_ELLIPSIS};
# Filter out the parameters we treat differently than Inline::C,
# forwarding unknown requests back up to Inline::C.
my @propagate = _handle_config_options($o, @config_options);
$o->SUPER::validate(@propagate) if @propagate;
return;
}
inc/Inline/CPP.pm view on Meta::CPAN
# Intercept xs_generate and create the typemap file
#============================================================================
sub xs_generate {
my $o = shift;
$o->write_typemap;
return $o->SUPER::xs_generate;
}
#============================================================================
# Return bindings for functions and classes
#============================================================================
view release on metacpan or search on metacpan
lib/Tickit/ContainerWidget.pm view on Meta::CPAN
foreach my $method (qw( children )) {
$class->can( $method ) or
croak "$class cannot ->$method - do you subclass and implement it?";
}
my $self = $class->SUPER::new( @_ );
$self->{child_opts} = {};
return $self;
}
lib/Tickit/ContainerWidget.pm view on Meta::CPAN
}
sub window_gained
{
my $self = shift;
$self->SUPER::window_gained( @_ );
$self->window->set_focus_child_notify( 1 );
}
sub window_lost
lib/Tickit/ContainerWidget.pm view on Meta::CPAN
$childwin and $childwin->close;
$child->set_window( undef );
}
$self->SUPER::window_lost( @_ );
}
sub _on_win_focus
{
my $self = shift;
$self->SUPER::_on_win_focus( @_ );
$self->set_style_tag( "focus-child" => $_[1] ) if $_[2];
}
=head2 find_child
view release on metacpan or search on metacpan
lib/Alvis/NLPPlatform/ParseConstituents.pm view on Meta::CPAN
sub new {
my($class)=shift;
ref($class)
and $class=ref($class);
my($self)=$class->SUPER::new( yyversion => '1.05',
yystates =>
[
{#State 0
DEFAULT => -1,
GOTOS => {
view release on metacpan or search on metacpan
inc/Alzabo/GUI/Mason/Build.pm view on Meta::CPAN
sub ACTION_install
{
my $self = shift;
$self->SUPER::ACTION_install;
$self->depends_on('install_components');
}
sub ACTION_install_components
view release on metacpan or search on metacpan
inc/Alzabo/Build.pm view on Meta::CPAN
$self->depends_on('code');
$self->ACTION_pod_merge;
$self->SUPER::ACTION_docs(@_);
}
sub ACTION_pod_merge
{
my $self = shift;
inc/Alzabo/Build.pm view on Meta::CPAN
sub ACTION_install
{
my $self = shift;
$self->SUPER::ACTION_install(@_);
}
1;
view release on metacpan or search on metacpan
lib/Amazon/API.pm view on Meta::CPAN
sub new {
my $class = shift;
my $options = shift || {};
$class->SUPER::new({
%$options,
service_url_base => 'events',
version => undef,
api => 'AWSEvents',
api_methods => \@API_METHODS,
lib/Amazon/API.pm view on Meta::CPAN
=cut
sub new {
my $class = shift;
my $self = $class->SUPER::new(@_);
unless ($self->get_user_agent) {
$self->set_user_agent(new LWP::UserAgent);
}
lib/Amazon/API.pm view on Meta::CPAN
$options->{api} 'AWSEvents';
$options->{url} 'https://events.us-east-1.amazonaws.com';
$options->{api_methods} => [ 'ListRules' ];
return $class->SUPER::new($options);
}
1;
Then...
lib/Amazon/API.pm view on Meta::CPAN
You can set the default Content-Type used for the calling service when
a reference is passed to the C<invoke_api()> method by passing the
C<content_type> option to the constructor.
$class->SUPER::new({%@_, content_type => 'application/x-amz-json-1.1', api => 'AWSEvents',
url => 'https://events.us-east-1.amazonaws.com'});
=head1 SEE OTHER
C<Amazon::Credentials>, C<Amazon::API::Error>
view release on metacpan or search on metacpan
lib/Amazon/Credentials.pm view on Meta::CPAN
=cut
sub new {
my $class = shift;
my $self = $class->SUPER::new(ref($_[0]) ? $_[0] : { @_ });
unless ( $self->get_logger ) {
$self->set_logger(bless {}, 'Amazon::Credentials::Logger');
}
view release on metacpan or search on metacpan
lib/Amazon/EC2.pm view on Meta::CPAN
sub new {
my $class = shift;
my $options = shift || {};
$class->SUPER::new({
%$options,
service_url_base => 'ec2',
version => '2016-11-15',
api_methods => \@API_METHODS
});
view release on metacpan or search on metacpan
lib/Amazon/S3.pm view on Meta::CPAN
$options{logger}
= Amazon::S3::Logger->new( log_level => $options{log_level} );
}
my $self = $class->SUPER::new( \%options );
# setup logger internal logging
$self->get_logger->debug(
sub {
view release on metacpan or search on metacpan
lib/Amazon/SQS/Client.pm view on Meta::CPAN
$client_options = $args[3] // {};
$client_options->{SecurityToken} = $args[2];
}
}
return $class->SUPER::new(
{ aws_access_key_id => $args[0],
aws_secret_access_key => $args[1],
$client_options->{SecurityToken} ? ( token => $client_options->{SecurityToken} ) : (),
$client_options->{loglevel} ? ( loglevel => $client_options->{loglevel} ) : (),
}
lib/Amazon/SQS/Client.pm view on Meta::CPAN
$options->{credentials} //= Amazon::Credentials->new();
}
set_defaults($options);
my $self = $class->SUPER::new($options);
$self->init_v4_signer;
return $self;
}
view release on metacpan or search on metacpan
lib/Amazon/SQS/Consumer.pm view on Meta::CPAN
sub initialize {
my $me = shift;
$me->{n_messages} ||= DEFAULT_N_MESSAGES;
$me->{wait_seconds} ||= DEFAULT_WAIT_SECONDS;
$me->SUPER::initialize;
}
=head2 next()
This will receive a message from this Publisher's queue. When the queue is empty it will wait a new message for wait_seconds seconds.
view release on metacpan or search on metacpan
lib/Amazon/SecretsManager.pm view on Meta::CPAN
}
elsif ( @_ ) {
%options = %{$_[0]};
}
$class->SUPER::new(
{ decode_always => TRUE,
service_url_base => AWS_SERVICE_URL_BASE,
version => AWS_API_VERSION,
api => AWS_API,
api_methods => \@API_METHODS,
view release on metacpan or search on metacpan
lib/Amazon/SimpleDB/ErrorResponse.pm view on Meta::CPAN
# can multiple errors happen in one response?
sub new {
my $self = shift;
$self->SUPER::new(@_);
$self->{'request_id'} = $self->{content}->{Response}{RequestID};
$self->{'box_usage'} =
$self->{content}->{Response}{Errors}{Error}{BoxUsage};
return $self;
}
view release on metacpan or search on metacpan
lib/Ambrosia/Addons/Session.pm view on Meta::CPAN
{
our $__SESSION__;
sub new : Private
{
return shift->SUPER::new(@_);
}
sub instance
{
return $__SESSION__ ||= @_ ? shift()->new(@_) : new Ambrosia::core::Nil;
view release on metacpan or search on metacpan
Amethyst/Brain/BarWench.pm view on Meta::CPAN
@ISA = qw(Amethyst::Brain);
sub reply_to {
my $self = shift;
my $message = $self->SUPER::reply_to(@_);
# $message->channel('spam');
return $message;
}
sub init {
view release on metacpan or search on metacpan
lib/Amon2/DBI.pm view on Meta::CPAN
my $dbd_pg_version = eval { require DBD::Pg; (DBD::Pg->VERSION =~ /^([.0-9]+)\./)[0] };
if ( !$@ and $dbd_pg_version < 2.99 ) { # less than DBD::Pg 2.99, pg_enable_utf8 must be set for utf8.
$attr->{pg_enable_utf8} = 1 unless exists $attr->{pg_enable_utf8};
}
}
my $self = $class->SUPER::connect($dsn, $user, $pass, $attr) or die "Cannot connect to server: $DBI::errstr";
return $self;
}
package Amon2::DBI::dr;
our @ISA = qw(DBI::dr);
lib/Amon2/DBI.pm view on Meta::CPAN
use Scalar::Util ();
sub connected {
my $dbh = shift;
$dbh->{private_connect_info} = [@_];
$dbh->SUPER::connected(@_);
}
sub connect_info { $_[0]->{private_connect_info} }
sub _txn_manager {
view release on metacpan or search on metacpan
inc/Pod/Markdown.pm view on Meta::CPAN
use parent qw(Pod::Parser);
use Pod::ParseLink (); # core
sub initialize {
my $self = shift;
$self->SUPER::initialize(@_);
$self->_private;
$self;
}
sub _private {
view release on metacpan or search on metacpan
lib/Amon2/Web/Request.pm view on Meta::CPAN
use URI::QueryParam;
use Hash::MultiValue;
sub new {
my ($class, $env, $context_class) = @_;
my $self = $class->SUPER::new($env);
if (@_==3) {
$self->{_web_pkg} = $context_class;
}
return $self;
}
lib/Amon2/Web/Request.pm view on Meta::CPAN
# -------------------------------------------------------------------------
# This object returns decoded parameter values by default
sub body_parameters {
my ($self) = @_;
$self->{'amon2.body_parameters'} ||= $self->_decode_parameters($self->SUPER::body_parameters());
}
sub query_parameters {
my ($self) = @_;
$self->{'amon2.query_parameters'} ||= $self->_decode_parameters($self->SUPER::query_parameters());
}
sub _decode_parameters {
my ($self, $stuff) = @_;
lib/Amon2/Web/Request.pm view on Meta::CPAN
# -------------------------------------------------------------------------
# raw parameter values are also available.
sub body_parameters_raw {
shift->SUPER::body_parameters();
}
sub query_parameters_raw {
shift->SUPER::query_parameters();
}
sub parameters_raw {
my $self = shift;
$self->env->{'plack.request.merged'} ||= do {
my $query = $self->SUPER::query_parameters();
my $body = $self->SUPER::body_parameters();
Hash::MultiValue->new( $query->flatten, $body->flatten );
};
}
sub param_raw {
my $self = shift;
view release on metacpan or search on metacpan
lib/Analizo/Batch/Directories.pm view on Meta::CPAN
__PACKAGE__->mk_accessors(qw(directories));
sub new {
my ($class, @directories) = @_;
my $self = $class->SUPER::new;
if (@directories < 1) {
@directories = glob('*');
}
@directories = grep { -d $_ } @directories;
$self->directories(\@directories);
view release on metacpan or search on metacpan
lib/Anansi/Actor.pm view on Meta::CPAN
use File::Find;
use File::Spec::Functions;
use FileHandle;
my $ACTOR = Anansi::Actor->SUPER::new();
=head1 METHODS
=cut
view release on metacpan or search on metacpan
lib/Anansi/Class.pm view on Meta::CPAN
=head2 finalise
$OBJECT->finalise();
$OBJECT->SUPER::finalise();
=over 4
=item self I<(Blessed Hash, Required)>
lib/Anansi/Class.pm view on Meta::CPAN
my ($self, $caller, $parameter) = @_;
if('EXAMPLE_VARIABLE' eq $parameter) {
return \EXAMPLE_VARIABLE;
}
try {
return $self->SUPER::implicate($caller, $parameter);
}
return if($@);
}
=over 4
lib/Anansi/Class.pm view on Meta::CPAN
sub implicate {
my ($self, $caller, $parameter) = @_;
try {
return $self->SUPER::implicate($caller, $parameter);
}
return if($@);
}
lib/Anansi/Class.pm view on Meta::CPAN
=head2 initialise
$OBJECT->initialise();
$OBJECT->SUPER::initialise();
=over 4
=item self I<(Blessed Hash, Required)>
view release on metacpan or search on metacpan
lib/Anansi/Database/MySQL.pm view on Meta::CPAN
=cut
sub connect {
my ($self, $channel, %parameters) = @_;
return $self->SUPER::connect(
undef,
INPUT => [
{
INPUT => [
'dbi:mysql:database=', {
lib/Anansi/Database/MySQL.pm view on Meta::CPAN
sub validate {
my ($self, $channel, %parameters) = @_;
$parameters{DRIVERS} = 'MySQL';
return $self->SUPER::validate(undef, (%parameters));
}
Anansi::Component::addChannel('Anansi::Database::MySQL', 'VALIDATE_AS_APPROPRIATE' => 'validate');
view release on metacpan or search on metacpan
lib/Anansi/Database/Oracle.pm view on Meta::CPAN
=cut
sub connect {
my ($self, $channel, %parameters) = @_;
return $self->SUPER::connect(
undef,
INPUT => [
{
INPUT => [
'dbi:Oracle:host=', {
lib/Anansi/Database/Oracle.pm view on Meta::CPAN
sub validate {
my ($self, $channel, %parameters) = @_;
$parameters{DRIVERS} = 'Oracle';
return $self->SUPER::validate(undef, (%parameters));
}
Anansi::Component::addChannel('Anansi::Database::Oracle', 'VALIDATE_AS_APPROPRIATE' => 'validate');
view release on metacpan or search on metacpan
lib/Anansi/Database/PostgreSQL.pm view on Meta::CPAN
=cut
sub connect {
my ($self, $channel, %parameters) = @_;
return $self->SUPER::connect(
undef,
INPUT => [
{
INPUT => [
'dbi:Pg:dbname=', {
lib/Anansi/Database/PostgreSQL.pm view on Meta::CPAN
$parameters{DRIVERS} = [
'Pg',
'Postgres',
'PostgreSQL'
];
return $self->SUPER::validate(undef, (%parameters));
}
Anansi::Component::addChannel('Anansi::Database::PostgreSQL', 'VALIDATE_AS_APPROPRIATE' => 'validate');
view release on metacpan or search on metacpan
lib/Anansi/DatabaseComponent.pm view on Meta::CPAN
use base qw(Anansi::DatabaseComponent);
sub connect {
my ($self, $channel, %parameters) = @_;
return $self->SUPER::connect(
undef,
INPUT => [
'some text',
{
NAME => 'someParameter',
lib/Anansi/DatabaseComponent.pm view on Meta::CPAN
=cut
sub addChannel {
my ($self, %parameters) = @_;
return $self->SUPER::addChannel((%parameters));
}
=head2 autoCommit
lib/Anansi/DatabaseComponent.pm view on Meta::CPAN
=cut
sub removeChannel {
my ($self, %parameters) = @_;
return $self->SUPER::removeChannel((%parameters));
}
=head2 rollback
view release on metacpan or search on metacpan
lib/Anansi/ObjectManager.pm view on Meta::CPAN
use base qw(Anansi::ObjectManager);
sub initialise {
my ($self, %parameters) = @_;
$self->SUPER::initialise(%parameters);
}
1;
=over 4
lib/Anansi/ObjectManager.pm view on Meta::CPAN
use base qw(Anansi::ObjectManager);
sub old {
my ($self, %parameters) = @_;
$self->SUPER::old(%parameters);
}
1;
=over 4
lib/Anansi/ObjectManager.pm view on Meta::CPAN
use base qw(Anansi::ObjectManager);
sub reinitialise {
my ($self, %parameters) = @_;
$self->SUPER::reinitialise(%parameters);
}
1;
=over 4