File Coverage

blib/lib/Dash/BaseComponent.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	2	2	100.0
condition			n/a
subroutine	5	5	100.0
pod	0	2	0.0
total	24	26	92.3

package Dash::BaseComponent;

use Moo;
use strictures 2;
use namespace::clean;

sub DashNamespace {
    return 'no_namespace';
}

sub TO_JSON {
    my $self       = shift;
    my @components = split( /::/, ref($self) );
    my $type       = $components[-1];
    my %hash       = %$self;
    if ( !exists $hash{children} ) {
        $hash{children} = undef;
    }
    return { type      => $type,
             namespace => $self->DashNamespace,
             props     => \%hash
    };
}

1;

__END__