Select Code to Download

use warnings;
use 5.012;
...

say "Own::File->parent: ", Own::File->new('.')->parent;
say "Own::Dir->parent: ", Own::Dir->new('.')->parent;