view release on metacpan or  search on metacpan

examples/htgraph  view on Meta::CPAN

sub addURL {
    my $count = keys %estado;
    $count eq '' and $count = 0;
    $U =~ s/\/$//g;
    $estado{++$count} = "white;$U";
}

sub drawGraph {
    use GraphViz;

    my $path = GraphViz->new(node => {fontsize => '10'});
    my $file = int(rand(10000));

    $path->add_node('START',style=>'filled',fillcolor=>'orange',shape=>'octagon');
    $last = 'START';
    foreach (sort keys %estado) {
        my ($left,$right) = split /;/, $estado{$_};
        $path->add_node($right,style=>'filled',fillcolor=>$left);
        $path->add_edge($last=>$right);
        $last = $right;
    }

lib/App/Navegante/CGI.pm  view on Meta::CPAN

    my @list = split /\s*,\s*/, $iform;
    @list = reverse @list;
    my %hash = ();
    foreach (@list) { 
        $_ =~ m/\s*(.*?)\s*=>\s*(.*)/;
        $hash{$1} = $2;
    }
    foreach (keys %hash) {
      if ($hash{$_} eq 'submit') {
          $h .= "<input style='font-size: 65%;' type='$hash{$_}' value='".eval($_)."'><br />";
          next;
      }
      $h .= "<input style='font-size: 65%;' type='$hash{$_}' size='10' name='$_'><br />";
    }

$h.=<<'END_IFORM';
</center></form>
</div>
END_IFORM
    return $h;
}

=head1 AUTHOR