Select Code to Download

sub TIESCALAR { bless \(my $foo = pop), shift; }
sub STORE { ${ +shift } = pop }
...
    my ($self, %options) = @_;
    ...
}

# Bad
sub foo {
...
    my $bar = shift;
    ...
}