Skip to content

Instantly share code, notes, and snippets.

@Whateverable

Whateverable/query

Created February 17, 2017 19:10
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Whateverable/7a88d848424564e5e1d370bdefc3775c to your computer and use it in GitHub Desktop.
Save Whateverable/7a88d848424564e5e1d370bdefc3775c to your computer and use it in GitHub Desktop.
Download ZIP
committable6
Raw
query
all class a { method l($x) { "$x".say; }; }; sub b(Callable $x){ $x.(50); }; my a $a .=new; b(&{$a.l});
Raw
result
¦«2014.01,2014.02,2014.03.01,2014.04,2014.05,2014.06,2014.07,2014.08,2014.09,2014.10,2014.11,2014.12,2015.01.1,2015.02,2015.03,2015.04,2015.05,2015.06,2015.07.2,2015.09,2015.10,2015.11»: ===SORRY!=== Error while compiling /tmp/Hbugq1vrkx
Unsupported use of &{$a.l}; in Perl 6 please use &($a.l)
at /tmp/Hbugq1vrkx:1
------> x){ $x.(50); }; my a $a .=new; b(&{$a.l}⏏); «exit code = 1»
¦«2015.12,2016.02,2016.03,2016.04,2016.05,2016.06,2016.07.1,2016.08.1,2016.09,2016.10,2016.11,2016.12,2017.01,HEAD»: Too few positionals passed; expected 2 arguments but got 1
in method l at /tmp/Hbugq1vrkx line 1
in block <unit> at /tmp/Hbugq1vrkx line 1
«exit code = 1»
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment