diff options
author | Toby Inkster <mail@tobyinkster.co.uk> | 2022-09-07 19:30:00 +0100 |
---|---|---|
committer | Toby Inkster <mail@tobyinkster.co.uk> | 2022-09-07 19:30:00 +0100 |
commit | 0acffbb4f123846f71b93c75da497ea1234ac2d3 (patch) | |
tree | e1335fe624df520013a138e395fedd0fc4d21e1c /lib/Type/Params | |
parent | f833771df4eaade3af2c2cd45c0d2efa9a278f4b (diff) |
Don't use //= because it doesn't work in Perl 5.8.x
Diffstat (limited to 'lib/Type/Params')
-rw-r--r-- | lib/Type/Params/Signature.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Type/Params/Signature.pm b/lib/Type/Params/Signature.pm index 267b2078..cd732e2d 100644 --- a/lib/Type/Params/Signature.pm +++ b/lib/Type/Params/Signature.pm @@ -231,7 +231,7 @@ sub constructor { $_[0]{constructor} } sub named_to_list { $_[0]{named_to_list} } sub oo_trace { $_[0]{oo_trace} } -sub method_invocant { $_[0]{method_invocant} //= 'undef' } +sub method_invocant { $_[0]{method_invocant} = defined( $_[0]{method_invocant} ) ? $_[0]{method_invocant} : 'undef' } sub can_shortcut { return $_[0]{can_shortcut} |