[Bps-public-commit] r19016 - Lorzy/trunk/lib/Lorzy

[clkao at bestpractical.com]

Author: clkao
Date: Wed Apr  1 11:40:16 2009
New Revision: 19016

Added:
   Lorzy/trunk/lib/Lorzy/Package.pm

Log:
add missing lorzy::package

Added: Lorzy/trunk/lib/Lorzy/Package.pm
==============================================================================
--- (empty file)
+++ Lorzy/trunk/lib/Lorzy/Package.pm	Wed Apr  1 11:40:16 2009
@@ -0,0 +1,16 @@
+package Lorzy::Package;
+use Moose;
+use MooseX::ClassAttribute;
+
+class_has functions => (
+    is      => 'rw',
+    isa     => 'HashRef',
+    default => sub { {} },
+);
+
+sub defun {
+    my ($pkg, $name, %args) = @_;
+    $pkg->functions->{$name} = \%args;
+}
+
+1;