File Coverage

blib/lib/Pod/WordML/AddisonWesley.pm

Criterion	Covered	Total	%
statement	18	53	33.9
branch	0	2	0.0
condition			n/a
subroutine	6	35	17.1
pod	11	29	37.9
total	35	119	29.4

package Pod::WordML::AddisonWesley;
use strict;
use base 'Pod::WordML';

use warnings;
no warnings;

use subs qw();
use vars qw($VERSION);

$VERSION = '0.163';

=encoding utf8

=head1 NAME

Pod::WordML::AddisonWesley - Turn Pod into Microsoft Word's WordML using Addison Wesley's styles

=head1 SYNOPSIS

	use Pod::WordML::AddisonWesley;

=head1 DESCRIPTION

***THIS IS ALPHA SOFTWARE. MAJOR PARTS WILL CHANGE***

I wrote just enough of this module to get my job done, and I skipped every
part of the specification I didn't need while still making it flexible enough
to handle stuff later.

=head2 The style information

I don't handle all of the complexities of styles, defining styles, and
all that other stuff. There are methods to return style names, and you
can override those in a subclass.

=cut

=over 4

=item document_header

This is the start of the document that defines all of the styles. You'll need
to override this. You can take this directly from

=cut

sub fonts
	{
	<<'XML';

































XML
	}

sub lists
	{
	<<'XML';

















































































XML
	}


sub styles
	{
	<<'XML';























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































XML
	}

=item document_footer

=cut

sub document_footer
	{
	<<'XML';


XML
	}

=item chapter_number_style

=item head1_style, head2_style, head3_style, head4_style

The paragraph styles to use with each heading level. By default these are
C, and so on.

=cut

sub start_Document {
	$_[0]->{chapter_number} = 0;
	$_[0]->{item_number}    = 1;
	$_[0]->SUPER::start_Document;
	}

sub start_head0 {
	$_[0]->make_para( $_[0]->chapter_number_style, $_[0]->{chapter_number}++ );
	$_[0]->_header_start( $_[0]->head0_style, 0 );
	}

sub start_head1 {
	$_[0]->_header_start( $_[0]->head1_style, 1 );
	return unless $_[0]->{chapter_number} > 1;
	my $pad = $_[0]->get_pad;
	$_[0]->{$pad} .= 'Item ' . $_[0]->{item_number}++ . '. ';
	}

sub chapter_number_style { 'HA' }
sub head0_style          { 'HB' }
sub head1_style          { 'HC' }
sub head2_style          { 'HD' }
sub head3_style          { 'HE' }
sub head4_style          { 'HF' }

=item normal_para_style

The paragraph style for normal Pod paragraphs. You don't have to use this
for all normal paragraphs, but you'll have to override and extend more things
to get everything just how you like. You'll need to override C to
get more variety.

=cut

sub normal_para_style   { 'BodyNoIndent' }

=item bullet_para_style

Like C, but for paragraphs under C<=item>.

=cut

sub first_item_para_style     { 'BL1'          }
sub middle_item_para_style    { 'BL'           }
sub last_item_para_style      { 'BLX'          }
sub item_subpara_style        { 'BodyNoIndent' }

=item inline_code_style

The character style that goes with C<< CE> >>.

=cut

sub inline_code_style	{ 'CodeCharacterStyle' }

=item inline_url_style

The character style that goes with C<< UEE >>.

=cut

sub inline_url_style    { 'URLCharacterStyle'  }

=item inline_italic_style

The character style that goes with C<< IE> >>.

=cut

sub inline_italic_style { 'ItalicCharacterStyle' }

=item inline_bold_style

The character style that goes with C<< BE> >>.

=cut

sub inline_bold_style   { 'BoldCharacterStyle' }

sub single_code_line_style { 'C1' }
sub first_code_line_style  { 'CDT1' }
sub middle_code_line_style { 'CDT'  }
sub last_code_line_style   { 'CDTX' }

sub bold_char_style        { 'E1' }

sub inline_code_char_style { 'CD1' }

sub italic_char_style      { 'E2' }

=back

=head1 TO DO


=head1 SEE ALSO

L, L

=head1 SOURCE AVAILABILITY

This source is in Github:

	http://github.com/briandfoy/pod-wordml

If, for some reason, I disappear from the world, one of the other
members of the project can shepherd this module appropriately.

=head1 AUTHOR

brian d foy, C<<  >>

=head1 COPYRIGHT AND LICENSE

Copyright © 2009-2017, brian d foy . All rights reserved.

You may redistribute this under the Artistic License 2.0.

=cut

1;