17 my $opentag = $config->{'moredata_opentag'} ? $config->{'moredata_opentag'} : ''; 18 die "MoreData requires an open tag: $!" unless ($opentag); 32 my $substrings_aref = _retrieve_strings($str, $opentag, $closetag, $dataname); 33 unless (scalar($substrings_aref)) { # no stringrefs returned 34 die "cannot extract substrings from string: $!"; 35 } 41 my $datasep_cfg = $config->{'moredata_datasep'}; 42 length($datasep_cfg) or die "The data separation string must be configured: $!"; 43 my $hashsep_cfg = $config->{'moredata_hashsep'} || ''; 44 length($hashsep_cfg) or die "The hash separation string must be configured: $!";