Don't reimplement perl's built-in default behaviour

[dbsrgits/SQL-Translator.git] / lib / SQL / Translator / Schema / Role / Extra.pm

diff --git a/lib/SQL/Translator/Schema/Role/Extra.pm b/lib/SQL/Translator/Schema/Role/Extra.pm
index f87fd86..1dfd7a1 100644 (file)
--- a/lib/SQL/Translator/Schema/Role/Extra.pm
+++ b/lib/SQL/Translator/Schema/Role/Extra.pm
@@ -49,7 +49,7 @@ around extra => sub {
     my $extra = $self->$orig;
 
     if (@_==1) {
-        return exists($extra->{$_[0]}) ? $extra->{$_[0]} : undef ;
+        return $extra->{$_[0]};
     }
     elsif (@_) {
         my %args = @_;