File Coverage

blib/lib/App/PerlPackage2PlantUMLClassDiagram/Repository.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	0	4	0.0
total	37	41	90.2

package App::PerlPackage2PlantUMLClassDiagram::Repository;
use 5.014;
use strict;
use warnings;

use App::PerlPackage2PlantUMLClassDiagram::Package;

sub new {
    my ($class) = @_;

    bless {
        packages => [],
    }, $class;
}

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

    $self->{packages};
}

sub load_package {
    my ($self, $path) = @_;

    push $self->{packages}, App::PerlPackage2PlantUMLClassDiagram::Package->new($path);
}

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

    my @class_syntaxes = grep { chomp($_); $_ } map {
        $_->to_class_syntax
    } @{$self->packages};

    my @inherit_syntaxes = grep { chomp($_); $_ } map {
        $_->to_inherit_syntax
    } @{$self->packages};

    join "\n", '@startuml', @class_syntaxes, @inherit_syntaxes, '@enduml', '';
}

1;