Guest User

Untitled

a guest
Oct 2nd, 2015
243
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 6 1.03 KB | None | 0 0
  1.  sub fromDB(Int $id) returns Story is export {
  2.      say $selectstory_req.execute($id);
  3.      say $selectstory_req.can('column_names');
  4.      my $hashref = $selectstory_req.fetchrow_hashref();
  5.      say $hashref.elems;
  6.      for $hashref.kv -> $key, $value {
  7.        say $key;
  8.        say $value.WHAT ~ ": $value"; # (line 78)
  9.      }
  10.      my %hash = %($hashref);
  11.      say %hash.perl; # line 81
  12.      my Story $story = Story.new(|@($hashref));
  13.      say $story.perl;
  14.      
  15.      return $story;
  16.   }
  17.  
  18. Use of uninitialized value of type str in string context  in block  at /root/piko/StoryFactory.pm6:78
  19. : 181476
  20. rating
  21. Use of uninitialized value of type str in string context  in block  at /root/piko/StoryFactory.pm6:78
  22. : T
  23. url
  24. Use of uninitialized value of type str in string context  in block  at /root/piko/StoryFactory.pm6:78
  25. : http://www.fimfiction.net/story/230097/crystals-wishes
  26. This representation (P6str) does not support attribute storage
  27.   in sub fromDB at /root/piko/StoryFactory.pm6:81
  28.   in block <unit> at getstory.p6:6
Advertisement
Add Comment
Please, Sign In to add comment