diff options
author | Jesse Luehrs <doy@tozt.net> | 2009-10-31 16:05:11 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2009-10-31 16:05:11 -0500 |
commit | cceeacee1d59a40b903df1c87f0aaf2ff9565093 (patch) | |
tree | 43cf0805935739ccd89a573f50c82888b2ef267d | |
parent | e6e79317f730a6b4bf2be04f649750b230ed62b1 (diff) | |
download | im-engine-plugin-commands-cceeacee1d59a40b903df1c87f0aaf2ff9565093.tar.gz im-engine-plugin-commands-cceeacee1d59a40b903df1c87f0aaf2ff9565093.zip |
avoid another undef warning
-rw-r--r-- | lib/IM/Engine/Plugin/Commands/Trait/Method/Formatted.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/IM/Engine/Plugin/Commands/Trait/Method/Formatted.pm b/lib/IM/Engine/Plugin/Commands/Trait/Method/Formatted.pm index 82dcd04..adef334 100644 --- a/lib/IM/Engine/Plugin/Commands/Trait/Method/Formatted.pm +++ b/lib/IM/Engine/Plugin/Commands/Trait/Method/Formatted.pm @@ -14,7 +14,7 @@ has formatter => ( sub _munge_formatter { my $self = shift; my ($format) = @_; - return $format if reftype($format) eq 'CODE'; + return $format if defined(reftype($format)) && reftype($format) eq 'CODE'; return $self->associated_metaclass->formatter_for($format); } |