package T4::MyMod;

use base q(Exporter);
@EXPORT = qw( t_hello_world t_set_remote );

# use Data::Dumper qw(Dumper);

my $Href_Attr_Name_Env;
my $Href_Attr_Remote;

sub import {
  # print STDERR Dumper(@_);

  my $pkg        = shift;
  my $href_attr  = shift;

  $Href_Attr_Name_Env = $href_attr->{Href_Attr_Name_Env};
  $Href_Attr_Remote   = $href_attr->{Href_Attr_Remote};

  T4::MyMod->export_to_level(1, $pkg, @_);
}

  sub t_hello_world {
    my $self      = shift;
    my $idx_self  = ident $self;

    return qq(Hello World $idx_self);
  }

  sub t_set_remote {
    my $self      = shift;
    my $arg       = shift;
    my $idx_self  = ident $self;

    $Href_Attr_Remote->{ $idx_self } = $arg;

    return 1;
  }
1;