view release on metacpan or  search on metacpan

t/Log/Shiras/Report/02-meta_message.t  view on Meta::CPAN

#!perl
#########1 Test File for Log::Shiras::TapPrint    5#########6#########7#########8#########9
my ( $lib, $test_file, );
BEGIN{
	use Modern::Perl;
	use Test2::Bundle::Extended qw( !meta );
	use Test2::Plugin::UTF8;
	use Test::Moose;
	my $file = (caller(0))[1];
	my 	$directory_ref = {
			t		=> './',# repo level
			Log		=> '../',# t folder level
			$file	=> '../../../../',# test file level
		};
	for my $next ( <*> ){
		#~ diag $next;
		if( $next =~/^($file|t|Log)$/ ){
			my $return = $1;
			#~ diag $return;
			$lib 			= $directory_ref->{$return} . 'lib';
			$test_file 		= $directory_ref->{$return} . 't/test_files/';
			#~ diag $lib;
			#~ diag $test_file;
			last;
		}
	}
	use Carp 'longmess';
	$SIG{__WARN__} = sub{ note longmess $_[0]; };
	$ENV{hide_warn} = 1;
}
$| = 1;
use MooseX::ShortCut::BuildInstance qw( build_class );
use lib $lib,;
#~ use Log::Shiras::Unhide qw( :InternalReporTMetaMessagE	:InternalReporT );#
plan( 
###InternalReporTMetaMessagE	( 0 ?
		40 
###InternalReporTMetaMessagE	: 41 )
);
use Log::Shiras::Report;
use Log::Shiras::Report::MetaMessage;
use Data::Dumper;
my  		@attributes = qw(
				prepend					postpend				hashpend
				pre_sub					post_sub
			);
my  		@methods = qw(
				clear_prepend			has_prepend				get_all_prepend
				add_to_prepend			clear_postpend			has_postpend
				get_all_postpend		add_to_postpend			clear_hashpend
				has_hashpend			get_all_hashpend		add_to_hashpend
				remove_from_hashpend	manage_message			clear_pre_sub
				has_pre_sub				get_pre_sub				set_pre_sub
				clear_post_sub			has_post_sub			get_post_sub
				set_post_sub			
			);
my  (
			$message_class, $message_instance, $ella_peterson, $output, $master_store,
	);
note 									"easy question first ...";
###InternalReporTMetaMessagE	use Log::Shiras::Switchboard;
###InternalReporTMetaMessagE	use Log::Shiras::Telephone;
###InternalReporTMetaMessagE	use Log::Shiras::Report::Test2Note;
###InternalReporTMetaMessagE	ok( lives{	$ella_peterson = Log::Shiras::Switchboard->get_operator(
###InternalReporTMetaMessagE					name_space_bounds =>{