Re^2: what type of dsc is this

Suggestion, it's even more helpful if you put the passed arguments into $stuff. :)

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery
FootballPerl is like chess, only without the dice}

Comment on Re^2: what type of dsc is this

Replies are listed 'Best First'.
Re^3: what type of dsc is this by dbuckhal (Chaplain) on Oct 09, 2018 at 03:00 UTC
I thought of that, but did not in order to leave my references empty, similar to the OP's. But, if you insist. :) `perl -Mstrict -MData::Dumper -we ' package Test; sub new { my $class = shift; my $stuff = { shift() => 1}; bless $stuff, $class; return $stuff; } package Main; my $t = [ Test->new("foo"), Test->new("bar"), Test->new("baz"), ]; print "Ref: " . ref($t) . "\n"; print Data::Dumper->Dump([$t], ["for_LanX"]) . "\n"; ' __output__ Ref: ARRAY $for_LanX = [ bless( { 'foo' => 1 }, 'Test' ), bless( { 'bar' => 1 }, 'Test' ), bless( { 'baz' => 1 }, 'Test' ) ];` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: what type of dsc is this
by dbuckhal (Chaplain) on Oct 09, 2018 at 03:00 UTC

I thought of that, but did not in order to leave my references empty, similar to the OP's. But, if you insist. :)

perl -Mstrict -MData::Dumper -we '
package Test;
  sub new {
    my $class = shift;
    my $stuff = { shift() => 1};        
    bless $stuff, $class;
    return $stuff;
 }
package Main;
  my $t = [
    Test->new("foo"),
    Test->new("bar"),
    Test->new("baz"),
  ];
  print "Ref: " . ref($t) . "\n";
  print Data::Dumper->Dump([$t], ["for_LanX"]) . "\n";
'

__output__
Ref: ARRAY
$for_LanX = [
              bless( {
                       'foo' => 1
                     }, 'Test' ),
              bless( {
                       'bar' => 1
                     }, 'Test' ),
              bless( {
                       'baz' => 1
                     }, 'Test' )
            ];
[download]

[reply]
[d/l]