view release on metacpan or  search on metacpan

t/line_numbers.t  view on Meta::CPAN

    is basic_multi_line(), 16;

    is __LINE__, 21, "line numbers ok after function";
}


note "Computed default"; {
    # Using 'sub' to avoid further Method::Signatures interference
    sub return_caller_line {
        return (caller)[2];
    }

#line 30
    func computed_default (
        $static_default   = "test",
        $computed_default = return_caller_line()
    ) {
        return [__LINE__, $computed_default];
    }