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__
=head1 SEE ALSO
L<http://zag.ru/perl6-pod/S26.html>,
Perldoc Pod to HTML converter: L<http://zag.ru/perl6-pod/>,
Perl6::Pod::Lib
=head1 AUTHOR
Zahatski Aliaksandr, <zag@cpan.org>
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2009-2015 by Zahatski Aliaksandr
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.8 or,
at your option, any later version of Perl 5 you may have available.
=cut