diff options
author | dakkar <dakkar@luxion> | 2006-02-04 11:38:38 +0000 |
---|---|---|
committer | dakkar <dakkar@luxion> | 2006-02-04 11:38:38 +0000 |
commit | f865f30f1f95dcaafeca6a5895017d40b4409a12 (patch) | |
tree | 025627e8d5fc14bc1b6d087464b48d914b9f2f32 /lib | |
parent | test per le risorse (diff) | |
download | WebCoso-f865f30f1f95dcaafeca6a5895017d40b4409a12.tar.gz WebCoso-f865f30f1f95dcaafeca6a5895017d40b4409a12.tar.bz2 WebCoso-f865f30f1f95dcaafeca6a5895017d40b4409a12.zip |
passa 1 test
git-svn-id: svn://luxion/repos/WebCoso/trunk@145 fcb26f47-9200-0410-b104-b98ab5b095f3
Diffstat (limited to 'lib')
-rw-r--r-- | lib/WebCoso/Resource.pm | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/lib/WebCoso/Resource.pm b/lib/WebCoso/Resource.pm new file mode 100644 index 0000000..39179fe --- /dev/null +++ b/lib/WebCoso/Resource.pm @@ -0,0 +1,20 @@ +package WebCoso::Resource; +use strict; +use warnings; +use Class::Std; +#use WebCoso::X; + +{ +my %values_of :ATTR(:default<{}>); +my %axes_of :ATTR(:default<{}>); + +sub get_axes { + my ($self)=@_; + + return keys %{$axes_of{ident $self}}; +} + + +} + +1; |