Paths::Graph has a debug method that runs the gamut of the entire algorithm. Here's an example: 
#!/usr/bin/perl 

BEGIN {
          $| = 1;
          $^W = 1;
}

use autodie;
use strictures 1;

my %graph = (
          A => { 
                  B => '10.0.0.128', 
                  C => '10.0.0.132', 
                  G => '10.0.0.129',
          },
          C => { 
                  A => '10.0.0.135', 
                  B => '10.0.0.128',
                  F => '10.0.0.134',
          },
);

use Paths::Graph;
use strict qw/refs/;
use warnings FATAL => 'syntax';

my $obj = Paths::Graph->new( 
        -origin   => "A", 
        -destiny => "B", 
        -graph   => \%graph,
);
$obj->debug();

my @paths = $obj->shortest_path();
foreach my $path (@paths) {
        print "Shortest Path:"
        .  join( "->", @{$path} )
        .  " Cost:"
        .  $obj->get_path_cost( @{$path} );
        print "\n";
}

[download]
Please note that your use of @${path} is incorrect. The correct way is @{$path}.

In reply to Re: Paths::Graph use by Khen1950fx
in thread Paths::Graph use by zakishah

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.