Re^2: Converting Hashes to Objects

in reply to Re: Converting Hashes to Objects
in thread Converting Hashes to Objects

does this differ from Hash::AsObject

Yes, since that uses AUTOLOAD, which means it doesn't provide full typo prevention:

use Hash::AsObject;
my $h = Hash::AsObject->new( foo => "bar" );
print $h->fOo, "\n";  # warning about undef

use Util::H2O;
my $o = h2o { foo => "bar" };
print $o->fOo, "\n";  # dies
[download]

Plus Util::H2O has the extra goodies like custom methods that I wrote about.

Comment on Re^2: Converting Hashes to Objects Select or Download Code

Replies are listed 'Best First'.
Re^3: Converting Hashes to Objects by 1nickt (Canon) on May 17, 2020 at 16:39 UTC
Interesting, thanks! I noticed after your reply that it's not possible to use Hash::AsObject with L in one-liners (which I hadn't tried, I think); I imagine because of dueling `AUTOLOAD` trickery. `$ perl -ML -wE 'my $h = Hash::AsObject->new( foo => "bar" ); say $h->f +oo' Can't locate foo.pm in @INC (you may need to install the foo module)` [download] 😞 I am usually under `strictures(2)` to catch typos, so it's not usually a feature I need in packages: `$ perl -MHash::AsObject -wE 'my $h = Hash::AsObject->new( foo => "bar" + ); say $h->f0o; say 42' Use of uninitialized value in say at -e line 1. 42` [download] `$ perl -MHash::AsObject -Mstrictures=2,1 -wE 'my $h = Hash::AsObject-> +new( foo => "bar" ); say $h->f0o; say 42' Use of uninitialized value in say at -e line 1.` [download] Thanks! The way forward always starts with a minimal test.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: Converting Hashes to Objects
by 1nickt (Canon) on May 17, 2020 at 16:39 UTC

Interesting, thanks! I noticed after your reply that it's not possible to use Hash::AsObject with L in one-liners (which I hadn't tried, I think); I imagine because of dueling AUTOLOAD trickery.

$ perl -ML -wE 'my $h = Hash::AsObject->new( foo => "bar" ); say $h->f
+oo'

Can't locate foo.pm in @INC (you may need to install the foo module)
[download]

😞

I am usually under strictures(2) to catch typos, so it's not usually a feature I need in packages:

$ perl -MHash::AsObject -wE 'my $h = Hash::AsObject->new( foo => "bar"
+ ); say $h->f0o; say 42'

Use of uninitialized value in say at -e line 1.

42
[download]

$ perl -MHash::AsObject -Mstrictures=2,1 -wE 'my $h = Hash::AsObject->
+new( foo => "bar" ); say $h->f0o; say 42'

Use of uninitialized value in say at -e line 1.
[download]

Thanks!

The way forward always starts with a minimal test.

[reply]
[d/l]
[select]

In Section Meditations