Select Code to Download

sub search
{
...
 return $result;
}

#!/usr/bin/perl
use strict;
...
 
 return \@resultset;
}

sub auth
{
...
  
  return ($username, $userid, $staff); 
}

sub get_session_from_user
{
...
 $class->{session}=$s;     
 return 1;
}

package CGI::Session::Driver::sweet;

...
    return 1;
}