File::HomeDir methods my_dist_data and my_dist

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

<meta http-equiv="Content-type" content="text/html;charset=cswindows1252">

Hello good monks. I am trying to manage data associated with perl programs and these subroutines from File::HomeDir would seem to be a good starting place, but they do nothing (I am running StrawberryPerl on Windows 10). They return "undefined".

Both subs rely on my_data which looks like this:

sub my_data
{
    $IMPLEMENTED_BY->can('my_data')
      ? $IMPLEMENTED_BY->my_data
      : Carp::croak("The my_data method is not implemented on this pla
+tform");
}
[download]

I'd expect that if not implemented, the code would croak, which it does not do. Can anyone shed light on this module? Thanks in advance.

[localtime:// PUT ISO-8601 TIME HERE followed by UTC]

Examine what is said, not who speaks.
Love the truth but pardon error.
Silence betokens consent.
In the absence of evidence, opinion is indistinguishable from prejudice.

Comment on File::HomeDir methods my_dist_data and my_dist_config do nothing on Win32 Select or Download Code

Replies are listed 'Best First'.
Re: File::HomeDir methods my_dist_data and my_dist_config do nothing on Win32 by swl (Prior) on Apr 07, 2021 at 23:07 UTC
Works fine for me. `perl -MFile::HomeDir -E"say File::HomeDir->my_data" C:\berrybrew\5.28.0_64_PDL\data` [download] Note that on Windows it calls the method from File::HomeDir::Windows: https://metacpan.org/source/REHSACK/File-HomeDir-1.006/lib%2FFile%2FHomeDir%2FWindows.pm#L105. This would be something to look into. Platform specific methods are set up at https://metacpan.org/source/REHSACK/File-HomeDir-1.006/lib%2FFile%2FHomeDir.pm#L57. Have you modified its `$IMPLEMENTED_BY` variable to change the methods called?	[reply] [d/l] [select]
Re: File::HomeDir methods my_dist_data and my_dist_config do nothing on Win32 by Discipulus (Canon) on Apr 08, 2021 at 10:49 UTC
Hello Intrepid, I read in the docs: > Returns the directory path as a string, undef if the current user does not have a data directory, or dies on error. I get the same result as swl but I suspect both are running portable edition of strawberry so we dont get `For example, on Unix you get ~/.foo and on Win32 you get ~/Local Settings/Application Data/.foo` as the docs says. `perl -MFile::HomeDir -E"say File::HomeDir->my_data" C:\EX_D\ulisseDUE\perl5.26.64bit\data` [download] L* There are no rules, there are no thumbs.. Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.	[reply] [d/l] [select]
Re^2: File::HomeDir methods my_dist_data and my_dist_config do nothing on Win32 by Intrepid (Curate) on Apr 08, 2021 at 19:22 UTC
Thanks Discipulus and swl. I am not running the portable edition of StrawberryPerl. I have not modified $IMPLEMENTED_BY (swl). Well, I guess I'll keep poking at it (looking at the code). Examine what is said, not who speaks. Love the truth but pardon error. Silence betokens consent. In the absence of evidence, opinion is indistinguishable from prejudice.	[reply]