From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

ELLIOTJS / Perl-Critic-1.097_002 / inc / Devel / AssertOS / Sun.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13

              
# $Id: Sun.pm,v 1.2 2007/09/28 14:35:08 drhyde Exp $
package Devel::AssertOS::Sun;
use Devel::CheckOS qw(die_unsupported);
$VERSION = '1.0';
sub os_is { $^O =~ /^(sunos|solaris)$/ ? 1 : 0; }
die_unsupported() unless(os_is());
1;