Perl Error - Can't call method "session" on an undefined value

[manukm]

Please see the below code.

use strict;
use warnings;
use CGI;
use vars qw($a);
$a=new CGI;
use Catalyst qw/
    Session
    Session::Store::FastMmap
    Session::State::Cookie
    /;
    #@_=("1","2");
    my ( $self, $c ) = @_;
    print $c->session->{foo} = "bar";

The file named as session.pl. When I run the above code(session.pl) I got the errors as given below in the server error log file.

     1. Can't call method "session" on an undefined value at /var/www/
+birdbreeders/session.pl line 14

     2. Premature end of script headers: session.pl

Please someone help me to clear the error.

[NetWallah]

You will probably have to help yourself clear the error.

$c is being assigned a value from @_.

However, "@_" is not assigned a value.

@_ might me beaningful inside a subroutine (passed parameters), but your code does not show any "sub", so @_ is empty, and perl's complaint is reasonable, since $c does not contain any value (it is undef).

Your intentions for this code have not been expressed , and the code provided does not offer any clues, so we will not be able to assist.

[manukm]

Actually I was trying to set session using catalyst perl.

[Anonymous Monk]

Um, delete that file, and forget that it exists, and read the catalyst tutorial