From 78034f2431414b414d171b720bc0438635e19ae5 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Thu, 2 Sep 2010 19:55:15 +0200
Subject: [PATCH] Attribute Helper umgeschrieben.
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Siehe Dokumentation SL::DB::Helpers::Attr.

Attributhelper werden jetzt beim Rose Start automatisch geladen.
numeric Felder bekommen immer einen as_number udn einen as_percent helper.
date Felder bekommen immer einen as_date helper.

as_date Helper kann jetzt auch mit 'now' umgehen.

Zusaätzliche Helper können zur Compilezeit mit

  __PACKAGE__->meta->make_attr_helpers(column => 'type');

erstellt werden, wobei 'type' einfach das ist, was auch bei der autdetection
ind er Datenbank erkannt wird, z.B. "numeric(15,5)" oder "date". Die passenden
Helper werden dann installiert.
---
 SL/DB/Business.pm                |   2 -
 SL/DB/DeliveryOrder.pm           |   4 -
 SL/DB/DeliveryOrderItem.pm       |   4 -
 SL/DB/DeliveryOrderItemsStock.pm |   4 -
 SL/DB/GLTransaction.pm           |   4 -
 SL/DB/Helpers/Attr.pm            | 135 +++++++++++++++++++++++++++++++
 SL/DB/Helpers/AttrDate.pm        |  38 ---------
 SL/DB/Helpers/AttrNumber.pm      |  27 -------
 SL/DB/Helpers/AttrPercent.pm     |  27 -------
 SL/DB/Helpers/Metadata.pm        |  16 ++++
 SL/DB/Invoice.pm                 |   6 +-
 SL/DB/InvoiceItem.pm             |   7 --
 SL/DB/Object.pm                  |  32 +-------
 SL/DB/Order.pm                   |   4 -
 SL/DB/Part.pm                    |   4 -
 SL/DB/PurchaseInvoice.pm         |   4 -
 t/helper/attr.t                  |  22 +++--
 17 files changed, 170 insertions(+), 170 deletions(-)
 create mode 100644 SL/DB/Helpers/Attr.pm
 delete mode 100644 SL/DB/Helpers/AttrDate.pm
 delete mode 100644 SL/DB/Helpers/AttrNumber.pm
 delete mode 100644 SL/DB/Helpers/AttrPercent.pm

diff --git a/SL/DB/Business.pm b/SL/DB/Business.pm
index be9120e3c..badd0b5b4 100644
--- a/SL/DB/Business.pm
+++ b/SL/DB/Business.pm
@@ -7,8 +7,6 @@ use strict;
 
 use SL::DB::MetaSetup::Business;
 
-__PACKAGE__->attr_percent('discount', places => -2);
-
 # Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.
 __PACKAGE__->meta->make_manager_class;
 
diff --git a/SL/DB/DeliveryOrder.pm b/SL/DB/DeliveryOrder.pm
index 0dacf9a2a..b5bdcb413 100644
--- a/SL/DB/DeliveryOrder.pm
+++ b/SL/DB/DeliveryOrder.pm
@@ -8,10 +8,6 @@ use SL::DB::Order;
 
 use List::Util qw(first);
 
