diff options
author | doy <doy@tozt.net> | 2008-12-14 17:07:41 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2008-12-14 17:07:41 -0500 |
commit | 625878974ec9f69997de6449aacc727262d0c43a (patch) | |
tree | 3cd019918a30c9e2acde5ea6d1950c79297e9b12 | |
parent | 7c77c04a1bb80b05743e063b17089a36153ca005 (diff) | |
download | graph-implicit-625878974ec9f69997de6449aacc727262d0c43a.tar.gz graph-implicit-625878974ec9f69997de6449aacc727262d0c43a.zip |
clean up argument passing a bit
-rw-r--r-- | lib/Graph/Implicit.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/Graph/Implicit.pm b/lib/Graph/Implicit.pm index 585dd6f..26f4f5c 100644 --- a/lib/Graph/Implicit.pm +++ b/lib/Graph/Implicit.pm @@ -56,8 +56,7 @@ sub kruskal { sub dijkstra { my $self = shift; - my $from = shift; - my $scorer = shift; + my ($from, $scorer) = @_; my $pq = Heap::Simple->new(elements => "Any"); my %neighbors; |