The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Rex::Endpoint::HTTP::Os::Windows::Swap;
use Mojo::Base 'Mojolicious::Controller';

use Mojo::JSON;
use Win32::API;

use Rex::Endpoint::HTTP::Interface::System;

sub free {
   my $self = shift;
   my $memory_info = $self->_iface->get_memory_statistics;
   $self->render_json({ok => Mojo::JSON->true, free => $memory_info->{swap_free}});
}

sub max {
   my $self = shift;
   my $memory_info = $self->_iface->get_memory_statistics;
   $self->render_json({ok => Mojo::JSON->true, max => $memory_info->{swap_size}});
}

sub used {
   my $self = shift;
   my $memory_info = $self->_iface->get_memory_statistics;
   $self->render_json({ok => Mojo::JSON->true, used => $memory_info->{swap_used}});
}

sub _iface {
   my ($self) = @_;
   return Rex::Endpoint::HTTP::Interface::System->create;
}

1;