integrate le nuove resources al posto delle vecchie config::resources

git-svn-id: svn://luxion/repos/WebCoso/trunk@150 fcb26f47-9200-0410-b104-b98ab5b095f3

1 files changed, 23 insertions, 5 deletions

diff --git a/lib/WebCoso/Config.pm b/lib/WebCoso/Config.pm
index 187602e..78c9dbe 100644
--- a/lib/WebCoso/Config.pm
+++ b/lib/WebCoso/Config.pm
@@ -66,7 +66,7 @@ sub clear {
 
 package WebCoso::Config::Helpers;
 use Path::Class;
-use WebCoso::Config::Resource;
+use WebCoso::Resource;
 use WebCoso::Config::Collection;
 use Exporter::Lite;
 use vars qw($FILENAME @EXPORT);
@@ -101,10 +101,18 @@ sub res {
         );
     };
 
-    my $resource=WebCoso::Config::Resource->new({
-        sources=>[@abs_source_files],
-        destination=>$dest_filename
-    });
+    my $resource=WebCoso::Resource->new();
+    $resource->set_property(sources=>[@abs_source_files]);
+    $resource->set_property(destination=>$dest_filename);
+
+    for my $filename (@abs_source_files) {
+        $resource->set_property(
+            {filename=>$filename},
+            datastream => _open_file($filename),
+        );
+    }
+
+    WebCoso::Config->add_resource($resource);
 
     # brutto!
     $resource_to_pipeline{$resource}=$pipeline_name;
@@ -125,4 +133,14 @@ sub coll {
     return $collection;
 }
 
+sub _open_file {
+    my ($filename)=@_;
+
+    open my $fh,'<:raw',$filename
+        or WebCoso::X::OpenError->throw(
+            filename => $filename,
+            error => $!);
+    return $fh;
+}
+
 1;