view release on metacpan or  search on metacpan

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

142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
        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

38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
    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;