[haver-commits] r895 - in trunk: . perl/core/lib/Haver

[haver]

Author: dylan
Date: 2005-07-26 16:44:28 -0400 (Tue, 26 Jul 2005)
New Revision: 895

Modified:
   trunk/
   trunk/perl/core/lib/Haver/Session.pm
   trunk/perl/core/lib/Haver/Wheel.pm
Log:
More sugar.



Property changes on: trunk
___________________________________________________________________
Name: svk:merge
   - 1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/havercurs-objc:43089
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk:11166
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk-merge-10131:11178
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/winch/trunk:43192
27e50396-46e3-0310-8b22-ae223a1f35ce:/local:212
e9404bb1-7af0-0310-a7ff-e22194cd388b:/haver/local:1316
edfcd8bd-4ce7-0310-a97e-bb1efd40edf3:/local:238
   + 1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/havercurs-objc:43089
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk:11166
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk-merge-10131:11178
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/winch/trunk:43192
27e50396-46e3-0310-8b22-ae223a1f35ce:/local:212
e9404bb1-7af0-0310-a7ff-e22194cd388b:/haver/local:1318
edfcd8bd-4ce7-0310-a97e-bb1efd40edf3:/local:238

Modified: trunk/perl/core/lib/Haver/Session.pm
===================================================================
--- trunk/perl/core/lib/Haver/Session.pm        2005-07-26 20:43:10 UTC (rev 
894)
+++ trunk/perl/core/lib/Haver/Session.pm        2005-07-26 20:44:28 UTC (rev 
895)
@@ -19,8 +19,8 @@
        ARG7 ARG8 ARG9
        Log call post
 );
+our @EXPORT_OK = qw( call post );
 
-
 sub import (@) {
        if (grep /^-(Base|selfless)$/, @_) {
                croak "Haver::Base::Session subclasses may not use -Base or 
-selfless!";

Modified: trunk/perl/core/lib/Haver/Wheel.pm
===================================================================
--- trunk/perl/core/lib/Haver/Wheel.pm  2005-07-26 20:43:10 UTC (rev 894)
+++ trunk/perl/core/lib/Haver/Wheel.pm  2005-07-26 20:44:28 UTC (rev 895)
@@ -7,7 +7,7 @@
 use Haver::Base -base;
 use POE::Session;
 use POE::Wheel;
-
+use Haver::Session 'call', 'post';
 our $VERSION = 0.08;
 our @EXPORT_BASE = qw(
        SESSION OBJECT
@@ -17,6 +17,7 @@
        ARG1 ARG2 ARG3
        ARG4 ARG5 ARG6
        ARG7 ARG8 ARG9
+       call post
 );
 
 const kernel  => $POE::Kernel::poe_kernel;