File: custom.pm

package info (click to toggle)
libmojo-ioloop-readwriteprocess-perl 1.1.0-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 540 kB
  • sloc: perl: 4,655; sh: 101; makefile: 2
file content (13 lines) | stat: -rw-r--r-- 276 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
package builder::custom;
use strict;
use warnings;
use warnings FATAL => qw(recursion);
use parent qw(Module::Build);

sub new {
  my ($class, %args) = @_;
  die "OS Unsupported: " . $^O if ($^O !~ m#(?i)(Linux|darwin)#);
  print $^O;
  return $class->SUPER::new(%args);
}
1;