Select Code to Download

my $graph = Graph->new;
$graph->set_vertex_attributes("/",  { "type" => "dir" });
my $self = {
    graph => $graph
};

sub extract_paths_from_graph {
    my ($self,$paths_href) = @_;
...
        last unless ($found_changes);
    }
}

if ($subpath =~ /^$target\// || $subpath =~ /^$target$/) {