File Coverage

blib/lib/Perl6/Pod/Directive/config.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	24	25	96.0

package Perl6::Pod::Directive::config;

=pod

=head1 NAME

Perl6::Pod::Directive::config - handle =config directive

=head1 SYNOPSIS

Block pre-configuration

  =config head1 :numbered
  =config head2 :like :formatted

Pre-configuring formatting codes


  =config V<>  :allow
  =config C<>  :formatted


=head1 DESCRIPTION

Perl6::Pod::Directive::config - handle =config directive

The =config directive allows you to prespecify standard configuration information that is applied to every block of a particular type.

    =config BLOCK_TYPE  CONFIG OPTIONS
    =                   OPTIONAL EXTRA CONFIG OPTIONS

=cut

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

sub new {
      my ( $class, %args ) = @_;
      my $self = $class->SUPER::new(%args);
      my $block_name = $self->{block_name};
      my $attr = $self->get_attr;
      my $context = $self->context;
      $context->config->{$block_name} = $attr;
      return undef;
}
1;

__END__