view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
provides 'is';
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1 unless $HAS_PROVIDER;
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
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
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
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/fcodes_s.t view on Meta::CPAN
qq{\n<p>See <a href="http://www.perl.org" class="podlinkurl"\n>perl.org</a></p>\n}
);
# Test link output in XHTML.
use Pod::Simple::XHTML;
sub o ($) {
my $p = Pod::Simple::XHTML->new;
$p->html_header("");
$p->html_footer("");
my $results = '';
$p->output_string( \$results ); # Send the resulting output to a string
view release on metacpan or search on metacpan
lib/Pod/Weaver/PluginBundle/Author/VDB.pm view on Meta::CPAN
use Pod::Weaver::Section::Name qw{};
use Pod::Weaver::Section::Region qw{};
use Pod::Weaver::Section::Version qw{};
use Pod::Elemental::Transformer::List qw{};
sub _p($) {
my ( $pkg ) = @_;
return Pod::Weaver::Config::Assembler->expand_package( $pkg );
};
#pod =for Pod::Coverage mvp_bundle_config
view release on metacpan or search on metacpan
lib/Pootle/Agent.pm view on Meta::CPAN
@RETURNS L<LWP::UserAgent>
=cut
sub ua($s) { return $s->{ua} }
1;
view release on metacpan or search on metacpan
lib/Postgredis.pm view on Meta::CPAN
$ENV{PG_CONNECT_STR} and do { $db = $db->from_string( $ENV{PG_CONNECT_STR} ) };
$ENV{PG_CONNECT_DSN} and do { $db = $db->dsn($ENV{PG_CONNECT_DSN}) };
$db;
}
sub pg($s) { $s->_pg->db; }
sub _create_tables($s) {
my $table = $s->namespace;
$s->_query(<<DONE);
create table $table (
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
qtgui/examples/dbus/remotecontrolledcar/controller/Controller.pm view on Meta::CPAN
on_decelerate_clicked => [],
on_left_clicked => [],
on_right_clicked => [];
use CarInterface;
sub ui() {
return this->{ui};
}
sub car() {
return this->{car};
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/Rc/Csh.pm view on Meta::CPAN
$level = 0;
sub HELP { die "Will a 'csh' expert please step forward?" }
sub indent(&) { local $level = $level + 1; shift->() }
sub nl() { "\n" . ' 'x($level*4) }
sub Rc::Node::csh {
print $OutputFH shift->chp(). "\n";
}
view release on metacpan or search on metacpan
lib/ResourcePool/Command/Execute.pm view on Meta::CPAN
|| $self->{ExecuteException}
|| $self->{PostExecuteException}
|| $self->{CleanupException};
}
sub ok($) {
my ($self) = @_;
return !$self->getInitException()
&& !$self->getPreExecuteException()
&& !$self->getExecuteException
view release on metacpan or search on metacpan
lib/Rex/Test/Base.pm view on Meta::CPAN
server => $box->ip,
%{ $self->{auth} },
);
}
sub ok() {
my ( $self, $test, $msg ) = @_;
my $tb = Rex::Test::Base->builder;
$tb->ok( $test, $msg );
}
view release on metacpan or search on metacpan
lib/Rinchi/CIGIPP/CollisionDetectionSegmentDefinition.pm view on Meta::CPAN
specified by the Entity ID attribute. The X offset of the other endpoint is
defined by the X2 attribute.
=cut
sub x1() {
my ($self,$nv) = @_;
if (defined($nv)) {
$self->{'x1'} = $nv;
}
return $self->{'x1'};
lib/Rinchi/CIGIPP/CollisionDetectionSegmentDefinition.pm view on Meta::CPAN
specified by the Entity ID attribute. The Y offset of the other endpoint is
defined by the Y2 attribute.
=cut
sub y1() {
my ($self,$nv) = @_;
if (defined($nv)) {
$self->{'y1'} = $nv;
}
return $self->{'y1'};
lib/Rinchi/CIGIPP/CollisionDetectionSegmentDefinition.pm view on Meta::CPAN
specified by the Entity ID attribute. The Z offset of the other endpoint is
defined by the Z2 attribute.
=cut
sub z1() {
my ($self,$nv) = @_;
if (defined($nv)) {
$self->{'z1'} = $nv;
}
return $self->{'z1'};
lib/Rinchi/CIGIPP/CollisionDetectionSegmentDefinition.pm view on Meta::CPAN
specified by the Entity ID attribute. The X offset of the other endpoint is
defined by the X1 attribute.
=cut
sub x2() {
my ($self,$nv) = @_;
if (defined($nv)) {
$self->{'x2'} = $nv;
}
return $self->{'x2'};
lib/Rinchi/CIGIPP/CollisionDetectionSegmentDefinition.pm view on Meta::CPAN
specified by the Entity ID attribute. The Y offset of the other endpoint is
defined by the Y1 attribute.
=cut
sub y2() {
my ($self,$nv) = @_;
if (defined($nv)) {
$self->{'y2'} = $nv;
}
return $self->{'y2'};
lib/Rinchi/CIGIPP/CollisionDetectionSegmentDefinition.pm view on Meta::CPAN
specified by the Entity ID attribute. The Z offset of the other endpoint is
defined by the Z1 attribute.
=cut
sub z2() {
my ($self,$nv) = @_;
if (defined($nv)) {
$self->{'z2'} = $nv;
}
return $self->{'z2'};
view release on metacpan or search on metacpan
lib/Rinchi/Outlook.pm view on Meta::CPAN
Lower: 0
Upper: 1
=cut
sub ID() {
my $self = shift;
if (@_) {
$self->setAttribute('ID', shift);
}
return $self->getAttribute('ID');
lib/Rinchi/Outlook.pm view on Meta::CPAN
Lower: 0
Upper: 1
=cut
sub ID() {
my $self = shift;
if (@_) {
$self->setAttribute('ID', shift);
}
return $self->getAttribute('ID');
lib/Rinchi/Outlook.pm view on Meta::CPAN
Lower: 0
Upper: 1
=cut
sub CC() {
my $self = shift;
if (@_) {
$self->setAttribute('CC', shift);
}
return $self->getAttribute('CC');
lib/Rinchi/Outlook.pm view on Meta::CPAN
Lower: 0
Upper: 1
=cut
sub To() {
my $self = shift;
if (@_) {
$self->setAttribute('To', shift);
}
return $self->getAttribute('To');
view release on metacpan or search on metacpan
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
Set or get value of the 'id' attribute.
=cut
sub id() {
my $self = shift;
if (@_) {
if ($_[0] =~ /^[A-Za-z_][-0-9A-Za-z_.:]*$/) {
$self->{'_id'} = shift;
} else {
view release on metacpan or search on metacpan
inc/Module/CPANfile.pm view on Meta::CPAN
my $struct = { %{$meta->as_struct}, prereqs => $prereqs_hash };
CPAN::Meta->new($struct)->save($file, { version => $version });
}
sub _d($) {
require Data::Dumper;
chomp(my $value = Data::Dumper->new([$_[0]])->Terse(1)->Dump);
$value;
}
view release on metacpan or search on metacpan
lib/SDL/App/FPS/Button.pm view on Meta::CPAN
$self->{x2} = $self->{x} + int($self->{w} / 2);
$self->{y2} = $self->{y} + int($self->{h} / 2);
$self;
}
sub x ($$)
{
my $self = shift;
if (@_ > 0)
{
$self->{x} = abs(shift);
lib/SDL/App/FPS/Button.pm view on Meta::CPAN
$self->{x2} = $self->{x} + int($self->{w} / 2);
}
$self->{x};
}
sub y ($$)
{
my $self = shift;
if (@_ > 0)
{
$self->{y} = abs(shift);
view release on metacpan or search on metacpan
END {
print "1..$tests\n" if $pid == $$;
}
sub ok($;$) {
my $test = shift;
my $name = shift;
unless ($test) {
print "not ";
$all_ok = 0;
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
provides 'is';
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1 unless $HAS_PROVIDER;
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
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/SVG/Template/Graph.pm view on Meta::CPAN
returns the SVG Document object
=cut
sub D ($) {
my $self = shift;
return $self->{_svgTree_};
}
=head2 T($name)
lib/SVG/Template/Graph.pm view on Meta::CPAN
returns the currently invoked transformation object. Returns transformation object $name if requested by name
=cut
sub T ($;$) {
my $self = shift;
my $name = shift;
return $self->{maps}->{$name} if defined $name;
return $self->{map};
}
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/Salvation/TC/Utils.pm view on Meta::CPAN
=head2 as( Str $type )
=cut
sub as( $ ) { ## no critic (ProhibitSubroutinePrototypes)
my ( $type ) = @_;
return ( parent => Salvation::TC -> get( $type ) );
}
view release on metacpan or search on metacpan
t/prototype.t view on Meta::CPAN
is( prototype('f'), undef, 'remove prototype');
set_prototype('', \&f);
is( prototype('f'), '', 'empty prototype');
sub g (@) { }
is( prototype('g'), '@', '@ prototype');
set_prototype(undef, \&g);
is( prototype('g'), undef, 'remove prototype');