(scalar or array context|new|decorated) function for Data::Section::Simple?

metaperl has asked for the wisdom of the Perl Monks concerning the following question:

Data::Section::Simple has a single function which returns a part of a DATA section as a string. I'm using this module in Locale::US as well as Regexp::Common::profanity_us. However, in both cases, I've needed to take the string of data and convert it into a series of lines:

my $data = Data::Section::Simple::get_data_section('profanity');
my @line = split "\n", $data;
[download]

So I'm thinking it would be nice to be able to get the section back as an array of lines. However, there are two approaches to this, ok 3:

add an argument to get_data_section indicating to return an array of lines
write a separate function get_data_section_as_lines
have this single function operate in scalar or array context

What is the "best" option from a software engineering point of view?

Comment on (scalar or array context\|new\|decorated) function for Data::Section::Simple? Select or Download Code

Replies are listed 'Best First'.
Re: (scalar or array context\|new\|decorated) function for Data::Section::Simple? by jethro (Monsignor) on Aug 03, 2011 at 17:40 UTC
IMHO (and since software engineering is such a squichy science it is important to note that this is only an opinion) your third option is more error prone than the other two options. It would be different if most libraries did use the same technique, but in perl only the builtin functions use it extensively. So everyone knows to be careful about context when using builtins but the same can't be said about CPAN library functions. I would prefer option 2, especially if the conversion is more complex than a simple split.	[reply]
Re: (scalar or array context\|new\|decorated) function for Data::Section::Simple? by Perlbotics (Archbishop) on Aug 03, 2011 at 17:19 UTC
I would suggest to use wantarray. Perhaps: `sub my_get_data_section { my $section = shift; my $data = Data::Section::Simple::get_data_section($section); # probably error handling here... return wantarray ? split("\n", $data) : $data; } my $line = my_get_data_section( $section ); my @lines = my_get_data_section( $section );` [download] You could also ask the author to support this feature. Another option would be to overwrite `Data::Section::Simple::get_data_section()` with the implementation of `my_get_data_section()`, but that trick is probably quite dirty from a software engineering point of view...	[reply] [d/l] [select]


There's more than one way to do things
	PerlMonks