diff lib/IMPL/Config/YAMLConfig.pm @ 419:bbc4739c4d48 ref20150831

working on IMPL::Config::Container
author cin
date Sun, 29 Jan 2017 10:30:20 +0300
parents 3f38dabaf5cc
children 7798345304bc
line wrap: on
line diff
--- a/lib/IMPL/Config/YAMLConfig.pm	Mon Dec 28 15:11:35 2015 +0300
+++ b/lib/IMPL/Config/YAMLConfig.pm	Sun Jan 29 10:30:20 2017 +0300
@@ -1,9 +1,23 @@
 package IMPL::Config::YAMLConfig;
 use strict;
 
+use IMPL::lang qw(:base);
+use IMPL::Exception();
+use YAML::XS();
+
+sub Load {
+	my ( $this, $container, $file ) = @_;
+
+	$this->Configure( isscalar($file)
+		? YAML::XS::Load( ${$file} )
+		: YAML::XS::LoadFile($file) );
+}
+
 sub Configure {
-	my ($this, $container, $config) = @_;
+	my ( $this, $container, $config ) = @_;
 	
+	
+
 }
 
 1;
@@ -13,4 +27,4 @@
 =pod
 
 
-=cut
\ No newline at end of file
+=cut