^sub \w+\( results from the CPAN

Catalyst-Controller-FlashRemoting

view release on metacpan or search on metacpan

    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 all matches for this distribution

Catalyst-Controller-Mobile-JP

1 match

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 all matches for this distribution

Catalyst-Helper-FastCGI-ExternalServer

1 match

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 all matches for this distribution

Catalyst-Model-MogileFS-Client

1 match

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 all matches for this distribution

Catalyst-Model-MultiAdaptor

1 match

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 all matches for this distribution

Catalyst-Plugin-Authentication-Basic-Remote

1 match

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 all matches for this distribution

Catalyst-Plugin-Authentication-Credential-AOL

1 match

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 all matches for this distribution

Catalyst-Plugin-Authentication-Credential-OpenID

1 match

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 all matches for this distribution

Catalyst-Plugin-DoCoMoUID

1 match

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 all matches for this distribution

Catalyst-Plugin-FormValidator-Simple-Auto

1 match

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 all matches for this distribution

Catalyst-Plugin-FormValidator-Simple-Messages

1 match

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 all matches for this distribution

Catalyst-Plugin-MobileUserID

1 match

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 all matches for this distribution

Catalyst-Plugin-Upload-Image-Magick

1 match

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 all matches for this distribution

Catalyst-View-GD-Barcode-QRcode

1 match

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 all matches for this distribution

Catalyst-View-Reproxy

1 match

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 all matches for this distribution

Cheater

1 match

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 all matches for this distribution

Class-Contract

1 match

view release on metacpan or search on metacpan

t/Magic.pm view on Meta::CPAN

}

my $count = 2;
my %history;

sub ok(%) {
  my %p = (@_); # code, expect, desc, version, need
  my $ok = 0;
  exists $p{'code'} or die "->ok(code => \\&) required!";
  $p{'desc'} ||= '';

view all matches for this distribution

Class-Method-Modifiers-Fast

1 match

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 all matches for this distribution

Class-Std-Fast

1 match

view release on metacpan or search on metacpan

lib/Class/Std/Fast.pm view on Meta::CPAN

sub _set_optimization_level {
    $optimization_level_of{$_[0]} = $_[1] || 1;
}

# Prototype allows perl to inline ID
sub ID() {
    return $instance_counter++;
}

sub ident ($) {
    return ${$_[0]};

view all matches for this distribution

Class-Usul

1 match

view release on metacpan or search on metacpan

lib/Class/Usul/Functions.pm view on Meta::CPAN

         my $y = $x; $y = $f->( $y, shift ) while (@_); return $y;
      }
   }
}

sub Y (&) {
   my $f = shift; return sub { $f->( Y( $f ) )->( @_ ) };
}

sub factorial ($) {
   return Y( sub (&) {

view all matches for this distribution

CogBase

1 match

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 all matches for this distribution

Config-Pit

1 match

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 all matches for this distribution

Convert-BER-XS

6 results

view release on metacpan or search on metacpan

t/01_helper.t view on Meta::CPAN


use common::sense;
use Convert::BER::XS qw(:encode :decode :const);

our $test;
sub ok($) {
   print $_[0] ? "" : "not ", "ok ", ++$test, "\n";
}

ok (ber_is [ASN_UNIVERSAL, ASN_INTEGER, 0, 5], ASN_UNIVERSAL, ASN_INTEGER,     0,     5);
ok (ber_is [ASN_UNIVERSAL, ASN_INTEGER, 0, 5], undef        , ASN_INTEGER,     0,     5);

view all matches for this distribution

Couch-DB

2 results

view release on metacpan or search on metacpan

lib/Couch/DB.pm view on Meta::CPAN

	my $client = Couch::DB::Client->new(couch => $self, %{$self->{CD_auth}}, %args);
	$client ? $self->addClient($client) : undef;
}


sub db($%)
{	my ($self, $name, %args) = @_;
	Couch::DB::Database->new(name => $name, couch => $self, %args);
}

view all matches for this distribution

Cpanel-JSON-XS

1 match

view release on metacpan or search on metacpan

t/03_types.t view on Meta::CPAN

BEGIN { $| = 1; print "1..87\n"; }
use utf8;
use Cpanel::JSON::XS;

our $test;
sub ok($;$) {
  print $_[0] ? "" : "not ", "ok ", ++$test;
  print @_ > 1 ? " # $_[1]\n" : "\n";
}
ok (!defined Cpanel::JSON::XS->new->allow_nonref->decode ('null'));
my $null   = Cpanel::JSON::XS->new->allow_nonref->decode ('null');

view all matches for this distribution

Crypt-RC5

1 match

view release on metacpan or search on metacpan

RC5.pm view on Meta::CPAN

        $processed .= Process( $last, $decrypt );
    }
    return $processed;
}

sub M ($) {
    return unpack( 'V', pack( 'V', pop ) );
}

sub ROTL ($$) {
    my ( $x, $n );

view all matches for this distribution

Curses-UI-Grid

2 results

view release on metacpan or search on metacpan

lib/Curses/UI/Grid/Cell.pm view on Meta::CPAN

    $this->draw(1);
    return $this;
}


sub bg() {
    my $this = shift;
    my $bg=shift;
    $this->{-bg_}=$bg if(defined $bg);
    return  $this->{-bg_} ? $this->{-bg_} : exists( $this->{-bg} ) && $this->{-bg} ? $this->{-bg} : $this->row->bg;
}

sub fg() {
    my $this = shift;
    my $fg=shift;
    $this->{-fg_}=$fg if(defined $fg);
    return  $this->{-fg_} ? $this->{-fg_} : exists( $this->{-fg} ) && $this->{-bg} ? $this->{-fg} : $this->row->fg;
}

view all matches for this distribution

Curses-UI

1 match

view release on metacpan or search on metacpan

lib/Curses/UI/Listbox.pm view on Meta::CPAN

    } else {
        return $this->{-values}->[$this->{-selected}];
    }
}

sub id()
{
    my $this = shift;
    return unless defined $this->{-selected};
    if ($this->{-multi}) {
        my @values = ();

view all matches for this distribution

Cv

1 match

view release on metacpan or search on metacpan

t/2error.t view on Meta::CPAN

use Test::Exception;
BEGIN { use_ok('Cv', -nomore) }

use Data::Dumper;

sub D (\@) {
	Data::Dumper->Dump([@{$_[0]}], [map { "\$_[$_]" } 0 .. $#{$_[0]}]);
}

if (1) {
	my $e = "error";

view all matches for this distribution

DB-Object

1 match

view release on metacpan or search on metacpan

lib/DB/Object.pm view on Meta::CPAN

    # print( STDERR "disconnect() called from package '$pack' in file '$file' at line '$line'.\n" );
    my $rc = $self->{dbh}->disconnect( @_ );
    return( $rc );
}

sub do($;$@)
{
    my $self = shift( @_ );
    # $rc  = $dbh->do( $statement )           || die( $dbh->errstr );
    # $rc  = $dbh->do( $statement, \%attr )   || die( $dbh->errstr );
    # $rv  = $dbh->do( $statement, \%attr, @bind_values ) || ...

view all matches for this distribution