App-CELL

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.081  2014-05-09 10:23
- general cleanup

0.082  2014-05-09 14:16
- Test.pm: 
  - new cleartmpdir function, use it in unit tests
  - write proper SYNOPSIS
  - new unit tests (t/003-test.t)
- t/030-status.t: add more tests
- update dependencies in t/000-dependencies.t and Makefile.PL
- expand release/README

0.083  2014-05-09 17:15
- CELL.pm: remove 'status_ok' and 'status' wrappers
- CELL_Config.pm and CELL_MetaConfig.pm: prefix all params with 'CELL_',
  add comments
- Message.pm: fix bug "'new' method suffers from flawed logic"

0.084  2014-05-09 17:47
- CELL.pm: move 'config' logic to Config.pm and make it a wrapper
- Message.pm: add some comments

Changes  view on Meta::CPAN

- Message.pm: add 'error' attribute to message class, add 'stringify'
  method to message class revamp error checking in 'new'

0.089  2014-05-11 20:01
- implement major design change: migrate to Log::Any (ticket #27)
- t/001-log.t: rewrite to use Log::Any::Test
- remove dependency on Log::Fast

0.090  2014-05-11 21:23
- Log.pm: rename 'configure' subroutine to 'init', tweak POD,
  expand permitted levels (ticket #28)
- audit all calls to App::CELL::Status->new (ticket #5)

0.091  2014-05-11 22:29
- CELL_Config.pm, Message.pm: add CELL_SUPPORTED_LANGUAGES and
  CELL_LANGUAGE core params (ticket #15)
- CELL.pm, t/100-cell.t: initialize package variables in Message.pm
- Config.pm: unpack @_ in 'config' subroutine

0.092  2014-05-12 13:18
- Load.pm: improve error checking in 'init' (ticket #21); tweak variable

Changes  view on Meta::CPAN

  caller"

0.103  2014-05-22 21:56
- Log.pm: change initialization routine so it takes a PARAMHASH, and added
  a 'show_caller' param to it
- adapted CELL.pm and t/* to change in Log.pm

0.104  2014-05-22 22:17
- CELL.pm: fixed bug "App::CELL->init not recognizing appname param"
- Log.pm: add 'ident' accessor routine
- demo.plx: expanded demo script

0.105  2014-05-23 21:16
- CELL.pm, CELL_Config.pm: move verbiage to doc/guide.pod, implement
  CELL_LOG_SHOW_CALLER
- Config.pm: spam the log less
- Message.pm: cleanup 'new', make it return a status object (ticket #26)
- Status.pm: make it handle status object from Message->new
- t/005-message.t: adapt tests, add more tests

0.106  2014-05-23 22:54

Changes  view on Meta::CPAN

- t/001-log.t: add some debug_mode-related tests

0.107  2014-05-24 10:19
- Load.pm: add sanity check to constructor (ticket #21)
- config/: fix spelling of params, add params for sanity check
- Message.pm: tell Data::Dumper to not include any newlines

0.108  2014-05-24 12:26
- Load.pm: suppress caller info in "parsed message" $log->debug call,
  generate more useful warnings/errors in find_files
- Log.pm: expand AUTOLOAD routine, improve caller handling, eliminate ok
  and not_ok wrappers
- Message.pm: improve caller handling in constructor
- Status.pm: improve caller handling in constructor, make 'caller' accessor
  return array ref instead of array
- t/070-config.t: turn on debug_mode
- Config.pm, CELL_Message_en.conf: add value to CELL_OVERWRITE_META_PARAM,
  remove unused error/warning messages

0.109  2014-05-24 15:18
- Config.pm: cleanup 'get_param'

lib/App/CELL/Load.pm  view on Meta::CPAN

        # look in paramhash for name of environment variable
        $log->debug( "SITEDIR SEARCH, ROUND 2 (enviro parameter):", cell => 1 );
        if ( $paramhash{enviro} ) 
        {
            if ( $sitedir = $ENV{ $paramhash{enviro} } ) {
                $log_message = "Found viable sitedir in " . $paramhash{enviro}
                               . " environment variable";
                last GET_CANDIDATE_DIR if is_directory_viable( $sitedir );
                $reason = "CELL load routine received 'enviro' argument ->$paramhash{enviro}<- " .
                      "which expanded to ->$sitedir<- but this is not a viable directory " . 
                      "($App::CELL::Util::not_viable_reason)";
                return App::CELL::Status->new( level => 'ERR', code => $reason );
            } else {
                $reason = "CELL load routine: enviro argument contained ->$paramhash{enviro}<- " .
                      "but no such variable found in the environment";
                return App::CELL::Status->new( level => 'ERR', code => $reason );
            }
        }

        # fall back to hard-coded environment variable

t/110-site.t  view on Meta::CPAN

1;
EOS
#diag( "Now populating $full_path" );
populate_file( $full_path, $stuff );

$status = $CELL->load( sitedir => $sitedir2 );
ok( $status->ok, "CELL initialization with second sitedir OK" );
is( $site->CELL2_BIG_BUS_PARAM, "Vehiculo longo", "Unique param has value we set" );
is( $site->A_RANDOM_PARAMETER, "34WDFWWD", "Attempt to overwrite existing site param failed" );
is( $meta->CELL_META_SITEDIR_LOADED, 2, "Meta param set correctly after second load");
is_deeply( $meta->CELL_META_SITEDIR_LIST, [ $sitedir, $sitedir2 ], "List of sitedirs correctly expanded after second load" );

done_testing;