Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Perl code to send a message to Pushover.

  • Loading branch information...
commit ea643f555469a4ebb4d9481401c192c3d3ab9538 0 parents
Dave Cross authored
Showing with 20 additions and 0 deletions.
  1. +20 −0 message
20 message
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use 5.010;
+
+use WebService::Pushover;
+use Data::Dumper;
+
+my $push = WebService::Pushover->new
+ or die( "Unable to instantiate WebService::Pushover.\n" );
+
+my %params = (
+ token => $ENV{PUSHOVER_APP},
+ user => $ENV{PUSHOVER_USER},
+ title => 'Pushover from Perl',
+ message => shift || 'Test message',
+);
+
+say Dumper $push->message( %params );
Please sign in to comment.
Something went wrong with that request. Please try again.