sub fold {
    my $self = shift;
    my %options = @_;
    if ($options{-style} eq 'prion') {
        # ...
    }
}