File Coverage

blib/lib/Mojolicious/Command/export.pm

Criterion	Covered	Total	%
statement	16	17	94.1
branch	4	6	66.6
condition	1	2	50.0
subroutine	3	3	100.0
pod	1	1	100.0
total	25	29	86.2

package Mojolicious::Command::export;
our $VERSION = '0.007';
# ABSTRACT: Export a Mojolicious website to static files

#pod =head1 SYNOPSIS
#pod
#pod   Usage: APPLICATION export [OPTIONS] [PAGES]
#pod
#pod     ./myapp.pl export
#pod     ./myapp.pl export /perldoc --to /var/www/html
#pod     ./myapp.pl export /perldoc --base /url
#pod
#pod   Options:
#pod     -h, --help        Show this summary of available options
#pod         --to    Path to store the static pages. Defaults to '.'.
#pod         --base   Rewrite internal absolute links to prepend base
#pod     -q, --quiet       Silence report of dirs/files modified
#pod
#pod =head1 DESCRIPTION
#pod
#pod Export a Mojolicious webapp to static files.
#pod
#pod =head2 Configuration
#pod
#pod Default values for the command's options can be specified in the
#pod configuration using one of Mojolicious's configuration plugins.
#pod
#pod     # myapp.conf
#pod     {
#pod         export => {
#pod             # Configure the default pages to export
#pod             pages => [ '/', '/hidden' ],
#pod             # The directory to export to
#pod             to => '/var/www/html',
#pod             # Rewrite URLs to include base directory
#pod             base => '/',
#pod         }
#pod     }
#pod
#pod =head1 SEE ALSO
#pod
#pod L, L
#pod
#pod =cut

use Mojo::Base 'Mojolicious::Command';
use Mojo::Util qw( getopt );

has description => 'Export site to static files';
has usage => sub { shift->extract_usage };

sub run {
    my ( $self, @args ) = @_;
    my $app = $self->app;
    if ( !$app->can( 'export' ) ) {
        $app->plugin( 'Export' );
    }

    getopt( \@args, \my %opt,
        'to=s',
        'base=s',
        'quiet|q',
    );
    $opt{quiet} //= 0;
    if ( $opt{quiet} ) {
        $self->quiet( 1 );
    }

    if ( @args ) {
        $opt{pages} = \@args;
    }

    $app->export->export( \%opt );
}

1;

__END__