view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
eval { require Text::Diff; 1 } &&
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
lib/NET/MitM.pm view on Meta::CPAN
$child->_destroy();
return undef;
}
}
sub go()
{
my $this=shift;
$this->listen();
$this->_main_loop();
return undef;
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
eval { require Text::Diff; 1 } &&
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
lib/Nasm/X86.pm view on Meta::CPAN
push @text, <<END; # Define bytes
$l:
END
}
sub Ds(@) # Layout bytes in memory and return their label
{my (@d) = @_; # Data to be laid out
my $d = join '', @_;
$d =~ s(') (\')gs;
my $l = Label;
push @data, <<END; # Define bytes
$l: db '$d';
END
$l # Return label
}
sub Rs(@) # Layout bytes in read only memory and return their label
{my (@d) = @_; # Data to be laid out
my $d = join '', @_;
$d =~ s(') (\')gs;
return $_ if $_ = $rodatas{$d}; # Data already exists so return it
my $l = Label;
lib/Nasm/X86.pm view on Meta::CPAN
$l: d$s $d
END
$l # Return label
}
sub Db(@) # Layout bytes in the data segment and return their label
{my (@bytes) = @_; # Bytes to layout
Dbwdq 'b', @_;
}
sub Dw(@) # Layout words in the data segment and return their label
{my (@words) = @_; # Words to layout
Dbwdq 'w', @_;
}
sub Dd(@) # Layout double words in the data segment and return their label
{my (@dwords) = @_; # Double words to layout
Dbwdq 'd', @_;
}
sub Dq(@) # Layout quad words in the data segment and return their label
{my (@qwords) = @_; # Quad words to layout
Dbwdq 'q', @_;
}
sub Rbwdq($@) #P Layout data
lib/Nasm/X86.pm view on Meta::CPAN
END
$rodata{$d} = $l; # Record label
$l # Return label
}
sub Rb(@) # Layout bytes in the data segment and return their label
{my (@bytes) = @_; # Bytes to layout
Rbwdq 'b', @_;
}
sub Rw(@) # Layout words in the data segment and return their label
{my (@words) = @_; # Words to layout
Rbwdq 'w', @_;
}
sub Rd(@) # Layout double words in the data segment and return their label
{my (@dwords) = @_; # Double words to layout
Rbwdq 'd', @_;
}
sub Rq(@) # Layout quad words in the data segment and return their label
{my (@qwords) = @_; # Quad words to layout
Rbwdq 'q', @_;
}
#D1 Registers # Operations on registers
lib/Nasm/X86.pm view on Meta::CPAN
}
}
#D1 Structured Programming # Structured programming constructs
sub If(&;&) # If
{my ($then, $else) = @_; # Then - required , else - optional
@_ >= 1 or confess;
if (@_ == 1) # No else
{Comment "if then";
my $end = Label;
view release on metacpan or search on metacpan
lib/Nephia/Setup/Plugin/Relax.pm view on Meta::CPAN
'ErrorPage',
'ResponseHandler',
'Dispatch',
];
sub c () {Nephia::Incognito->unmask(__PACKAGE__)}
### To avoid to create duplicate cookies.
c->action_chain->delete('Nephia::Action::CookieImprinter');
app {
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
eval { require Text::Diff; 1 } &&
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
t/s3-request-bucket-create.t view on Meta::CPAN
BEGIN { require 'test-helper-s3-request.pl' }
plan tests => 11;
sub h ($) {
+{ 'Content-Length' => ignore, 'Content-Type' => ignore, %{ $_[0] } };
}
behaves_like_net_amazon_s3_request 'create bucket' => (
request_class => 'Net::Amazon::S3::Operation::Bucket::Create::Request',
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
eval { require Text::Diff; 1 } &&
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
bin/eboks-auth-mitid view on Meta::CPAN
PeerPort => 8110,
Proto => 'tcp',
);
}
sub h2($) { html "<h2>$_[0]</h2>" . main . quit }
sub h2x($$) { html "<h2>$_[0]</h2><p>$_[1]" . main . quit }
sub error($) { h2x( 'Error', $_[0] ) }
sub handle_saml
{
view release on metacpan or search on metacpan
my $data = shift->result;
});
=cut
sub cb($$) {
my ($self, $cb) = @_;
$self->{cb} = $cb;
$self;
}
view release on metacpan or search on metacpan
sub just($) {
my $code = shift;
$code->();
}
sub on($$) {
return unless $command;
my ($test_command, $run) = @_;
if (ref $test_command eq 'ARRAY') {
for my $test_command (@{ $test_command }) {
just $run if $command eq $test_command;
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
eval { require Text::Diff; 1 } &&
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
bin/mitdk-authenticate view on Meta::CPAN
'Content-Type' => 'text/html',
'Content-Length' => length($html),
], $html)
}
sub h2($) { html "<h2>$_[0]</h2>" . main . quit }
sub h2x($$) { html "<h2>$_[0]</h2><p>$_[1]" . main . quit }
sub error($) { h2x( 'Error', $_[0] ) }
sub handle_saml
{
view release on metacpan or search on metacpan
lib/Net/OAuth2/AccessToken.pm view on Meta::CPAN
#--------------
sub token_type() {shift->{NOA_token_type}}
sub scope() {shift->{NOA_scope}}
sub state() {shift->{NOA_state}}
sub hd() {shift->{NOA_hd}}
sub profile() {shift->{NOA_profile}}
sub attribute($) { $_[0]->{NOA_attr}{$_[1]} }
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
eval { require Text::Diff; 1 } &&
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
eval { require Text::Diff; 1 } &&
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
t/04-cli-cert.t view on Meta::CPAN
use FindBin qw($Bin);
our $TC;
our $DEBUG = $ENV{DEBUG_SSL};
sub ok($$) {
if ( !$_[0] ) {
print "not ";
}
print "ok " . ( ++$TC ) . ( $_[1] ? " - $_[1]" : "" ) . "\n";
return !!$_[0];
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
eval { require Text::Diff; 1 } &&
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
NonBlock.pm view on Meta::CPAN
$SRec->{'BytesIn'} += $Received;
return $Received;
};
sub IO($$)
{
my ($Nest, $ErrArray) = @_;
my $Result = '0 but true';
view release on metacpan or search on metacpan
lib/Net/Whois/SIDN.pm view on Meta::CPAN
my ($type, $data_in) = $self->from($content);
(0, $data_in);
}
sub is($@)
{ my ($self, $domain, @args) = @_;
$self->_call(is => {domain => $domain, @args});
}
sub whois($@)
view release on metacpan or search on metacpan
XIPCloud.pm view on Meta::CPAN
Limit and marker values may be provided (see API documentation) for pagination.
=cut
sub ls() {
my $self = shift;
my $container = shift;
my $limit = shift;
my $marker = shift;
my $list = [];
XIPCloud.pm view on Meta::CPAN
Copy the contents of one object to another
=cut
sub cp() {
my $self = shift;
my $scontainer = shift;
my $sobject = shift;
my $dcontainer = shift;
my $dobject = shift;
XIPCloud.pm view on Meta::CPAN
Rename an object, clobbering any existing object
=cut
sub mv() {
my $self = shift;
my $scontainer = shift;
my $sobject = shift;
my $dcontainer = shift;
my $dobject = shift;
XIPCloud.pm view on Meta::CPAN
Depending on calling arguments, this method returns account or container-level statistics as
a hash reference.
=cut
sub du() {
my $self = shift;
my $container = shift;
my $status = undef;
# ensure we have enough information to continue
XIPCloud.pm view on Meta::CPAN
This method removes an object.
=cut
sub rm() {
my $self = shift;
my $container = shift;
my $object = shift;
my $status = undef;
view release on metacpan or search on metacpan
Lite/t/addr.t view on Meta::CPAN
$| = 1;
print "1..3\n";
my $test = 1;
sub ok() {
print 'ok ',$test++,"\n";
}
my $loip = new NetAddr::IP::Lite('::1.2.3.4/120'); # same as 1.2.3.4/24
my $hiip = new NetAddr::IP::Lite('FF00::1:4/120');
view release on metacpan or search on metacpan
Storage/Std.pm view on Meta::CPAN
get_rzwstr
real nreal get_real get_nreal read_real read_nreal
double ndouble get_double get_ndouble read_double read_ndouble
);
sub B () { "C" } sub BS () { 1 }
sub W () { "v" } sub WS () { 2 }
sub L () { "V" } sub LS () { 4 }
sub R () { "f" } sub RS () { 4 }
sub D () { "d" } sub DS () { 8 }
##
## EXPORT functions, will be exported by default.
##
view release on metacpan or search on metacpan
inc/File/NCopy.pm view on Meta::CPAN
}
@copies;
}
sub cp(@) {
return copy @_;
}
# instantiate our object
sub new(@)
view release on metacpan or search on metacpan
lib/OpenSearch/Base.pm view on Meta::CPAN
push( @{ $self->ua_pool }, $ua );
}
}
sub ua($self) {
my $pool = int( rand( $self->pool_count ) );
return ( $self->ua_pool->[$pool] );
}
sub url( $self, $suffixes = [], $params = {} ) {
view release on metacpan or search on metacpan
t/dat/Base.pm view on Meta::CPAN
eval { require Text::Diff; 1 } &&
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
eval { require Text::Diff; 1 } &&
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
sub SURL_STYLE_STATIC () { SURL_STYLE(_SURL_STYLE_STATIC ) }
sub CHARSET (){ "utf-8" } # the charset used internally by PApp
# we might be slow, but we are rarely being called ;)
sub __($) {
$translator
? $translator->get_table($langs)->gettext($_[0])
: $_[0]
}
sub N_($) { $_[0] }
# constant
our $xmlnspapp = "http://www.plan9.de/xmlns/papp";
=head1 Global Variables
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
eval { require Text::Diff; 1 } &&
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
bin/pdlaudio-birds view on Meta::CPAN
[6.25,0.8,1050,1050,0.1,[0,0,1,5,0.5,10,0.4,90,0,100],[0,0,1,25,1,75,0,100],[1,0.1,2,1,3,0.1,4,0.01,5,0.09,6,0.01,7,0.01]],
[7.45,1.8,1050,1050,0.1,[0,0,1,5,0.5,10,0.4,90,0,100],[0,0,1,25,1,75,0,100],[1,0.1,2,1,3,0.1,4,0.01,5,0.09,6,0.01,7,0.01]],
],
};
sub hz(){ 44100 }
sub bird {
my ($dur, $freq, $skew, $amp, $freqenv, $ampenv, $partials) = @_;
$freqenv = gen_env $dur, @$freqenv;
$ampenv = gen_env $dur, @$ampenv;