diff options
Diffstat (limited to 'lib/Fripost/Tests.pm')
-rwxr-xr-x | lib/Fripost/Tests.pm | 80 |
1 files changed, 0 insertions, 80 deletions
diff --git a/lib/Fripost/Tests.pm b/lib/Fripost/Tests.pm deleted file mode 100755 index cfdfa47..0000000 --- a/lib/Fripost/Tests.pm +++ /dev/null @@ -1,80 +0,0 @@ -package Fripost::Tests; - -use 5.010_000; -use strict; -use warnings; -use utf8; - -=head1 NAME - -Tests.pm - -=cut - -our @EXPORT = qw/build_alias_graph search_path/; -our @ISA = qw(Exporter); - -use FindBin qw($Bin); -use lib "$Bin/lib"; - -use Fripost::Schema; - -sub build_alias_graph { - my $graph; - foreach (@_) { - my $to = $_->{goto}; - foreach my $from (@{$_->{address}}) { - push @{$graph->{$from}}, $to; - } - } - - return $graph; -} - - -sub search_path { - my ($graph, $from, $to) = @_; - - my @stack; - push @stack, [$from]; - - while (@stack) { - my $path = pop @stack; - my $last = @{$path}[$#$path]; - return @$path if $last eq $to; - - foreach (@{$graph->{$last}}) { - push @stack, [@$path,$_]; - } - } -} - - - - -=head1 AUTHOR - -Stefan Kangas C<< <skangas at skangas.se> >> - -Guilhem Moulin C<< <guilhem at fripost.org> >> - -=head1 COPYRIGHT - -Copyright 2010,2011 Stefan Kangas. - -Copyright 2012 Guilhem Moulin. - -=head1 LICENSE - -This program is free software; you can redistribute it and/or modify it -under the same terms as perl itself. - -This program is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. - -=cut - -1; # End of Tests.pm - -__END__ |