lib/SGN/View/ArrayElements.pm

   1 package SGN::View::ArrayElements;
   2 use base 'Exporter';
   3 use strict;
   4 use warnings;
   5
   6 our @EXPORT_OK = qw/
   7     array_elements_simple_view
   8 /;
   9 our @EXPORT = ();
  10
  11 sub array_elements_simple_view {
  12   my $array_ref = shift;
  13   my @elements = @{$array_ref};
  14   my $array_elements_simple_html;
  15   foreach my $element (@elements) {
  16     $array_elements_simple_html .= $element."<br>";
  17   }
  18   return $array_elements_simple_html;
  19 }
  20
  21 ######
  22 1;
  23 ######