1package System::Info::Cygwin;
2
3use strict;
4use warnings;
5
6use base "System::Info::Linux";
7
8use POSIX ();
9
10our $VERSION = "0.050";
11
12=head1 NAME
13
14System::Info::Cygwin - Object for specific Cygwin info.
15
16=head1 DESCRIPTION
17
18=head2 $si->prepare_sysinfo()
19
20Use os-specific tools to find out more about the system.
21
22=cut
23
24sub prepare_sysinfo {
25    my $self = shift;
26    $self->SUPER::prepare_sysinfo;
27
28    return $self;
29    } # prepare_sysinfo
30
31=head2 $si->prepare_os
32
33Use os-specific tools to find out more about the operating system.
34
35=cut
36
37sub prepare_os {
38    my $self = shift;
39
40    my @uname = POSIX::uname ();
41
42    $self->{__osname} = $uname[0];
43    $self->{__osvers} = $uname[2];
44    my $os = join " - " => @uname[0,2];
45    $os =~ s/(\S+)/\L$1/;
46    $self->{__os} = $os;
47    } # prepare_os
48
491;
50
51__END__
52
53=head1 COPYRIGHT AND LICENSE
54
55(c) 2016-2018, Abe Timmerman & H.Merijn Brand, All rights reserved.
56
57With contributions from Jarkko Hietaniemi, Campo Weijerman, Alan Burlison,
58Allen Smith, Alain Barbet, Dominic Dunlop, Rich Rauenzahn, David Cantrell.
59
60This library is free software; you can redistribute it and/or modify
61it under the same terms as Perl itself.
62
63See:
64
65=over 4
66
67=item * L<http://www.perl.com/perl/misc/Artistic.html>
68
69=item * L<http://www.gnu.org/copyleft/gpl.html>
70
71=back
72
73This program is distributed in the hope that it will be useful,
74but WITHOUT ANY WARRANTY; without even the implied warranty of
75MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
76
77=cut
78