gistfile1.txt

multi sub total-size(IO::Path $top) {
    my Int $size-sum = 0;

    given $top {
        when :f { $size-sum = .s }
        when :d { $size-sum = [+] $top.&dir».&total-size }
    }

    $size-sum
}

multi sub total-size(Failure) {
    0
}

say total-size('/home/dex'.IO);