File Coverage

blib/lib/Perl6/Pod/FormattingCode.pm

Criterion	Covered	Total	%
statement	12	19	63.1
branch	0	4	0.0
condition			n/a
subroutine	4	5	80.0
pod	1	1	100.0
total	17	29	58.6

package Perl6::Pod::FormattingCode;

=pod

=head1 NAME

Perl6::Pod::FormattingCode - base class for formatting code

=head1 SYNOPSIS


=head1 DESCRIPTION

Perl6::Pod::FormattingCode - base class for formatting code

=cut

use warnings;
use strict;
use Perl6::Pod::Block;
use base 'Perl6::Pod::Block';
our $VERSION = '0.01';

=head2 get_attr [code_name]

Return formatting code  attributes splited with pre-configured via =config.
Unless provided  return attributes for current .

=cut

sub get_attr {
    my $self = shift;
    my $attr = $self->SUPER::get_attr;
    #union attr with =config
    if (my $ctx = $self->context) {
        if ( my $config = $ctx->get_config( $self->name . '<>' ) ) {
         while ( my ($k, $v) = each %$config ) {
            $attr->{$k} = $v
           }
         }
    }
    $attr;
}

1;
__END__