sub foo {
    my $self = shift;
    my %args = @_;

    do_something() if $args{jam_on_it};
}