-for my $field (qw(transdate reqdate)) {
-  __PACKAGE__->attr_date($field);
-}
-
 __PACKAGE__->meta->add_relationship(orderitems => { type         => 'one to many',
                                                     class        => 'SL::DB::DeliveryOrderItem',
                                                     column_map   => { id => 'trans_id' },
diff --git a/SL/DB/DeliveryOrderItem.pm b/SL/DB/DeliveryOrderItem.pm
index 8b836ee15..2f508d310 100644
--- a/SL/DB/DeliveryOrderItem.pm
+++ b/SL/DB/DeliveryOrderItem.pm
@@ -4,10 +4,6 @@ use strict;
 
 use SL::DB::MetaSetup::DeliveryOrderItem;
 
-for my $field (qw(qty sellprice discount base_qty lastcost price_factor marge_price_factor)) {
-  __PACKAGE__->attr_number($field, places => -2);
-}
-
 __PACKAGE__->meta->make_manager_class;
 
 # methods
diff --git a/SL/DB/DeliveryOrderItemsStock.pm b/SL/DB/DeliveryOrderItemsStock.pm
index 33e3f885f..2b951ef0a 100644
--- a/SL/DB/DeliveryOrderItemsStock.pm
+++ b/SL/DB/DeliveryOrderItemsStock.pm
@@ -7,10 +7,6 @@ use strict;
 
 use SL::DB::MetaSetup::DeliveryOrderItemsStock;
 
-for my $field (qw(qty)) {
-  __PACKAGE__->attr_number($field, places => -2);
-}
-
 # Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.
 __PACKAGE__->meta->make_manager_class;
 
diff --git a/SL/DB/GLTransaction.pm b/SL/DB/GLTransaction.pm
index c4ca221be..b1550e9f5 100644
--- a/SL/DB/GLTransaction.pm
+++ b/SL/DB/GLTransaction.pm
@@ -4,10 +4,6 @@ use strict;
 
 use SL::DB::MetaSetup::GLTransaction;
 
-for my $field (qw(transdate gldate)) {
-  __PACKAGE__->attr_date($field);
-}
-
 # Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.
 __PACKAGE__->meta->make_manager_class;
 
diff --git a/SL/DB/Helpers/Attr.pm b/SL/DB/Helpers/Attr.pm
new file mode 100644
index 000000000..01c97c2de
--- /dev/null
+++ b/SL/DB/Helpers/Attr.pm
@@ -0,0 +1,135 @@
+package SL::DB::Helper::Attr;
+
+use strict;
+
+sub auto_make {
+  my ($package, %params) = @_;
+
+  for my $col ($package->meta->columns) {
+    next if $col->primary_key_position; # don't make attr helper for primary keys
+    _make_by_type($package, $col->name, $col->type);
+  }
+
+  return $package;
+}
+
+sub make {
+  my ($package, %params) = @_;
+
+  for my $name (keys %params) {
+    my @types = ref $params{$name} eq 'ARRAY' ? @{ $params{$name} } : ($params{$name});
+    for my $type (@types) {
+      _make_by_type($package, $name, $type);
+    }
+  }
+  return $package;
+}
+
+
+
+sub _make_by_type {
+  my ($package, $name, $type) = @_;
+  _as_number ($package, $name, places => -2) if $type =~ /numeric | real | float/xi;
+  _as_percent($package, $name, places =>  0) if $type =~ /numeric | real | float/xi;
+  _as_number ($package, $name, places =>  0) if $type =~ /int/xi;
+  _as_date   ($package, $name)               if $type =~ /date | timestamp/xi;
+}
+
+sub _as_number {
+  my $package     = shift;
+  my $attribute   = shift;
+  my %params      = @_;
+
+  $params{places} = 2 if !defined($params{places});
+
+  no strict 'refs';
+  *{ $package . '::' . $attribute . '_as_number' } = sub {
+    my ($self, $string) = @_;
+
+    $self->$attribute($::form->parse_amount(\%::myconfig, $string)) if @_ > 1;
+
+    return $::form->format_amount(\%::myconfig, $self->$attribute, $params{places});
+  };
+}
+
+sub _as_percent {
+  my $package     = shift;
+  my $attribute   = shift;
+  my %params      = @_;
+
+  $params{places} = 2 if !defined($params{places});
+
+  no strict 'refs';
+  *{ $package . '::' . $attribute . '_as_percent' } = sub {
+    my ($self, $string) = @_;
+
+    $self->$attribute($::form->parse_amount(\%::myconfig, $string) / 100) if @_ > 1;
+
+    return $::form->format_amount(\%::myconfig, 100 * $self->$attribute, $params{places});
+  };
+
+  return 1;
+}
+
+sub _as_date {
+  my $package     = shift;
+  my $attribute   = shift;
+  my %params      = @_;
+
+  no strict 'refs';
+  *{ $package . '::' . $attribute . '_as_date' } = sub {
+    my ($self, $string) = @_;
+
+    if (@_ > 1) {
+      if ($string) {
+        my ($yy, $mm, $dd) = $::locale->parse_date(\%::myconfig, $string);
+        $self->$attribute(DateTime->new(year => $yy, month => $mm, day => $dd));
+      } else {
+        $self->$attribute(undef);
+      }
+    }
+
+    return $self->$attribute
+      ? $::locale->reformat_date(
+          { dateformat => 'yy-mm-dd' },
+          ( $self->$attribute eq 'now'
+             ? DateTime->now
+             : $self->$attribute
+          )->ymd,
+          $::myconfig{dateformat}
+        )
+      : undef;
+  };
+
+  return 1;
+}
+
+1;
+
+
+1;
+
+__END__
+
+=head1 NAME
+
+SL::DB::Helpers::Attr - attribute helpers
+
+=head1 SYNOPSIS
+
+  use SL::DB::Helpers::Attr;
+  SL::DB::Helpers::Attr::make($class,
+    method_name => 'numeric(15,5)',
+    datemethod  => 'date'
+  );
+  SL::DB::Helpers::Attr::auto_make($class);
+
+=head1 DESCRIPTION
+
+=head1 FUNCTIONS
+
+=head1 BUGS
+
+=head1 AUTHOR
+
+=cut
diff --git a/SL/DB/Helpers/AttrDate.pm b/SL/DB/Helpers/AttrDate.pm
deleted file mode 100644
index 38d5696fd..000000000
--- a/SL/DB/Helpers/AttrDate.pm
+++ /dev/null
@@ -1,38 +0,0 @@
-package SL::DB::Helpers::AttrDate;
-
-use strict;
-
-use Carp;
-use English;
-
-sub define {
-  my $package     = shift;
-  my $attribute   = shift;
-  my %params      = @_;
-
-  no strict 'refs';
-  *{ $package . '::' . $attribute . '_as_date' } = sub {
-    my ($self, $string) = @_;
-
-    if (@_ > 1) {
-      if ($string) {
-        my ($yy, $mm, $dd) = $::locale->parse_date(\%::myconfig, $string);
-        $self->$attribute(DateTime->new(year => $yy, month => $mm, day => $dd));
-      } else {
-        $self->$attribute(undef);
-      }
-    }
-
-    return $self->$attribute
-      ? $::locale->reformat_date(
-          { dateformat => 'yy-mm-dd' },
-          $self->${attribute}->ymd,
-          $::myconfig{dateformat}
-        )
-      : undef;
-  };
-
-  return 1;
-}
-
-1;
diff --git a/SL/DB/Helpers/AttrNumber.pm b/SL/DB/Helpers/AttrNumber.pm
deleted file mode 100644
index 6593fb708..000000000
--- a/SL/DB/Helpers/AttrNumber.pm
+++ /dev/null
@@ -1,27 +0,0 @@
-package SL::DB::Helpers::AttrNumber;
-
-use strict;
-
-use Carp;
-use English;
-
-sub define {
-  my $package     = shift;
-  my $attribute   = shift;
-  my %params      = @_;
-
-  $params{places} = 2 if !defined($params{places});
-
-  no strict 'refs';
-  *{ $package . '::' . $attribute . '_as_number' } = sub {
-    my ($self, $string) = @_;
-
-    $self->$attribute($::form->parse_amount(\%::myconfig, $string)) if @_ > 1;
-
-    return $::form->format_amount(\%::myconfig, $self->$attribute, $params{places});
-  };
-
-  return 1;
-}
-
-1;
diff --git a/SL/DB/Helpers/AttrPercent.pm b/SL/DB/Helpers/AttrPercent.pm
deleted file mode 100644
index e4c44ae90..000000000
--- a/SL/DB/Helpers/AttrPercent.pm
+++ /dev/null
@@ -1,27 +0,0 @@
-package SL::DB::Helpers::AttrPercent;
-
-use strict;
-
-use Carp;
-use English;
-
-sub define {
-  my $package     = shift;
-  my $attribute   = shift;
-  my %params      = @_;
-
-  $params{places} = 2 if !defined($params{places});
-
-  no strict 'refs';
-  *{ $package . '::' . $attribute . '_as_percent' } = sub {
-    my ($self, $string) = @_;
-
-    $self->$attribute($::form->parse_amount(\%::myconfig, $string) / 100) if @_ > 1;
-
-    return $::form->format_amount(\%::myconfig, 100 * $self->$attribute, $params{places});
-  };
-
-  return 1;
-}
-
-1;
diff --git a/SL/DB/Helpers/Metadata.pm b/SL/DB/Helpers/Metadata.pm
index 0c1f37419..30c59f428 100644
--- a/SL/DB/Helpers/Metadata.pm
+++ b/SL/DB/Helpers/Metadata.pm
@@ -15,4 +15,20 @@ sub default_manager_base_class {
   return 'SL::DB::Helpers::Manager';
 }
 
+sub initialize {
+  my $self = shift;
+  $self->make_attr_auto_helpers;
+  $self->SUPER::initialize(@_);
+}
+
+sub make_attr_helpers {
+  my ($self, %params) = @_;
+  SL::DB::Helper::Attr::make($self->class, %params);
+}
+
+sub make_attr_auto_helpers {
+  my ($self) = @_;
+  SL::DB::Helper::Attr::auto_make($self->class);
+}
+
 1;
diff --git a/SL/DB/Invoice.pm b/SL/DB/Invoice.pm
index cc488829f..993920c01 100644
--- a/SL/DB/Invoice.pm
+++ b/SL/DB/Invoice.pm
@@ -10,10 +10,6 @@ use List::Util qw(first);
 use SL::DB::MetaSetup::Invoice;
 use SL::DB::Manager::Invoice;
 
-__PACKAGE__->attr_number($_, places => -2) for qw(amount netamount paid  marge_total marge_percent taxamount);
-__PACKAGE__->attr_date($_) for qw(transdate gldate datepaid duedate deliverydate orddate quodate);
-__PACKAGE__->attr_percent($_) for qw(abschlag_percentage);
-
 __PACKAGE__->meta->add_relationship(
   invoiceitems => {
     type         => 'one to many',
@@ -59,4 +55,6 @@ sub taxamount {
   return $self->amount - $self->netamount;
 }
 
+__PACKAGE__->meta->make_attr_helpers(taxamount => 'numeric(15,5)');
+
 1;
diff --git a/SL/DB/InvoiceItem.pm b/SL/DB/InvoiceItem.pm
index 20afb033f..d8b39034d 100644
--- a/SL/DB/InvoiceItem.pm
+++ b/SL/DB/InvoiceItem.pm
@@ -4,13 +4,6 @@ use strict;
 
 use SL::DB::MetaSetup::InvoiceItem;
 
-for my $field (qw(
-  qty allocated sellprice fxsellprice discount base_qty marge_total
-  marge_percent lastcost price_factor marge_price_factor
-)) {
-  __PACKAGE__->attr_number($field, places => -2);
-}
-
 __PACKAGE__->meta->add_relationship(
   part => {
     type         => 'one to one',
diff --git a/SL/DB/Object.pm b/SL/DB/Object.pm
index f9508507e..f13851800 100644
--- a/SL/DB/Object.pm
+++ b/SL/DB/Object.pm
@@ -7,9 +7,7 @@ use Rose::DB::Object;
 use List::MoreUtils qw(any);
 
 use SL::DB;
-use SL::DB::Helpers::AttrNumber;
-use SL::DB::Helpers::AttrDate;
-use SL::DB::Helpers::AttrPercent;
+use SL::DB::Helpers::Attr;
 use SL::DB::Helpers::Metadata;
 use SL::DB::Helpers::Manager;
 
@@ -80,34 +78,6 @@ sub update_attributes {
   return $self;
 }
 
-sub make_attr_helper {
-  my ($self) = @_;
-  my $package = ref $self || $self;
-
-  for my $col ($package->meta->columns) {
-    next if $col->primary_key_position; # don't make attr helper for primary keys
-
-    attr_number ($package, $col->name, -2) if $col->type =~ /numeric | real | float/xi;
-    attr_percent($package, $col->name, -2) if $col->type =~ /numeric | real | float/xi;
-    attr_number ($package, $col->name,  0) if $col->type =~ /int/xi;
-    attr_date   ($package, $col->name)     if $col->type =~ /date | timestamp/xi;
-  }
-
-  return $self;
-}
-
-sub attr_number {
-  SL::DB::Helpers::AttrNumber::define(@_);
-}
-
-sub attr_date {
-  SL::DB::Helpers::AttrDate::define(@_);
-}
-
-sub attr_percent {
-  SL::DB::Helpers::AttrPercent::define(@_);
-}
-
 1;
 
 __END__
diff --git a/SL/DB/Order.pm b/SL/DB/Order.pm
index d71caae9a..2dd29c33a 100644
--- a/SL/DB/Order.pm
+++ b/SL/DB/Order.pm
@@ -8,10 +8,6 @@ use SL::DB::MetaSetup::Order;
 use SL::DB::Manager::Order;
 use SL::DB::Invoice;
 
-__PACKAGE__->attr_number($_, places => -2) for qw(amount netamount marge_total marge_percent);
-__PACKAGE__->attr_date($_) for qw(transdate reqdate);
-__PACKAGE__->attr_percent($_) for qw(marge_percent);
-
 __PACKAGE__->meta->add_relationship(
   orderitems => {
     type         => 'one to many',
diff --git a/SL/DB/Part.pm b/SL/DB/Part.pm
index 8c82e8a44..52b7520fa 100644
--- a/SL/DB/Part.pm
+++ b/SL/DB/Part.pm
@@ -7,10 +7,6 @@ use SL::DBUtils;
 use SL::DB::MetaSetup::Part;
 use SL::DB::Manager::Part;
 
-__PACKAGE__->attr_number('lastcost',  places => -2);
-__PACKAGE__->attr_number('listprice', places => -2);
-__PACKAGE__->attr_number('sellprice', places => -2);
-
 __PACKAGE__->meta->add_relationships(
   unit_obj                     => {
     type         => 'one to one',
diff --git a/SL/DB/PurchaseInvoice.pm b/SL/DB/PurchaseInvoice.pm
index a924b2e86..a06a3b639 100644
--- a/SL/DB/PurchaseInvoice.pm
+++ b/SL/DB/PurchaseInvoice.pm
@@ -5,10 +5,6 @@ use strict;
 use SL::DB::MetaSetup::PurchaseInvoice;
 use SL::DB::Manager::PurchaseInvoice;
 
-for my $field (qw(transdate gldate datepaid duedate orddate quodate)) {
-  __PACKAGE__->attr_date($field);
-}
-
 __PACKAGE__->meta->add_relationship(invoiceitems => { type         => 'one to many',
                                                       class        => 'SL::DB::InvoiceItem',
                                                       column_map   => { id => 'trans_id' },
diff --git a/t/helper/attr.t b/t/helper/attr.t
index 9f91865a4..4de1a53ff 100644
--- a/t/helper/attr.t
+++ b/t/helper/attr.t
@@ -1,9 +1,10 @@
-use Test::More tests => 25;
+use Test::More tests => 29;
 
 use DateTime;
 
 use_ok 'SL::DB::Part';
 use_ok 'SL::DB::Order';
+use_ok 'SL::DB::Invoice';
 use_ok 'SL::Dispatcher';
 
 SL::Dispatcher::pre_startup_setup();
@@ -30,11 +31,20 @@ is($o->reqdate_as_date, '11.12.2007');
 $o->reqdate(DateTime->new(year => 2010, month => 4, day => 12));
 is($o->reqdate_as_date, '12.04.2010');
 
-is($o->marge_percent_as_percent('40'), '40,00');
+is($o->marge_percent_as_percent('40'), '40');
 is($o->marge_percent, 0.40);
-is($o->marge_percent_as_percent, '40,00');
-is($o->marge_percent_as_percent('22,4'), '22,40');
+is($o->marge_percent_as_percent, '40');
+is($o->marge_percent_as_percent('22,4'), '22');
 is($o->marge_percent, 0.224);
-is($o->marge_percent_as_percent, '22,40');
+is($o->marge_percent_as_percent, '22');
 is($o->marge_percent(0.231), 0.231);
-is($o->marge_percent_as_percent, '23,10');
+is($o->marge_percent_as_percent, '23');
+
+# overloaded attr: invoice taxamount
+my $i = new_ok 'SL::DB::Invoice';
+
+is($i->taxamount_as_number, '0,00');
+$i->amount(12);
+$i->netamount(10.34);
+is($i->taxamount_as_number, '1,66');
+
-- 
2.20.1