Fuse::Template::App - Application role for fuse-template

Fuse-Template documentation Contained in the Fuse-Template distribution.

Index

Code Index:

NAME

Top

Fuse::Template::App - Application role for fuse-template

SYNOPSIS

Top

See bin/fuse-template for example.

ATTRIBUTES

Top

help

Provides "--help", which again prints a list of command line options.

man

Provides "--man", which will run perldoc on Fuse::Template.

METHODS

Top

run

Set up objects and starts the Fuse mainloop.

AUTHOR

Top

See Fuse::Template.

Fuse-Template documentation Contained in the Fuse-Template distribution. 
package Fuse::Template::App;


use Moose::Role;
use Fuse;

with 'MooseX::Getopt';

MooseX::Getopt::OptionTypeMap->add_option_type_to_map(
    Fuse::Template::Root::RootObject, '=s'
);
MooseX::Getopt::OptionTypeMap->add_option_type_to_map(
    Fuse::Template::Schema::Schema, '=s'
);


has help => (
    is => 'ro',
    isa => 'Bool',
    documentation => 'This help text',
);


has man => (
    is => 'ro',
    isa => 'Bool',
    documentation => 'Read Fuse::Template manual',
);


sub run {
    my $self = shift;
    my %callbacks;

    if($self->help) {
        exit 0;
    }
    elsif($self->man) {
        exec perldoc => grep { m[ Fuse/Template.pm$ ]x } values %INC;
    }

    unless($self->mountpoint and $self->root) {
        warn "Usage: fuse-template --help\n\n";
        return 1;
    }

    for my $method (Fuse::Template::Sys->meta->get_method_list) {
        $callbacks{$method} = sub { $self->$method(@_) };
    }

    $self->log(info => "Starting Fuse mainloop");

    Fuse::main(
        %callbacks,
        mountpoint => $self->mountpoint,
        debug      => $self->debug || 0,
        mountopts  => $self->mountopts || q(),
        threaded   => 0,
    );

    return 0;
}

sub _threads_enabled {
    return 1 if(grep { $_ eq 'threads.pm' } keys %INC);
    return 0;
}


1;