From: Kartik Thakore <thakore.kartik@gmail.com>
Date: Sun, 27 Sep 2009 19:03:37 +0000 (-0400)
Subject: Cleanup Carp
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f193ea4b591f557fe8681071962068024a8a7adb;p=sdlgit%2FSDL_perl.git

Cleanup Carp
---

diff --git a/lib/SDL/Game/Rect.pm b/lib/SDL/Game/Rect.pm
index 63213d7..19fb2ec 100644
--- a/lib/SDL/Game/Rect.pm
+++ b/lib/SDL/Game/Rect.pm
@@ -1,7 +1,7 @@
 package SDL::Game::Rect;
 use strict;
 use warnings;
-
+use Carp;
 use base 'SDL::Rect';
 
 our $VERSION = '0.01';
@@ -15,8 +15,8 @@ sub new {
 
     my $self = $class->SUPER::new($x, $y, $w, $h);
     unless ($$self) {
-        require Carp;
-        Carp::croak SDL::GetError();
+        #require Carp;
+        croak SDL::GetError();
     }
     bless $self, $class;
     return $self;
@@ -226,8 +226,8 @@ sub copy {
 sub move {
     my ($self, $x, $y) = (@_);
     if (not defined $x or not defined $y) {
-        require Carp;
-        Carp::croak "must receive x and y positions as argument";
+        #require Carp;
+        croak "must receive x and y positions as argument";
     }
     return $self->new(
         -top    => $self->top + $y,
@@ -240,8 +240,8 @@ sub move {
 sub move_ip {
     my ($self, $x, $y) = (@_);
     if (not defined $x or not defined $y) {
-        require Carp;
-        Carp::croak "must receive x and y positions as argument";
+        #require Carp;
+        croak "must receive x and y positions as argument";
     }
     $self->x($self->x + $x);
     $self->y($self->y + $y);
@@ -252,8 +252,8 @@ sub move_ip {
 sub inflate {
     my ($self, $x, $y) = (@_);
     if (not defined $x or not defined $y) {
-        require Carp;
-        Carp::croak "must receive x and y positions as argument";
+        #require Carp;
+        croak "must receive x and y positions as argument";
     }
     
     return $self->new(
@@ -267,8 +267,8 @@ sub inflate {
 sub inflate_ip {
     my ($self, $x, $y) = (@_);
     if (not defined $x or not defined $y) {
-        require Carp;
-        Carp::croak "must receive x and y positions as argument";
+        #require Carp;
+        croak "must receive x and y positions as argument";
     }
     
     $self->x( $self->x - ($x / 2) );