File: graphtest.pl

package info (click to toggle)
libclass-prototyped-perl 1.16-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 452 kB
  • sloc: perl: 1,464; makefile: 11
file content (16 lines) | stat: -rw-r--r-- 469 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
use Class::Prototyped qw(:EZACCESS);
use Class::Prototyped::Graph;

package A;

sub aa { }

package main;

my $p1 = Class::Prototyped->new( name => 'p1', '*' => 'A' );
my $p2 = Class::Prototyped->new( name => 'p2', '*' => $p1 );
my $p3 = Class::Prototyped->new( name => 'p3', '*' => $p2, '*' => $p1, '*' => 'A' );
my $p4 = Class::Prototyped->new( name => 'p4', '*' => $p3, '*' => $p1 );

Class::Prototyped::Mirror::graph( 'name', $p4 );
print "output is in graph.png";