The Temp:: is a trap - Temp.pm would need to reside in a folder called Temp dangling off the @INC path somewhere.

Code that works and looks somewhat like that which you posted is:

#!/usr/bin/perl
use strict;

package Tool;

sub new{
    print "test";
}

1;

package main;

my $page = 'module';
my $obj;

my %states = (
    module => sub {Tool->new ()},
);

if ($states{$page}){    
    $obj = $states{$page}->();    
}
[download]

Prints:

test
[download]

Update per chromatic's suggestion

That breaks inheritance. You oughtn't assume anything about how Tool gets or implements new(). I suggest instead:

my %states =
(
    module => sub { Tool->new( @_ ) },
);
[download]

Just to explain the required change:

\&function returns a reference to function function. Temp::Tool->new is not a function — it's a Perl expression — so \& can't be used. sub { ... } creates an (anonymous) function and returns a reference to it. All you have to do is to create a small function which executes your Perl expression.

That trick can be used even if you have arguments, thanks to closures. For example,

my $func;

{
   my  $arg1 = 'Hello';
   $func = sub {
      my ($arg2) = @_;
      print("$arg1 $arg2\n");
   }
}

{
   my $arg1 = 'Goodbye';
   $func->('World');
}
[download]

Hello World
[download]

Lexical (my) variables are captured when sub is executed, and arguments can still be passed in as a normal function.