view release on metacpan or  search on metacpan

t/lineno-torture.t  view on Meta::CPAN

        $loc++;
        index($line, $marker) >= 0
            and return $loc;
    }
    undef
}

fun test_loc($marker) {
    my $expected = actual_location_of_line_with $marker;
    defined $expected or die "$marker: something done fucked up";
    my $got = (caller)[2];
    is $got, $expected, "location of '$marker'";
}

sub {
    test_loc 'LT torture begin.';
    use integer;
    my $r = shift;

    my $a = shift;
    my $b = shift;

t/lineno.t  view on Meta::CPAN

        $loc++;
        index($line, $marker) >= 0
            and return $loc;
    }
    undef
}

fun test_loc($marker) {
    my $expected = actual_location_of_line_with $marker;
    defined $expected or die "$marker: something done fucked up";
    my $got = (caller)[2];
    is $got, $expected, "location of '$marker'";
}

fun () {
    test_loc 'LX simple';
}->();

test_loc 'LX -- 1';

fun 

t/types_inline.t  view on Meta::CPAN

    }

    method can_be_inlined() {
        1
    }

    method inline_check($var) {
        my $line = $self->{line};
        my $file = $self->{file};
        if (defined $file) {
            $line //= (caller)[2];
        }
        my $header = defined $line ? qq{#line $line "$file"\n} : "";
        my $garbage = ";\n" x $self->{incline};
        my $error = $self->{broken} ? "]" : "";
        $header . "do { $garbage defined($var) $error }"
    }

    method check($value) {
        die "check() shouldn't be called";
    }