CBC results from the CPAN

Char-Hebrew

view release on metacpan or search on metacpan

t/Hebrew/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line =~ s/A/B/g;

if ($ret == 3) {
    if ($line eq "BCBCB") {
        print qq{ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

t/Hebrew/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line !~ s/A/B/g;

if (not $ret) {
    if ($line eq "BCBCB") {
        print qq{ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

view all matches for this distribution

Char-INFORMIXV6ALS

1 match

view release on metacpan or search on metacpan

t/INFORMIXV6ALS/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line =~ s/A/B/g;

if ($ret == 3) {
    if ($line eq "BCBCB") {
        print qq{ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

t/INFORMIXV6ALS/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line !~ s/A/B/g;

if (not $ret) {
    if ($line eq "BCBCB") {
        print qq{ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

view all matches for this distribution

Char-JIS8

1 match

view release on metacpan or search on metacpan

t/JIS8/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line =~ s/A/B/g;

if ($ret == 3) {
    if ($line eq "BCBCB") {
        print qq{ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

t/JIS8/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line !~ s/A/B/g;

if (not $ret) {
    if ($line eq "BCBCB") {
        print qq{ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

view all matches for this distribution

Char-KOI8R

1 match

view release on metacpan or search on metacpan

t/KOI8R/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line =~ s/A/B/g;

if ($ret == 3) {
    if ($line eq "BCBCB") {
        print qq{ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

t/KOI8R/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line !~ s/A/B/g;

if (not $ret) {
    if ($line eq "BCBCB") {
        print qq{ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

view all matches for this distribution

Char-KOI8U

1 match

view release on metacpan or search on metacpan

t/KOI8U/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line =~ s/A/B/g;

if ($ret == 3) {
    if ($line eq "BCBCB") {
        print qq{ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

t/KOI8U/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line !~ s/A/B/g;

if (not $ret) {
    if ($line eq "BCBCB") {
        print qq{ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

view all matches for this distribution

Char-KPS9566

1 match

view release on metacpan or search on metacpan

t/KPS9566/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line =~ s/A/B/g;

if ($ret == 3) {
    if ($line eq "BCBCB") {
        print qq{ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

t/KPS9566/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line !~ s/A/B/g;

if (not $ret) {
    if ($line eq "BCBCB") {
        print qq{ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

view all matches for this distribution

Char-Latin1

1 match

view release on metacpan or search on metacpan

t/Latin1/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line =~ s/A/B/g;

if ($ret == 3) {
    if ($line eq "BCBCB") {
        print qq{ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

t/Latin1/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line !~ s/A/B/g;

if (not $ret) {
    if ($line eq "BCBCB") {
        print qq{ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

view all matches for this distribution

Char-Latin10

1 match

view release on metacpan or search on metacpan

t/Latin10/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line =~ s/A/B/g;

if ($ret == 3) {
    if ($line eq "BCBCB") {
        print qq{ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

t/Latin10/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line !~ s/A/B/g;

if (not $ret) {
    if ($line eq "BCBCB") {
        print qq{ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

view all matches for this distribution

Char-Latin2

1 match

view release on metacpan or search on metacpan

t/Latin2/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line =~ s/A/B/g;

if ($ret == 3) {
    if ($line eq "BCBCB") {
        print qq{ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

t/Latin2/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line !~ s/A/B/g;

if (not $ret) {
    if ($line eq "BCBCB") {
        print qq{ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

view all matches for this distribution

Char-Latin3

1 match

view release on metacpan or search on metacpan

t/Latin3/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line =~ s/A/B/g;

if ($ret == 3) {
    if ($line eq "BCBCB") {
        print qq{ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

t/Latin3/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line !~ s/A/B/g;

if (not $ret) {
    if ($line eq "BCBCB") {
        print qq{ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

view all matches for this distribution

Char-Latin4

1 match

view release on metacpan or search on metacpan

t/Latin4/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line =~ s/A/B/g;

if ($ret == 3) {
    if ($line eq "BCBCB") {
        print qq{ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

t/Latin4/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line !~ s/A/B/g;

if (not $ret) {
    if ($line eq "BCBCB") {
        print qq{ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

view all matches for this distribution

Char-Latin5

1 match

view release on metacpan or search on metacpan

t/Latin5/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line =~ s/A/B/g;

if ($ret == 3) {
    if ($line eq "BCBCB") {
        print qq{ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

t/Latin5/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line !~ s/A/B/g;

if (not $ret) {
    if ($line eq "BCBCB") {
        print qq{ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

view all matches for this distribution

Char-Latin6

1 match

view release on metacpan or search on metacpan

t/Latin6/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line =~ s/A/B/g;

if ($ret == 3) {
    if ($line eq "BCBCB") {
        print qq{ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

t/Latin6/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line !~ s/A/B/g;

if (not $ret) {
    if ($line eq "BCBCB") {
        print qq{ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

view all matches for this distribution

Char-Latin7

1 match

view release on metacpan or search on metacpan

t/Latin7/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line =~ s/A/B/g;

if ($ret == 3) {
    if ($line eq "BCBCB") {
        print qq{ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

t/Latin7/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line !~ s/A/B/g;

if (not $ret) {
    if ($line eq "BCBCB") {
        print qq{ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

view all matches for this distribution

Char-Latin8

1 match

view release on metacpan or search on metacpan

t/Latin8/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line =~ s/A/B/g;

if ($ret == 3) {
    if ($line eq "BCBCB") {
        print qq{ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

t/Latin8/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line !~ s/A/B/g;

if (not $ret) {
    if ($line eq "BCBCB") {
        print qq{ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

view all matches for this distribution

Char-Latin9

1 match

view release on metacpan or search on metacpan

t/Latin9/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line =~ s/A/B/g;

if ($ret == 3) {
    if ($line eq "BCBCB") {
        print qq{ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

t/Latin9/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line !~ s/A/B/g;

if (not $ret) {
    if ($line eq "BCBCB") {
        print qq{ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

view all matches for this distribution

Char-OldUTF8

1 match

view release on metacpan or search on metacpan

t/OldUTF8/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line =~ s/A/B/g;

if ($ret == 3) {
    if ($line eq "BCBCB") {
        print qq{ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

t/OldUTF8/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line !~ s/A/B/g;

if (not $ret) {
    if ($line eq "BCBCB") {
        print qq{ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

view all matches for this distribution

Char-Sjis

1 match

view release on metacpan or search on metacpan

t/Sjis/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line =~ s/A/B/g;

if ($ret == 3) {
    if ($line eq "BCBCB") {
        print qq{ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

t/Sjis/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line !~ s/A/B/g;

if (not $ret) {
    if ($line eq "BCBCB") {
        print qq{ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

view all matches for this distribution

Char-TIS620

1 match

view release on metacpan or search on metacpan

t/TIS620/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line =~ s/A/B/g;

if ($ret == 3) {
    if ($line eq "BCBCB") {
        print qq{ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

t/TIS620/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line !~ s/A/B/g;

if (not $ret) {
    if ($line eq "BCBCB") {
        print qq{ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

view all matches for this distribution

Char-UHC

1 match

view release on metacpan or search on metacpan

t/UHC/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line =~ s/A/B/g;

if ($ret == 3) {
    if ($line eq "BCBCB") {
        print qq{ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

t/UHC/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line !~ s/A/B/g;

if (not $ret) {
    if ($line eq "BCBCB") {
        print qq{ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

view all matches for this distribution

Char-USASCII

1 match

view release on metacpan or search on metacpan

t/USASCII/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line =~ s/A/B/g;

if ($ret == 3) {
    if ($line eq "BCBCB") {
        print qq{ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

t/USASCII/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line !~ s/A/B/g;

if (not $ret) {
    if ($line eq "BCBCB") {
        print qq{ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

view all matches for this distribution

Char-UTF2

1 match

view release on metacpan or search on metacpan

t/UTF2/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line =~ s/A/B/g;

if ($ret == 3) {
    if ($line eq "BCBCB") {
        print qq{ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

t/UTF2/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line !~ s/A/B/g;

if (not $ret) {
    if ($line eq "BCBCB") {
        print qq{ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

view all matches for this distribution

Char-Windows1252

1 match

view release on metacpan or search on metacpan

t/Windows1252/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line =~ s/A/B/g;

if ($ret == 3) {
    if ($line eq "BCBCB") {
        print qq{ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

t/Windows1252/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line !~ s/A/B/g;

if (not $ret) {
    if ($line eq "BCBCB") {
        print qq{ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

view all matches for this distribution

Char-Windows1258

1 match

view release on metacpan or search on metacpan

t/Windows1258/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line =~ s/A/B/g;

if ($ret == 3) {
    if ($line eq "BCBCB") {
        print qq{ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

t/Windows1258/335_negated_s.t view on Meta::CPAN


$line = "ACACA";
$ret = $line !~ s/A/B/g;

if (not $ret) {
    if ($line eq "BCBCB") {
        print qq{ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
    }

view all matches for this distribution

Class-GAPI

3 results

view release on metacpan or search on metacpan

lib/Class/GAPI.pm view on Meta::CPAN

 
Class::GAPI will always use the right-most namespace fragment as the option in the option => value pair. (This may 
cause a namespace conflict from time to time, in those cases just use the third stage _init instead.) So for example: 

	package SpyGuppy	   ; 
	use Crypt::CBC             ; # block handler
	use Crypt::DES             ; # Encryption Algorythm. 
	use Class::GAPI            ; 
	our @ISA = qw(Class::GAPI) ;  
	our @Children = qw(Crypt::CBC Crypt::DES) ;
	1 ;

and then do: 

	my $pet = SpyGuppy->new()	; 
	$pet->CBC->something()		;
	$pet->DES->somethingelse()	; 

@Children also conveiniently has 2 special class names. Class::GAPI::Foo, and Class::List::Foo. In 
this case "Foo" can be anything you like, and will correspondingly be used to create a 
sprout()ed object. Note that Class::GAPI::Foo is a a sprouted hash, while Class::List::Foo

view all matches for this distribution

Class-Usul

6 results

view release on metacpan or search on metacpan

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

use strict;
use warnings;

use Class::Usul::Constants qw( NUL );
use Class::Usul::Functions qw( create_token is_coderef is_hashref );
use Crypt::CBC;
use English                qw( -no_match_vars );
use Exporter 5.57          qw( import );
use MIME::Base64;
use Sys::Hostname;

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

my $_compose = sub {
   $_eval->( $_dref->( $_[ 0 ]->{seed} ) || $SEED ).$_dref->( $_[ 0 ]->{salt} );
};

my $_new_crypt_cbc = sub {
   Crypt::CBC->new( -cipher => $_[ 0 ], -key => $_[ 1 ] );
};

my $_token = sub {
   create_token( $_compose->( $_[ 0 ] || {} ) );
};

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

Lifted from L<Acme::Bleach> the default seed for the key generator has been
whitened and included in this source file

The seed is C<eval>'d in string context and then the salt is concatenated onto
it before being passed to L<create token|Class::Usul::Functions/create_token>.
Uses this value as the key for a L<Crypt::CBC> object

=head1 Subroutines/Methods

=head2 decrypt

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


=head2 cipher_list

   @list_of_ciphers = cipher_list();

Returns the list of ciphers supported by L<Crypt::CBC>. These may not
all be installed

=head2 default_cipher

   $ciper_name = default_cipher();

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


=head1 Dependencies

=over 3

=item L<Crypt::CBC>

=item L<Crypt::Twofish2>

=item L<Exporter>

view all matches for this distribution

Class-Value-Net

1 match

view release on metacpan or search on metacpan

lib/Class/Value/Net/DNSSEC/DS/Digest_TEST.pm view on Meta::CPAN

              338EF4055DFBAB9E17270DA4BFAD16212386E981
              342AFB8BA56277EC54F17ED007937F794B9F8257BF6CD544137B10DF5D2910EF
              34F6E274294D84E62C132117208BB64BC31CC0A8D81287DD7A7E65DCB760BD19
              3B526BCC354AE085AD9984C9BE73D271411023EFF421EF184BCE41ACE3DE9F8B
              409AA5CD776352AEAB7A46B64EE7BA8061CB9374
              457C64669C357AF4AABDEB16A6A119B22D3FCB339BBF3C1701AA84CBC3E105F3
              513D1C41DF184F249280FC9D92243315E6A1BB63
              57D1927113224D7FBB9FC2F68394A717263DDAE5F883EE461AAF8F4ED4F39E23
              58A2D5813CC2CAA6B5B88349B5127EB592E64BC85E6D796A27D1B3338CA35638
              60039CDD684CCCACF2ED7719D2844FC6C9EFC7AE
              6119CAE74A6EC411FE0B3260FC5C20ABD68A485A

lib/Class/Value/Net/DNSSEC/DS/Digest_TEST.pm view on Meta::CPAN

              A471CE5E038A05430C5B13EC457C272AF48BCC12EF5B572CF2B87544B284A006
              A4F7756C0B5E82D9E31E8649F097B81F4E28F683
              A76DDE827B52D66933340341A24B0D16A29D117C
              AEA001556720B2AA252C687B7ABE08ED868A61095F254186FEFFF75F54AE1847
              B235260ABF0877B65647D46B60AA3DDFE5F4F37F3915EC8D90615BF8AA603808
              B3F4B4844A107C5367821E9E66DDC869F7A0107539BDA39FFBE19CDCBCFCA431
              B62D6A035EC97E78692AB0026854A635A1F79777
              B8174233B52988D1A3517C9EF970DF7DF4900B3B211BBF5A931C4FA06C907F6A
              BEE4A7A77CB1FB609777B25D2754815A274452CFD99618D8F3270556D42EA897
              C686FC34C432A82BD0F7A8569C32BBA8152B2D0D
              C7AEE4D32904728741DB270E72899673D7DFAF212E517F2400C9424B231CF56B

lib/Class/Value/Net/DNSSEC/DS/Digest_TEST.pm view on Meta::CPAN

              => '34f6e274294d84e62c132117208bb64bc31cc0a8d81287dd7a7e65dcb760bd19',
            '3B526BCC354AE085AD9984C9BE73D271411023EFF421EF184BCE41ACE3DE9F8B'
              => '3b526bcc354ae085ad9984c9be73d271411023eff421ef184bce41ace3de9f8b',
            '409AA5CD776352AEAB7A46B64EE7BA8061CB9374' =>
              '409aa5cd776352aeab7a46b64ee7ba8061cb9374',
            '457C64669C357AF4AABDEB16A6A119B22D3FCB339BBF3C1701AA84CBC3E105F3'
              => '457c64669c357af4aabdeb16a6a119b22d3fcb339bbf3c1701aa84cbc3e105f3',
            '513D1C41DF184F249280FC9D92243315E6A1BB63' =>
              '513d1c41df184f249280fc9d92243315e6a1bb63',
            '57D1927113224D7FBB9FC2F68394A717263DDAE5F883EE461AAF8F4ED4F39E23'
              => '57d1927113224d7fbb9fc2f68394a717263ddae5f883ee461aaf8f4ed4f39e23',

lib/Class/Value/Net/DNSSEC/DS/Digest_TEST.pm view on Meta::CPAN

              'a76dde827b52d66933340341a24b0d16a29d117c',
            'AEA001556720B2AA252C687B7ABE08ED868A61095F254186FEFFF75F54AE1847'
              => 'aea001556720b2aa252c687b7abe08ed868a61095f254186fefff75f54ae1847',
            'B235260ABF0877B65647D46B60AA3DDFE5F4F37F3915EC8D90615BF8AA603808'
              => 'b235260abf0877b65647d46b60aa3ddfe5f4f37f3915ec8d90615bf8aa603808',
            'B3F4B4844A107C5367821E9E66DDC869F7A0107539BDA39FFBE19CDCBCFCA431'
              => 'b3f4b4844a107c5367821e9e66ddc869f7a0107539bda39ffbe19cdcbcfca431',
            'B62D6A035EC97E78692AB0026854A635A1F79777' =>
              'b62d6a035ec97e78692ab0026854a635a1f79777',
            'B8174233B52988D1A3517C9EF970DF7DF4900B3B211BBF5A931C4FA06C907F6A'
              => 'b8174233b52988d1a3517c9ef970df7df4900b3b211bbf5a931c4fa06c907f6a',

view all matches for this distribution

ClearCase-Wrapper-MGi

1 match

view release on metacpan or search on metacpan

extra/Configuration.pod view on Meta::CPAN


  Digest-SHA1-2.1
  Digest-HMAC-1.01
  Class-ErrorHandler-0.01
  Convert-ASN1-0.22
  Crypt-CBC-2.30
  Crypt-DES-2.05
  Crypt-Blowfish-2.10
  Crypt-DES_EDE3-0.01
  Convert-PEM-0.07
  Data-Buffer-0.04

view all matches for this distribution

ClearPress

5 results

view release on metacpan or search on metacpan

lib/ClearPress/authenticator/session.pm view on Meta::CPAN

# Author: rmp
#
package ClearPress::authenticator::session;
use strict;
use warnings;
use Crypt::CBC;
use base qw(ClearPress::authenticator);
use Readonly;
use Carp;
use MIME::Base64 qw(encode_base64 decode_base64);
use YAML::Tiny qw(Load Dump);

lib/ClearPress/authenticator/session.pm view on Meta::CPAN


sub cipher {
  my $self = shift;

  if(!$self->{cipher}) {
    $self->{cipher} = Crypt::CBC->new(
				      -cipher => 'Blowfish',
				      -key    => $self->key,
				     );
  }

lib/ClearPress/authenticator/session.pm view on Meta::CPAN


=head2 key - get/set accessor for cipher key (optionally configured during construction)

  my $sKey = $oSession->key();

=head2 cipher - a configure Crypt::CBC object

  my $oCipher = $oSession->cipher();

=head1 DIAGNOSTICS

lib/ClearPress/authenticator/session.pm view on Meta::CPAN


=item strict

=item warnings

=item Crypt::CBC

=item base

=item ClearPress::authenticator

view all matches for this distribution

Cmd-Dwarf

6 results

view release on metacpan or search on metacpan

examples/helloworld/app/t/00_dwarf/validator/009_constraints.t view on Meta::CPAN

(
	z1 => 0,
)

=== BASE64_TYPE
--- query: { 'image' => 'iVBORw0KGgoAAAANSUhEUgAABLAAAAMgCAMAAAAEPmswAAAAGXRFWHRTb2Z0d2FyZQBBZG9iZSBJbWFnZVJlYWR5ccllPAAAAyRpVFh0WE1MOmNvbS5hZG9iZS54bXAAAAAAADw/eHBhY2tldCBiZWdpbj0i77u/IiBpZD0iVzVNME1wQ2VoaUh6cmVTek5UY3prYzlkIj8+IDx4OnhtcG1ldGEgeG1sb...
--- rule
(
	image         => [[BASE64_TYPE => '(jpeg|png|gif)' ]],
	invalid_image => [[BASE64_TYPE => '(jpeg|png|gif)' ]],
)

view all matches for this distribution