sub exists { ## no critic
    my $self = shift;
    return 0 if !$self->path;
    print Dumper $self->path;
    print Dumper (-e $self->path);
    return -e $self->path ? 1 : 0;
}

##</code><code>##

$VAR1 = '/Users/bigo/perl5/my_modules/t/Dir/tmp/';
$VAR1 = !!1;