Select Code to Download

#!/usr/bin/perl
use strict;
...
    return 'path not found' if ! @{$search->{src}{work}} || ! @{$searc
+h->{tgt}{work}};
    return find_path($src, $tgt, $list, $search);
}

BFS_1way      5.93/s         --       -64%       -93%
BFS_2way      16.5/s       179%         --       -79%
Ieronim_2way  79.2/s      1235%       379%         --