aboutsummaryrefslogtreecommitdiffstats
path: root/lib/Fripost/Tests.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Fripost/Tests.pm')
-rwxr-xr-xlib/Fripost/Tests.pm80
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__