Select Code to Download

my $context = $file->open_for_reading( {} );

...

# this should fail
my $context_derived = $file->open_for_reading( { 'join_longcalls' => 1
+ } );

package MyBaseClass;

...
    }
    return $context;
}

package MyBaseClass;

...
        'join_longcalls' => 0,
    };
}

sub method {
    my $this = shift;
...
    $this->do_something_which_can_be_overriden_in_subclasses();
    $this->do_some_cleanup;
}