sub generally_useful {
    my $class = shift;
    # ...
}

##</code><code>##

sub instance_meth {
    my $self = shift;
    my $class = ref $self;
}