[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
SF.net SVN: ledger-smb:[5012] trunk/LedgerSMB

Subject: SF.net SVN: ledger-smb:[5012] trunk/LedgerSMB
From: ..hidden..
Date: Wed, 18 Jul 2012 07:19:44 +0000
Revision: 5012
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=5012&view=rev
Author:   einhverfr
Date:     2012-07-18 07:19:44 +0000 (Wed, 18 Jul 2012)
Log Message:
-----------
LedgerSMB::DBObject_Moose is now a role rather than an abstract class

Modified Paths:
--------------
    trunk/LedgerSMB/DBObject/App_Module.pm
    trunk/LedgerSMB/DBObject/Budget.pm
    trunk/LedgerSMB/DBObject/Business_Unit.pm
    trunk/LedgerSMB/DBObject/Business_Unit_Class.pm
    trunk/LedgerSMB/DBObject/Entity/Bank.pm
    trunk/LedgerSMB/DBObject/Entity/Contact.pm
    trunk/LedgerSMB/DBObject/Entity/Credit_Account.pm
    trunk/LedgerSMB/DBObject/Entity/Location.pm
    trunk/LedgerSMB/DBObject/Entity/Note.pm
    trunk/LedgerSMB/DBObject/Entity/Payroll/Deduction.pm
    trunk/LedgerSMB/DBObject/Entity/Payroll/Wage.pm
    trunk/LedgerSMB/DBObject/Entity/User.pm
    trunk/LedgerSMB/DBObject/Entity.pm
    trunk/LedgerSMB/DBObject/Report.pm
    trunk/LedgerSMB/DBObject.pm
    trunk/LedgerSMB/DBObject_Moose.pm

Modified: trunk/LedgerSMB/DBObject/App_Module.pm
===================================================================
--- trunk/LedgerSMB/DBObject/App_Module.pm	2012-07-18 01:30:24 UTC (rev 5011)
+++ trunk/LedgerSMB/DBObject/App_Module.pm	2012-07-18 07:19:44 UTC (rev 5012)
@@ -27,7 +27,7 @@
 
 package LedgerSMB::DBObject::App_Module;
 use Moose;
-extends 'LedgerSMB::DBObject_Moose';
+with 'LedgerSMB::DBObject_Moose';
 
 =head1 PROPERTIES
 

Modified: trunk/LedgerSMB/DBObject/Budget.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Budget.pm	2012-07-18 01:30:24 UTC (rev 5011)
+++ trunk/LedgerSMB/DBObject/Budget.pm	2012-07-18 07:19:44 UTC (rev 5012)
@@ -29,7 +29,7 @@
 =cut
 
 use Moose;
-extends 'LedgerSMB::DBObject_Moose';
+with 'LedgerSMB::DBObject_Moose';
 
 =head1 PROPERTIES
 

Modified: trunk/LedgerSMB/DBObject/Business_Unit.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Business_Unit.pm	2012-07-18 01:30:24 UTC (rev 5011)
+++ trunk/LedgerSMB/DBObject/Business_Unit.pm	2012-07-18 07:19:44 UTC (rev 5012)
@@ -14,7 +14,7 @@
 package LedgerSMB::DBObject::Business_Unit;
 use Moose;
 use LedgerSMB::DBObject_Moose;
-extends 'LedgerSMB::DBObject_Moose';
+with 'LedgerSMB::DBObject_Moose';
 
 =head1 PROPERTIES
 

Modified: trunk/LedgerSMB/DBObject/Business_Unit_Class.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Business_Unit_Class.pm	2012-07-18 01:30:24 UTC (rev 5011)
+++ trunk/LedgerSMB/DBObject/Business_Unit_Class.pm	2012-07-18 07:19:44 UTC (rev 5012)
@@ -15,7 +15,7 @@
 use Moose;
 use LedgerSMB::DBObject_Moose;
 use LedgerSMB::DBObject::App_Module;
-extends 'LedgerSMB::DBObject_Moose';
+with 'LedgerSMB::DBObject_Moose';
 
 =head1 PROPERTIES
 

Modified: trunk/LedgerSMB/DBObject/Entity/Bank.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Entity/Bank.pm	2012-07-18 01:30:24 UTC (rev 5011)
+++ trunk/LedgerSMB/DBObject/Entity/Bank.pm	2012-07-18 07:19:44 UTC (rev 5012)
@@ -18,7 +18,7 @@
 
 package LedgerSMB::DBObject::Entity::Bank;
 use Moose;
-extends 'LedgerSMB::DBObject_Moose';
+with 'LedgerSMB::DBObject_Moose';
 
 =head1 INHERITS
 

Modified: trunk/LedgerSMB/DBObject/Entity/Contact.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Entity/Contact.pm	2012-07-18 01:30:24 UTC (rev 5011)
+++ trunk/LedgerSMB/DBObject/Entity/Contact.pm	2012-07-18 07:19:44 UTC (rev 5012)
@@ -20,7 +20,7 @@
 
 package LedgerSMB::DBObject::Entity::Contact;
 use Moose;
-extends 'LedgerSMB::DBObject_Moose';
+with 'LedgerSMB::DBObject_Moose';
 
 =head1 INHERITS
 

Modified: trunk/LedgerSMB/DBObject/Entity/Credit_Account.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Entity/Credit_Account.pm	2012-07-18 01:30:24 UTC (rev 5011)
+++ trunk/LedgerSMB/DBObject/Entity/Credit_Account.pm	2012-07-18 07:19:44 UTC (rev 5012)
@@ -24,7 +24,7 @@
 
 package LedgerSMB::DBObject::Entity::Credit_Account;
 use Moose;
-extends 'LedgerSMB::DBObject_Moose';
+with 'LedgerSMB::DBObject_Moose';
 
 our $VERSION = '1.4.0';
 

Modified: trunk/LedgerSMB/DBObject/Entity/Location.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Entity/Location.pm	2012-07-18 01:30:24 UTC (rev 5011)
+++ trunk/LedgerSMB/DBObject/Entity/Location.pm	2012-07-18 07:19:44 UTC (rev 5012)
@@ -22,7 +22,7 @@
 use Moose;
 use LedgerSMB::App_State;
 use LedgerSMB::Locale;
-extends 'LedgerSMB::DBObject_Moose';
+with 'LedgerSMB::DBObject_Moose';
 
 my $locale = $LedgerSMB::App_State::Locale;
 if (!$locale){

Modified: trunk/LedgerSMB/DBObject/Entity/Note.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Entity/Note.pm	2012-07-18 01:30:24 UTC (rev 5011)
+++ trunk/LedgerSMB/DBObject/Entity/Note.pm	2012-07-18 07:19:44 UTC (rev 5012)
@@ -21,7 +21,7 @@
 
 package LedgerSMB::DBObject::Entity::Note;
 use Moose;
-extends 'LedgerSMB::DBObject_Moose';
+with 'LedgerSMB::DBObject_Moose';
 
 =head1 INHERITS
 

Modified: trunk/LedgerSMB/DBObject/Entity/Payroll/Deduction.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Entity/Payroll/Deduction.pm	2012-07-18 01:30:24 UTC (rev 5011)
+++ trunk/LedgerSMB/DBObject/Entity/Payroll/Deduction.pm	2012-07-18 07:19:44 UTC (rev 5012)
@@ -25,7 +25,7 @@
 
 package LedgerSMB::DBObject::Entity::Payroll::Deduction;
 use Moose;
-extends 'LedgerSMB::DBObject_Moose';
+with 'LedgerSMB::DBObject_Moose';
 
 =head1 PROPERTIES
 

Modified: trunk/LedgerSMB/DBObject/Entity/Payroll/Wage.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Entity/Payroll/Wage.pm	2012-07-18 01:30:24 UTC (rev 5011)
+++ trunk/LedgerSMB/DBObject/Entity/Payroll/Wage.pm	2012-07-18 07:19:44 UTC (rev 5012)
@@ -21,7 +21,7 @@
 
 package LedgerSMB::DBObject::Entity::Payroll::Wage;
 use Moose;
-extends 'LedgerSMB::DBObject_Moose';
+with 'LedgerSMB::DBObject_Moose';
 
 =head1 PROPERTIES
 

Modified: trunk/LedgerSMB/DBObject/Entity/User.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Entity/User.pm	2012-07-18 01:30:24 UTC (rev 5011)
+++ trunk/LedgerSMB/DBObject/Entity/User.pm	2012-07-18 07:19:44 UTC (rev 5012)
@@ -7,7 +7,7 @@
 package LedgerSMB::DBObject::Entity::User;
 use Moose;
 use LedgerSMB::App_State;
-extends 'LedgerSMB::DBObject_Moose';
+with 'LedgerSMB::DBObject_Moose';
 
 =head1 SYNOPSYS
 

Modified: trunk/LedgerSMB/DBObject/Entity.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Entity.pm	2012-07-18 01:30:24 UTC (rev 5011)
+++ trunk/LedgerSMB/DBObject/Entity.pm	2012-07-18 07:19:44 UTC (rev 5012)
@@ -6,7 +6,7 @@
 
 package LedgerSMB::DBObject::Entity;
 use Moose;
-extends 'LedgerSMB::DBObject_Moose';
+with 'LedgerSMB::DBObject_Moose';
 
 =head1 SYNOPSYS
 

Modified: trunk/LedgerSMB/DBObject/Report.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Report.pm	2012-07-18 01:30:24 UTC (rev 5011)
+++ trunk/LedgerSMB/DBObject/Report.pm	2012-07-18 07:19:44 UTC (rev 5012)
@@ -47,7 +47,7 @@
 
 package LedgerSMB::DBObject::Report;
 use Moose;
-extends 'LedgerSMB::DBObject_Moose';
+with 'LedgerSMB::DBObject_Moose';
 use LedgerSMB::Template;
 use LedgerSMB::App_State;
 

Modified: trunk/LedgerSMB/DBObject.pm
===================================================================
--- trunk/LedgerSMB/DBObject.pm	2012-07-18 01:30:24 UTC (rev 5011)
+++ trunk/LedgerSMB/DBObject.pm	2012-07-18 07:19:44 UTC (rev 5012)
@@ -73,10 +73,6 @@
     else {
         @mergelist = ();
     }
-    if ( !$base->isa('LedgerSMB') and !$base->isa('LedgerSMB::DBObject_Moose') 
-    ) {
-        $self->error("Constructor called without LedgerSMB object arg");
-    }
 
     my $attr;
     if (lc($mode) eq 'base'){

Modified: trunk/LedgerSMB/DBObject_Moose.pm
===================================================================
--- trunk/LedgerSMB/DBObject_Moose.pm	2012-07-18 01:30:24 UTC (rev 5011)
+++ trunk/LedgerSMB/DBObject_Moose.pm	2012-07-18 07:19:44 UTC (rev 5012)
@@ -10,7 +10,7 @@
 =cut
 
 package LedgerSMB::DBObject_Moose;
-use Moose;
+use Moose::Role;
 use LedgerSMB::DBObject;
 use LedgerSMB;
 use Scalar::Util;
@@ -138,6 +138,4 @@
 
 =cut
 
-__PACKAGE__->meta->make_immutable;
-
 1;

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
Prev by Date: SF.net SVN: ledger-smb:[5011] trunk/LedgerSMB
Next by Date: SF.net SVN: ledger-smb:[5013] trunk
Previous by thread: SF.net SVN: ledger-smb:[5011] trunk/LedgerSMB
Next by thread: SF.net SVN: ledger-smb:[5013] trunk
Index(es):
- Date
- Thread