File Coverage

blib/lib/App/XML/DocBook/Builder.pm

Criterion	Covered	Total	%
statement	11	25	44.0
branch			n/a
condition			n/a
subroutine	4	6	66.6
pod	2	2	100.0
total	17	33	51.5

package App::XML::DocBook::Builder;
$App::XML::DocBook::Builder::VERSION = '0.1101';
use 5.014;
use strict;
use warnings;
use autodie;

sub new
{
    my $class = shift;

    return bless {}, $class;
}

1;


my $inst_dir = "$ENV{HOME}/apps/docbook-builder";


sub initialize_makefiles
{
    my $self = shift;

    my $args = shift;

    my $redirect_makefile = "docmake.mak";

    open my $docbook_mak, ">", $redirect_makefile;

    print {$docbook_mak} <<"EOF";
DOCBOOK_MAK_PATH = $inst_dir

DOCBOOK_MAK_MAKEFILES_PATH = \$(DOCBOOK_MAK_PATH)/share/make/

include \$(DOCBOOK_MAK_MAKEFILES_PATH)/main-docbook.mak
EOF

    close($docbook_mak);

    open my $main_mak, ">", "Makefile.main";
    print {$main_mak} "DOC = "
        . $args->{doc_base}
        . "\n\ninclude $redirect_makefile\n\n";
    close($main_mak);

    return;
}


1;    # End of App::XML::DocBook::Builder

__END__