File Coverage

blib/lib/Perl6/Pod/Block.pm

Criterion	Covered	Total	%
statement	17	19	89.4
branch	2	4	50.0
condition			n/a
subroutine	5	6	83.3
pod	0	3	0.0
total	24	32	75.0

package Perl6::Pod::Block;

=pod

=head1 NAME

Perl6::Pod::Block - base class for Perldoc blocks

=head1 SYNOPSIS


=head1 DESCRIPTION

Perl6::Pod::Block - base class for Perldoc blocks

=cut

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

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->{src_name} ) ) {
         while ( my ($k, $v) = each %$config ) {
            $attr->{$k} = $v
           }
         }
    }
    $attr;
}

sub context {
    $_[0]->{context};
}

sub to_xhtml {
    my ( $self, $to ) = @_;
    warn "export to xhtml not implemented for ".$self->name . " near: " . $self->{''};
}
1;
__END__