File Coverage

blib/lib/PlantUML/ClassDiagram/Class/Base.pm

Criterion	Covered	Total	%
statement	17	25	68.0
branch			n/a
condition	3	4	75.0
subroutine	7	10	70.0
pod	1	6	16.6
total	28	45	62.2

package PlantUML::ClassDiagram::Class::Base;

use strict;
use warnings;
use utf8;

use parent qw/Class::Accessor::Fast/;
__PACKAGE__->follow_best_practice;

my @self_valiables = qw/
name
attribute
/;
__PACKAGE__->mk_ro_accessors(@self_valiables);

sub new {
    my ($class, $name, $attribute) = @_;
    my $attr = +{
        name      => $name      || '',
        attribute => $attribute || '',
    };
    return $class->SUPER::new($attr);
}

sub build {
    my ($class, $string) = @_;

    my $name      = '';
    my $attribute = '';

    return $class->new($name, $attribute);
}

sub is_variable { 0 }
sub is_method   { 0 }

sub is_static {
    my ($self) = @_;
    return 0;
}

sub is_abstract {
    my ($self) = @_;
    return 0;
}

1;