lib/Graph/GEXF/Role/Viz/Size.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

package Graph::GEXF::Role::Viz::Size;

use MooseX::Role::Parameterized;

parameter as => (
    is       => 'ro',
    required => 1,
);

role {
    my $p = shift;

    has $p->as => (
        is      => 'rw',
        isa     => 'Num',
        default => '1.0',
    );
};

1;