Skip to content

Instantly share code, notes, and snippets.

@gfldex

gfldex/file-check.p6

Created September 1, 2016 17:05
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 gfldex/6c6b1fc11ee6906627717d91e90702c3 to your computer and use it in GitHub Desktop.
Save gfldex/6c6b1fc11ee6906627717d91e90702c3 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
file-check.p6
use v6;
subset File of Str where {
# die "dangling symlink for «{.Str}»" when .IO.l && ! .IO.e;
die "directory provided where file expected for «{.IO.abspath}»" when .IO.d;
True when .IO.f;
}
sub MAIN(*@a where .all ~~ File){
dd @a;
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment