This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
print('key is: ', $key, "\n") for(keys(%hash)); |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
print "key is: $_" for keys %hash; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
foreach my $key keys %hash { | |
print "key is: $key\n"; | |
} |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
use Mojolicious::Lite; | |
use Try::Tiny; | |
plugin 'disqus', { 'api_secret' => 'getyourownsecretplease', pass_api_errors => 1 }; | |
# This, of course, is total and utter overkill for something like this, | |
# but I figured if I'm going to write demonstration code, might as well | |
# go the whole hog. | |
plugin 'mongodb', { 'database' => 'disqusbridge' }; |
NewerOlder