method get ($key) {
return $self->{$key};
}
-
+
method no_proto {
return($self, @_);
}
-
+
method empty_proto() {
return($self, @_);
}
-
+
method echo(@_) {
return($self, @_);
}
-
+
method caller($height = 0) {
return (CORE::caller($height))[0..2];
}
my $warning = '';
local $SIG{__WARN__} = sub { $warning = join '', @_; };
CORE::warn "Testing warn";
-
+
return $warning;
}
# Method with the same name as a loaded class.
method strict () {
- 42
+ 42
}
}