File Coverage

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

Criterion	Covered	Total	%
statement	21	21	100.0
branch	4	4	100.0
condition			n/a
subroutine	8	8	100.0
pod	0	4	0.0
total	33	37	89.1

package PlantUML::ClassDiagram::Class::Method;

use strict;
use warnings;
use utf8;

use parent qw/PlantUML::ClassDiagram::Class::Base/;
__PACKAGE__->follow_best_practice;

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

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

    my ($name)      = $string =~ /(\w+)\(.*\)/;
    my ($attribute) = $string =~ /\{(\w+)\}/;

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

sub is_method { 1 }

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

    return ($self->get_attribute eq 'static') ? 1 : 0;
}

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

    return ($self->get_attribute eq 'abstract') ? 1 : 0;
}

1;