moo@cow~>mkdir temp
moo@cow~>perl -MPath::Class -le 'print Path::Class::Dir->new("./temp")->children == 0 ? "none" : "some"'
none
moo@cow~>touch temp/fish
moo@cow~>perl -MPath::Class -le 'print Path::Class::Dir->new("./temp")->children == 0 ? "none" : "some"'
some