CPAN::Groonga

ode|
		^Eval|				^Exporter|			^feature|			^File|
		^Filter|			^if\.pm|			^integer|			^IO.File|
		^JSON|				^List|				^Log.Shiras.Unhide|	^metaclass|
		^Module|			^Moose(?!X)|		^MooseX.Has|		^MooseX.No

ode|
		^Eval|				^Exporter|			^feature|			^File|
		^Filter|			^if\.pm|			^integer|			^IO.File|
		^JSON|				^List|				^Log.Shiras.Unhide|	^metaclass|
		^Module|			^Moose(?!X)|		^MooseX.Has|		^MooseX.No

le
		FileHash			JsonFile			ArgsHash			ReportObject
		NameSpace			CSVFile				XLSXFile			XLSFile
		XMLFile				IOFileType			HeaderArray
	)];#
#~ use YAML::Any qw( Dump LoadFile );
use JSON::XS;

########

   = qr/[.](txt|csv)/;
my  $yamlextention	= qr/\.(?i)(yml|yaml)/;
my  $jsonextention	= qr/\.(?i)(jsn|json)/;
my  $coder 			= JSON::XS->new->ascii->pretty->allow_nonref;#
my 	$switchboard_attributes = 

lFile, as Str,
	where{ $_ =~ $yamlextention and -f $_ },
	message{ $_ };

subtype JsonFile, as Str,
	where{ $_ =~ $jsonextention and -f $_ },
	message{ $_ };

subtype FileHash, as HashRef;
###Internal

Walk::Clone v0.024;
use Log::Shiras::Types qw(
		ElevenArray		ElevenInt		ReportObject		YamlFile
		JsonFile		FileHash		ArgsHash
	);#

#########1 Package Variables  3#########4#########5#########6######

( @args > 1 ) and ( scalar( @args ) % 2 == 0 ) ) ? { @args } :
			( is_YamlFile( $args[0] ) or is_JsonFile( $args[0] ) ) ? to_FileHash( $args[0] ) :
				to_ArgsHash( $args[0] );
	###InternalSwitchboar

s the new settings take
precedence.  So be careful!

B<Accepts:> [%args|$args_ref|full/file/path.(json|yml)] %args are treated the same
as attributes passed to other class style calls to new.  The dat