view release on metacpan or  search on metacpan

lib/Class/Usul/Config/Programs.pm  view on Meta::CPAN

package Class::Usul::Config::Programs;

use namespace::autoclean;

use Class::Usul::Constants qw( TRUE UMASK );
use Class::Usul::File;
use Class::Usul::Types     qw( ArrayRef Bool HashRef NonEmptySimpleStr
                               NonZeroPositiveInt PositiveInt );
use Config;
use File::Basename         qw( basename );
use File::DataClass::Types qw( Path OctalNum );
use File::HomeDir;
use Moo;

extends q(Class::Usul::Config);

# Attribute constructors
my $_build_os = sub {
   my $self = shift;
   my $file = 'os_'.$Config{osname}.$self->extension;
   my $path = $self->ctrldir->catfile( $file ); $path->exists or return {};
   my $conf = Class::Usul::File->data_load( paths => [ $path ] );

   return $conf->{os} // {};
};

my $_build_owner = sub {
   return $_[ 0 ]->inflate_symbol( $_[ 1 ], 'prefix' ) || 'root';
};

my $_build_script = sub {
   return basename( $_[ 0 ]->inflate_path( $_[ 1 ], 'pathname' ) );
};

# Public attributes
has 'doc_title'    => is => 'ro',   isa => NonEmptySimpleStr,
   default         => 'User Contributed Documentation';

has 'man_page_cmd' => is => 'ro',   isa => ArrayRef,
   builder         => sub { [ 'nroff', '-man' ] };

has 'my_home'      => is => 'lazy', isa => Path, coerce => TRUE,
   builder         => sub { File::HomeDir->my_home };

has 'os'           => is => 'lazy', isa => HashRef, builder => $_build_os;

has 'owner'        => is => 'lazy', isa => NonEmptySimpleStr,
   builder         => $_build_owner;

has 'pwidth'       => is => 'ro',   isa => NonZeroPositiveInt, default => 60;

has 'script'       => is => 'lazy', isa => NonEmptySimpleStr,
   builder         => $_build_script;

has 'umask'        => is => 'ro',   isa => OctalNum, coerce => TRUE,
   default         => UMASK;

1;

__END__

=pod

=head1 Name

Class::Usul::Config::Programs - Additional configuration attributes for CLI programs

=head1 Synopsis

   package Class::Usul::Programs;

   use Moo;

   extends q(Class::Usul);

   has '+config_class' => default => q(Class::Usul::Config::Programs);

=head1 Description

Additional configuration attributes for CLI programs

=head1 Configuration and Environment

Defines the following list of attributes

=over 3

=item C<cache_ttys>

Boolean defaults to true. Passed to the L<Proc::ProcessTable> constructor

=item C<doc_title>

String defaults to 'User Contributed Documentation'. Used in the Unix man
pages

=item C<man_page_cmd>

Array ref containing the command and options to produce a man page. Defaults