use strict;
+use List::MoreUtils qw(any);
+
use SL::DB::MetaSetup::CustomVariableConfig;
use SL::DB::Manager::CustomVariableConfig;
use SL::DB::Helper::ActsAsList;
return $self->processed_flags()->{$flag};
}
+sub type_dependant_default_value {
+ my ($self) = @_;
+
+ return $self->default_value if $self->type ne 'select';
+ return (any { $_ eq $self->default_value } @{ $self->processed_options }) ? $self->default_value : $self->processed_options->[0];
+}
+
1;