From 625878974ec9f69997de6449aacc727262d0c43a Mon Sep 17 00:00:00 2001
From: doy <doy@tozt.net>
Date: Sun, 14 Dec 2008 17:07:41 -0500
Subject: clean up argument passing a bit

---
 lib/Graph/Implicit.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'lib')

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;
-- 
cgit v1.2.3-54-g00ecf