File: EdgeVertex.pm

package info (click to toggle)
libgraph-nauty-perl 0.5.3-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 160 kB
  • sloc: perl: 202; makefile: 3
file content (21 lines) | stat: -rw-r--r-- 309 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
package Graph::Nauty::EdgeVertex;

use strict;
use warnings;

our $VERSION = '0.5.3'; # VERSION

use Data::Dumper;

$Data::Dumper::Sortkeys = 1;

sub new {
    my( $class, $attributes ) = @_;
    return bless { attributes => $attributes }, $class;
};

sub color {
    return Dumper $_[0]->{attributes};
}

1;