From f865f30f1f95dcaafeca6a5895017d40b4409a12 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Sat, 4 Feb 2006 11:38:38 +0000
Subject: passa 1 test

git-svn-id: svn://luxion/repos/WebCoso/trunk@145 fcb26f47-9200-0410-b104-b98ab5b095f3
---
 lib/WebCoso/Resource.pm | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 lib/WebCoso/Resource.pm

(limited to 'lib')

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;
-- 
cgit v1.2.3