Make sure we keep working with Devel::CallParser loaded

t/devel_callparser.t

@@ -0,0 +1,33 @@
+use warnings;
+use strict;
+
+BEGIN {
+	eval { require Devel::CallParser };
+	if($@ ne "") {
+		require Test::More;
+		Test::More::plan(skip_all => "Devel::CallParser unavailable");
+	}
+}
+
+use Test::More tests => 1;
+
+use Devel::CallParser ();
+
+sub method {
+	my ($usepack, $name, $inpack, $sub) = @_;
+	no strict "refs";
+	*{"${inpack}::${name}"} = $sub;
+}
+
+use Devel::Declare method => sub {
+	my ($usepack, $use, $inpack, $name) = @_;
+	return sub (&) { ($usepack, $name, $inpack, $_[0]); };
+};
+
+method bar {
+	return join(",", @_);
+};
+
+is +__PACKAGE__->bar(qw(x y)), "main,x,y";
+
+1;