File Coverage

blib/lib/Whim.pm

Criterion	Covered	Total	%
statement	36	38	94.7
branch	1	4	25.0
condition	2	6	33.3
subroutine	8	8	100.0
pod	1	2	50.0
total	48	58	82.7

package Whim;
use Mojo::Base 'Mojolicious';

use Mojo::File qw(curfile);
use Mojo::Loader qw(load_class);

use Whim::Core;

use Path::Tiny;

our $VERSION = '1.2023.04.06.0';

has info => "This is Whim, version $VERSION, by Jason McIntosh.";

sub startup {
    my $self = shift;

    # Switch the app's home to ~/.whim/
    # (overridable by environment variable)
    my $whim_homedir;
    if ( defined $ENV{WHIM_HOME} ) {
        $whim_homedir = path( $ENV{WHIM_HOME} );
    }
    else {
        $whim_homedir = path( $ENV{HOME} )->child('.whim');
    }

    $self->home( Mojo::Home->new($whim_homedir) );

    my $config =
        $self->plugin( 'Config', { default => { home => $self->home, }, } );

    $self->commands->namespaces( ['Whim::Command'] );
    $self->set_up_help;

    # Create a 'whim' helper containing our Whim::Core object
    $self->helper(
        whim => sub {
            state $whim = Whim::Core->new($config);
        }
    );

    # Set up docroot and template paths.
    # For both, the first place to look is the app home, and then using
    # the library directory as a fallback.
    $self->static->paths(
        [   $self->home->child('public'),
            curfile->sibling('Whim')->child('public'),
        ]
    );

    $self->renderer->paths(
        [   $self->home->child('templates'),
            curfile->sibling('Whim')->child('templates'),
        ]
    );

    # Set up routes for the listener
    my $r = $self->routes;

    $r->get('/')->to('listen#default');
    $r->post('/')->to('listen#receive');

    $r->get('/display_wms')->to('display#display');
    $r->get('/summarize_wms')->to('display#summarize');

    # Mojolicious's 'Unknown command' error message is confusing, so
    # we do our own check for command-knownness.
    # (Mojo's load_class(), invoked below, returns truth if it fails.)
    if (   $ARGV[0]
        && $ARGV[0] ne 'help'
        && load_class("Whim::Command::$ARGV[0]") )
    {
        die "Unknown command '$ARGV[0]'. "
            . "(Type 'whim help' for a command list.)\n";
    }
}

sub set_up_help {
    my $self = shift;
    $self->commands->message( $self->info . "\n\nAvailable commands:\n" );

    $self->commands->hint(
              "\nSee 'whim help COMMAND' for more information on a specific "
            . "commmand.\n"
            . "See 'man whim' for more thorough documentation.\n" );
}

1;

=head1 NAME

Whim - A code library used by the Whim webmention multitool

=head1 DESCRIPTION

This is a code library used by the C<whim> executable. It doesn't have a
public interface!

=head1 SEE ALSO

L<whim>

=head1 AUTHOR

Jason McIntosh E<lt>[e-mail]<gt>