sub get_all_types {
my ($class, $vc) = @_;
- [ map { [ $_, $types{$_}{description} ] } grep { $types{$_}{$vc} } map { $_ } @types ];
+ $vc
+ ? [ map { [ $_, $types{$_}{description} ] } grep { $types{$_}{$vc} } map { $_ } @types ]
+ : [ map { [ $_, $types{$_}{description} ] } map { $_ } @types ]
}
sub get_type {