view release on metacpan or  search on metacpan

t/00-report-prereqs.t  view on Meta::CPAN

                if ( $DO_VERIFY_PREREQS && $type eq 'requires' ) {
                    push @dep_errors, "$mod is not installed ($req_string)";
                }
            }
        }

        if ( @reports ) {
            push @full_reports, "=== $title ===\n\n";

            my $ml = _max( map { length $_->[0] } @reports );
            my $wl = _max( map { length $_->[1] } @reports );
            my $hl = _max( map { length $_->[2] } @reports );

            if ($type eq 'modules') {
                splice @reports, 1, 0, ["-" x $ml, "", "-" x $hl];
                push @full_reports, map { sprintf("    %*s %*s\n", -$ml, $_->[0], $hl, $_->[2]) } @reports;
            }
            else {
                splice @reports, 1, 0, ["-" x $ml, "-" x $wl, "-" x $hl];
                push @full_reports, map { sprintf("    %*s %*s %*s\n", -$ml, $_->[0], $wl, $_->[1], $hl, $_->[2]) } @reports;
            }

t/01-Basic.t  view on Meta::CPAN

    diag "imask: " . $imask[$i];
    diag sprintf("imask hex: %08x", $imask[$i]);
    diag "I2Q: " . int2quad($imask[$i]);
    diag "---";
}

my $mask = '255.255.224.0';
ok(exists $quadmask2bits{$mask}, "Mask exists in hash");

my $bits = $quadmask2bits{$mask};
is($bits, 19, "Bit length is proper");


# END EXPERIMENT


done_testing;