File Coverage

blib/lib/Metabrik/Core/Global.pm

Criterion	Covered	Total	%
statement	9	17	52.9
branch			n/a
condition	0	8	0.0
subroutine	3	5	60.0
pod	2	2	100.0
total	14	32	43.7

#
# $Id: Global.pm,v a38b58d4db2f 2019/03/13 10:00:56 gomor $
#
# core::global Brik
#
package Metabrik::Core::Global;
use strict;
use warnings;

# Breaking.Feature.Fix
our $VERSION = '1.40';
our $FIX = '0';

use base qw(Metabrik);

sub brik_properties {
   return {
      revision => '$Revision: a38b58d4db2f $',
      tags => [ qw(main core) ],
      attributes => {
         device => [ qw(device) ],
         family => [ qw(ipv4|ipv6) ],
         protocol => [ qw(udp|tcp) ],
         ctimeout => [ qw(seconds) ],
         rtimeout => [ qw(seconds) ],
         wtimeout => [ qw(seconds) ],
         datadir => [ qw(directory) ],
         username => [ qw(username) ],
         hostname => [ qw(hostname) ],
         homedir => [ qw(directory) ],
         # encoding: see `perldoc Encode::Supported' for other types
         encoding => [ qw(utf8|ascii) ],
         exit_on_sigint => [ qw(0|1) ],
         pid => [ qw(metabrik_main_pid) ],
         repository => [ qw(repository) ],
      },
      attributes_default => {
         device => 'eth0',
         family => 'ipv4',
         protocol => 'tcp',
         ctimeout => 5,
         rtimeout => 5,
         wtimeout => 5,
         username => $ENV{USER} || 'root',
         hostname => $ENV{HOST} || 'localhost',
         homedir => $ENV{HOME} || '/tmp',
         encoding => 'utf8',
         exit_on_sigint => 0,
         pid => $$,
      },
      require_modules => {
         'File::Path' => [ qw(make_path) ],
      },
   };
}

sub brik_use_properties {
   my $self = shift;

   my $homedir = $ENV{HOME} || '/tmp';
   my $datadir = $homedir.'/metabrik';
   my $repository = $homedir.'/metabrik/repository';

   eval("use File::Path qw(make_path);");
   File::Path::make_path($homedir, $datadir, $repository, {
      mode => 0755,
   });

   return {
      attributes_default => {
         homedir => $homedir,
         datadir => $datadir,
         repository => $repository,
      },
   };
}

1;

__END__