SF.net SVN: ledger-smb:[5470] trunk

[..hidden..]

Revision: 5470
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=5470&view=rev
Author:   einhverfr
Date:     2013-01-04 08:28:16 +0000 (Fri, 04 Jan 2013)
Log Message:
-----------
fixing some pod coverage test errors and removing broken, undocumented, new, and usused User->dateformat which somehow returns ->{language}

Modified Paths:
--------------
    trunk/LedgerSMB/Entity/Company.pm
    trunk/LedgerSMB/Entity/Credit_Account.pm
    trunk/LedgerSMB/User.pm
    trunk/t/98-pod-coverage.t

Modified: trunk/LedgerSMB/Entity/Company.pm
===================================================================
--- trunk/LedgerSMB/Entity/Company.pm	2013-01-04 08:03:16 UTC (rev 5469)
+++ trunk/LedgerSMB/Entity/Company.pm	2013-01-04 08:28:16 UTC (rev 5470)
@@ -39,7 +39,7 @@
 
 =cut
 
-has 'legal_name' => (is => 'rw', isa => 'Str', requird => 0);
+has 'legal_name' => (is => 'rw', isa => 'Str', required => 0);
 
 =item tax_id
 

Modified: trunk/LedgerSMB/Entity/Credit_Account.pm
===================================================================
--- trunk/LedgerSMB/Entity/Credit_Account.pm	2013-01-04 08:03:16 UTC (rev 5469)
+++ trunk/LedgerSMB/Entity/Credit_Account.pm	2013-01-04 08:28:16 UTC (rev 5470)
@@ -184,7 +184,7 @@
 
 =cut
 
-has 'curr' => (is => 'ro', isa => 'Str', requird => 1);
+has 'curr' => (is => 'ro', isa => 'Str', required => 1);
 
 =item startdate
 

Modified: trunk/LedgerSMB/User.pm
===================================================================
--- trunk/LedgerSMB/User.pm	2013-01-04 08:03:16 UTC (rev 5469)
+++ trunk/LedgerSMB/User.pm	2013-01-04 08:28:16 UTC (rev 5470)
@@ -63,10 +63,6 @@
 
 my $logger = Log::Log4perl->get_logger('LedgerSMB::User');
 
-sub dateformat {
-    my ($self) = @_;
-    return $self->{language};
-}
 
 =item LedgerSMB::User->new($login);
 

Modified: trunk/t/98-pod-coverage.t
===================================================================
--- trunk/t/98-pod-coverage.t	2013-01-04 08:03:16 UTC (rev 5469)
+++ trunk/t/98-pod-coverage.t	2013-01-04 08:28:16 UTC (rev 5470)
@@ -31,7 +31,6 @@
 pod_coverage_ok("LedgerSMB::User");
 pod_coverage_ok("LedgerSMB::DBObject::Date");
 pod_coverage_ok("LedgerSMB::DBObject::Draft");
-pod_coverage_ok("LedgerSMB::DBObject::Company");
 pod_coverage_ok("LedgerSMB::Company_Config");
 pod_coverage_ok("LedgerSMB::DBObject::Admin");
 pod_coverage_ok("LedgerSMB::Scripts::contact");

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.