Advertisement
Guest User

Untitled

a guest
Dec 11th, 2011
27
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.55 KB | None | 0 0
  1.  
  2. 37.
  3. #my $config = plugin 'Config';
  4. 38.
  5. #my $config => {default => {foo => 'bar'}};
  6. 39.
  7. #my $config => {stash_key => 'conf'};
  8. 40.
  9. get '/' => sub {
  10. 41.
  11. my $self = shift;
  12. 42.
  13. $self->config('nick') = $self->param('nick') || "guest$$";
  14. 43.
  15. $self->config('user') = $self->param('user') || "guest$$";
  16. 44.
  17. $self->config('real') = $self->param('real') || "guest$$";
  18. 45.
  19. $self->config('channel') = $self->param('channel') || '#maxson';
  20. 46.
  21. $self->stash(nick => $self->config('nick'));
  22. 47.
  23. $self->stash(user => $self->config('user'));
  24.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement