[Bps-public-commit] r19068 - Net-Trac/trunk/lib/Net/Trac

[jesse at bestpractical.com]

Author: jesse
Date: Mon Apr  6 20:33:48 2009
New Revision: 19068

Modified:
   Net-Trac/trunk/lib/Net/Trac/Connection.pm
   Net-Trac/trunk/lib/Net/Trac/Ticket.pm

Log:
* Removed the forced fetching of ticket create properties unless you ask for them.

Modified: Net-Trac/trunk/lib/Net/Trac/Connection.pm
==============================================================================
--- Net-Trac/trunk/lib/Net/Trac/Connection.pm	(original)
+++ Net-Trac/trunk/lib/Net/Trac/Connection.pm	Mon Apr  6 20:33:48 2009
@@ -151,7 +151,7 @@
     my $abs_url = $self->url . $query;
     $self->mech->get($abs_url);
 
-    if ( $self->_warn_on_error($abs_url) ) { warn "FAIL"; return }
+    if ( $self->_warn_on_error($abs_url) ) { warn "Failed to fetch $abs_url"; return }
     else { return $self->mech->content }
 }
 

Modified: Net-Trac/trunk/lib/Net/Trac/Ticket.pm
==============================================================================
--- Net-Trac/trunk/lib/Net/Trac/Ticket.pm	(original)
+++ Net-Trac/trunk/lib/Net/Trac/Ticket.pm	Mon Apr  6 20:33:48 2009
@@ -113,11 +113,6 @@
     }
 }
 
-sub BUILD {
-    my $self = shift;
-    $self->_fetch_new_ticket_metadata unless ($LOADED_NEW_METADATA);
-}
-
 =head1 METHODS
 
 =head2 new HASH