123456789101112131415 #!/usr/bin/env perluse strict;use warnings;use FindBin;use lib "$FindBin::Bin/../lib";use WebService::ImKayac::Simple;my $im = WebService::ImKayac::Simple->new( type => 'password', user => '__USER_NAME__', password => '__PASSWORD__',);$im->send('Hello!');
#!/usr/bin/env perl
use
strict;
warnings;
FindBin;
lib
"$FindBin::Bin/../lib"
;
WebService::ImKayac::Simple;
my
$im
= WebService::ImKayac::Simple->new(
type
=>
'password'
,
user
'__USER_NAME__'
password
'__PASSWORD__'
);
->
send
(
'Hello!'