--- /dev/null
+# $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;