use $class instead of $self for class methods

plicease · plicease · commit 342975df0f61 · 2025-08-04T13:41:51.000-06:00
diff --git a/lib/Test/Script.pm b/lib/Test/Script.pm
@@ -82,7 +82,7 @@ our @EXPORT  = qw{
 };
 
 sub import {
-  my $self = shift;
+  my $class = shift;
   my $pack = caller;
   if(defined $_[0] && $_[0] =~ /^(?:no_plan|skip_all|tests)$/)
   {
@@ -104,7 +104,7 @@ sub import {
     $ctx->release;
   }
   foreach ( @EXPORT ) {
-    $self->export_to_level(1, $self, $_);
+    $class->export_to_level(1, $class, $_);
   }
 }
 

Original file line number	Diff line number	Diff line change
`@@ -82,7 +82,7 @@ our @EXPORT = qw{`
`82`	`82`	`};`
`83`	`83`
`84`	`84`	`sub import {`
`85`		`- my $self = shift;`
	`85`	`+ my $class = shift;`
`86`	`86`	`my $pack = caller;`
`87`	`87`	`if(defined $_[0] && $_[0] =~ /^(?:no_plan\|skip_all\|tests)$/)`
`88`	`88`	`{`
`@@ -104,7 +104,7 @@ sub import {`
`104`	`104`	`$ctx->release;`
`105`	`105`	`}`
`106`	`106`	`foreach ( @EXPORT ) {`
`107`		`- $self->export_to_level(1, $self, $_);`
	`107`	`+ $class->export_to_level(1, $class, $_);`
`108`	`108`	`}`
`109`	`109`	`}`
`110`	`110`