File Coverage

blib/lib/MojoX/Routes/AsGraph.pm

Criterion	Covered	Total	%
statement	38	38	100.0
branch	13	16	81.2
condition	5	5	100.0
subroutine	5	5	100.0
pod	1	1	100.0
total	62	65	95.3

package MojoX::Routes::AsGraph;
$MojoX::Routes::AsGraph::VERSION = '0.07';
use warnings;
use strict;
use Graph::Easy;

sub graph {
  my ($self, $r) = @_;
  return unless $r;

  my $g = Graph::Easy->new;
  _new_node($g, $r, {});

  return $g;
}

sub _new_node {
  my ($g, $r, $s) = @_;

  ### collect cool stuff
  my $name = $r->name;
  my $is_endpoint = $r->is_endpoint;
  my $pattern = $r->pattern;

  my $ctrl_actn;
  if ($pattern) {
    my $controller = $pattern->defaults->{controller};
    my $action     = $pattern->defaults->{action};

    $ctrl_actn = $controller || '';
    $ctrl_actn .= "->$action" if $action;

    $pattern    = $pattern->unparsed;
  }

  ### Create node
  my @node_name = ($is_endpoint? '*' : '');

  if (!$pattern && !$ctrl_actn) {
    my $n = ++$s->{empty};
    push @node_name, "";
  }
  else {
    push @node_name, "'$pattern'"    if $pattern;
    push @node_name, "[$ctrl_actn]" if $ctrl_actn;
  }
  push @node_name, "($name)" if $name;
  my $node = $g->add_node(join(' ', @node_name));

  ### Draw my children
  for my $child (@{$r->children}) {
    my $child_node = _new_node($g, $child, $s);
    $g->add_edge($node, $child_node);
  }

  return $node;
}


1; # End of MojoX::Routes::AsGraph


__END__