Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

20 lines (16 sloc) 0.406 kb
=item !FAIL(args)
Return a Failure object using C<args> as the failure message.
=cut
.namespace []
.sub '!FAIL'
.param pmc args :slurpy
$P0 = new ['Exception']
$S0 = join '', args
$P1 = box $S0
setattribute $P0, 'message', $P1
$P1 = get_hll_global 'Exception'
$P0 = $P1.'new'($P0)
$P1 = get_hll_global 'Failure'
$P1 = $P1.'new'($P0)
.return ($P1)
.end
Jump to Line
Something went wrong with that request. Please try again.