Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP

Comparing changes

Choose two branches to see what’s changed or to start a new pull request. If you need to, you can also compare across forks.

Open a pull request

Create a new pull request by comparing changes across two branches. If you need to, you can also compare across forks.
base fork: davorg/pushover
base: ed63ef03c6
...
head fork: davorg/pushover
compare: fe9c55ae4c
  • 2 commits
  • 1 file changed
  • 0 commit comments
  • 1 contributor
Showing with 20 additions and 0 deletions.
  1. +20 −0 message
View
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 );

No commit comments for this range

Something went wrong with that request. Please try again.