diff options
Diffstat (limited to 'lib/WebCoso/Config/Resource.pm')
-rw-r--r-- | lib/WebCoso/Config/Resource.pm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lib/WebCoso/Config/Resource.pm b/lib/WebCoso/Config/Resource.pm index b499fec..4b5cd60 100644 --- a/lib/WebCoso/Config/Resource.pm +++ b/lib/WebCoso/Config/Resource.pm @@ -6,9 +6,9 @@ use WebCoso::Config; { -my %sources_of :ATTR( :init_arg<source> ); -my %pipelines_of :ATTR( :init_arg<pipeline> ); -my %dest_of :ATTR( :init_arg<destination> ); +my %sources_of :ATTR( :init_arg<source> :get<sources>); +my %pipelines_of :ATTR( :init_arg<pipeline> :get<pipeline>); +my %dest_of :ATTR( :init_arg<destination> :get<destination>); sub BUILD { my ($self,$ident,$args_ref)=@_; @@ -22,7 +22,7 @@ sub axes { sub axis { my ($self,$axis_name)=@_; if ($axis_name eq 'filename') { - return @{$sources_of{ident($self)}}; + return @{ $self->get_sources() }; } else { return; @@ -32,7 +32,9 @@ sub axis { sub datastream { my ($self,$axis_name,$axis_value,@rest)=@_; if (@rest==0 and $axis_name eq 'filename') { - if ( grep { $_ eq $axis_value } @{$sources_of{ident($self)}} ) { + if ( grep { $_ eq $axis_value } + @{ $self->get_sources() } + ) { return _read_file($axis_value); } } |