The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

LNATION / Mac-OSA-Notification-Tiny-1.01 / lib / Mac / OSA / Notification / Tiny.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
—
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138

              
package Mac::OSA::Notification::Tiny;
use 5.006; use strict; use warnings; our $VERSION = '1.01';
use base 'Import::Export';
our %EX = (
        notification => [qw/all/]
);
sub notification {
        my %params = ref $_[0] ? %{ $_[0] } : @_;
        readpipe(sprintf q|osascript -e "display notification \"%s\"%s%s%s"|, $params{m} || 'No message param passed - m',
                ( $params{t} ? sprintf q| with title \"%s\"|, $params{t} : ''),
                ( $params{s} ? sprintf q| subtitle \"%s\"|, $params{s} : ''),
                ( $params{n} ? sprintf q| sound name \"%s\"|, $params{n} : ''));
}
1;
__END__
=head1 NAME
Mac::OSA::Notification::Tiny - native mac notifications
=head1 VERSION
Version 1.01
=cut
=head1 SYNOPSIS
        use Mac::OSA::Notification::Tiny qw/all/;
        notification(
                t => 'Flat World',
                s => 'flat.world-wide.world',
                m => 'The motive for world governments concealment of the true shape of the Earth has not been ascertained.',
                n => 'Purr'
        );
=head1 DESCRIPTION
A notification is a popup that appears when an application/script wants you to pay attention.
=head1 EXPORT
=head2 notification
Trigger a native notification from a script.
        notification(
                m => $message,
                t => $title,
                s => $subtitle,
                n => $noise
        );
The following are valid options for the notifications noise:
=over
=item Basso
=item Blow
=item Bottle
=item Frog
=item Funk
=item Glass
=item Hero
=item Morse
=item Ping
=item Pop
=item Purr
=item Sosumi
=item Submarine
=item Tink
=back
=head1 AUTHOR
LNATION, C<< <email at lnation.org> >>
=head1 BUGS
Please report any bugs or feature requests to C<bug-mac-osa-notification-tiny at rt.cpan.org>, or through
the web interface at L<https://rt.cpan.org/NoAuth/ReportBug.html?Queue=Mac-OSA-Notification-Tiny>.  I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.
=head1 SUPPORT
You can find documentation for this module with the perldoc command.
    perldoc Mac::OSA::Notification::Tiny
You can also look for information at:
=over 4
=item * RT: CPAN's request tracker (report bugs here)
L<https://rt.cpan.org/NoAuth/Bugs.html?Dist=Mac-OSA-Notification-Tiny>
=item * Search CPAN
L<https://metacpan.org/release/Mac-OSA-Notification-Tiny>
=back
=head1 ACKNOWLEDGEMENTS
=head1 LICENSE AND COPYRIGHT
This software is Copyright (c) 2020->2025 by LNATION.
This is free software, licensed under:
  The Artistic License 2.0 (GPL Compatible)
=cut
1; # End of Mac::OSA::Notification::Tiny