#!/usr/bin/perl
run sub {
	my $this=shift;
	$this->super(unprotected => 1, @_);
}
