#!/usr/bin/perl 

use strict;
use warnings;

use Pod::Manual;

my $manual = Pod::Manual->new({ title => 'Catalyst' });

$manual->add_chapters( qw/  Catalyst::Manual::About 
                            Catalyst::Manual::Actions
                            Catalyst::Manual::Cookbook
                            Catalyst::Manual::DevelopmentProcess
                            Catalyst::Manual::Internals
                            Catalyst::Manual::Intro
                            Catalyst::Manual::Plugins
                            Catalyst::Manual::Tutorial
                            Catalyst::Manual::Tutorial::Intro
                            Catalyst::Manual::Tutorial::CatalystBasics
                            Catalyst::Manual::Tutorial::BasicCRUD
                            Catalyst::Manual::Tutorial::Authentication
                            Catalyst::Manual::Tutorial::Authorization
                            Catalyst::Manual::Tutorial::Debugging
                            Catalyst::Manual::Tutorial::Testing
                            Catalyst::Manual::Tutorial::AdvancedCRUD
                            Catalyst::Manual::Tutorial::Appendices
                            Catalyst::Manual::WritingPlugins / );

my $pdf_file = 'catalyst_manual.pdf';
$manual->save_as_pdf( $pdf_file );

print "pdf document '$pdf_file' created\n";