[Dancer-users] Very strange error

[igor.bujna at post.cz]

what you say about this line : 
if ( exists(params->{'username'}) && params->{'username'} ne setting('username') ) { 

> ------------ Původní zpráva ------------
> Od: Anton Ukolov <sugar.61rus at gmail.com>
> Předmět: [Dancer-users] Very strange error
> Datum: 17.11.2010 11:46:05
> ----------------------------------------
> Hi, guys!
> 
> First, I want to say 'thanks' for this beautiful framework! Good job, guys!
> 
> And second.
> I have started to learn about this tool. I found good beginner's reference:
> https://github.com/sukria/Dancer/blob/master/lib/Dancer/Tutorial.pod
> 
> I understand that this is  beta version of a tutorial, because it contains
> several non-critical mistakes. But in the snippet, that lies bottom, I have
> discovered some strange error. Then I start app, and try to post login and
> passw in my browser, I get Runtime error, in first case:
> 
> Not a CODE reference at ./dancr.pl line 113, <DATA> line 16.
> 
> and in other cases:
> 
> Not a CODE reference at ./dancr.pl line 113
> 
> I tried other variations, but nothings worked... I tried to replace
> the "params->{'username'}" and "setting('username')"
> with plain scalars (like 'admin' and 'admin'), but I got same error at
> the same line.
> 
> Help my please, I don't know really what is it. Is this my error? Or
> is it some bug?
> 
> <code>
> 
> 108  any ['get', 'post'] => '/login' => sub {
> 109  my $err;
> 110
> 111    if ( request->method() eq "POST" ) {
> 112    # process form input
> 113      if ( params->{'username'} ne setting('username') ) { # << error is
> here
> 114        $err = "Invalid username";
> 115      }
> 116      elsif ( params->{'password'} ne setting('password') ) {
> 117        $err = "Invalid password";
> 118      }
> 119      else {
> 120        session 'logged_in' => true;
> 121        set_flash('You are logged in.');
> 122        redirect '/';
> 123      }
> 124    }
> 125
> 126    # display login form
> 127    template 'login.tt', {
> 128    'err' => $err,
> 129  };
> 130};
> </code>
> 
> p.s. perl's version is 5.8.9, OS is Linux
> 
> best regards,
> Anton Ukolov
> 
> 
>