File Coverage

blib/lib/Perl6/Pod/Lex/Block.pm

Criterion	Covered	Total	%
statement	31	33	93.9
branch	5	6	83.3
condition	2	5	40.0
subroutine	6	7	85.7
pod	0	5	0.0
total	44	56	78.5

#===============================================================================
#
#  DESCRIPTION:  Base block
#
#       AUTHOR:  Aliaksandr P. Zahatski,
#===============================================================================
package Perl6::Pod::Lex::Block;
use strict;
use warnings;
our $VERSION = '0.01';

sub get_attr {
    my $self = shift;
    my $attr = $self->{attr} || return {};
    my %res;
    foreach my $a (@{ $attr }) {
        my $name = $a->{name};
        my $value = $a->{items};
        my $type = $a->{type};
        if ($type eq 'hash') {
          my %hash = ();
          for ( @{ $value }) {
            $hash{$_->{key}} = $_->{value}
          }
          $value = \%hash;
        }
        $res{$name} = $value
    }
    return \%res;
}

sub new {
    my $class = shift;
    my $self = bless( ( $#_ == 0 ) ? shift : {@_}, ref($class) || $class );
    $self;
}

sub content {
    my $self = shift;
    $self->{''};
}

sub childs {
    my $self = shift;
    if (scalar @_) {
        $self->{content} = shift;
    }
    $self->{content};
}

sub name {
    my $self = shift;
    return $self->{name}
}

1;