view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

  - Added EXPERIMENTAL support for SameSite cookies to better protect Mojolicious applications from CSRF attacks.
    (dylanwh, kraih)
  - Added EXPERIMENTAL samesite attributes to Mojo::Cookie::Response and Mojolicious::Cookies. (dylanwh, kraih)
  - Added lstat method to Mojo::File. (Grinnz)
  - Added remove method to Mojo::File.
  - Improved eval command with support for promises. (jberger)
  - Improved Mojo::JSON::Pointer to ignore many invalid JSON Pointers.

8.10  2018-12-18
  - Added reset event to Mojo::IOLoop.
  - Added limit argument to split method in Mojo::ByteStream. (s1037989)

8.09  2018-12-02
  - Added touch method to Mojo::File.
  - Added max_depth option to list_tree method in Mojo::File.

8.08  2018-11-26
  - Added stat method to Mojo::File.

8.07  2018-11-16
  - Fixed a bug that caused debug log messages to be generated for static files.

Changes  view on Meta::CPAN

  - Improved redirect support in Mojo::UserAgent to be closer to commonly used browsers.

1.90  2011-08-24
  - Improved respond_to to automatically render an empty 204 response for unknown formats.
  - Improved render_exception and render_not_found to use the current format if available. (alnewkirk)

1.89  2011-08-23
  - Improved Mojo::Home portability. (omega)

1.88  2011-08-23
  - Added EXPERIMENTAL split method to Mojo::ByteStream.
  - Fixed small bug in Mojo::JSON.

1.87  2011-08-23
  - Added EXPERIMENTAL app method to Mojo::Command.
  - Added EXPERIMENTAL t helper to Mojolicious::Plugin::TagHelpers.
  - Made tag helper a little smarter.
  - Made camelize a little smarter.
  - Fixed small route rendering bug.

1.86  2011-08-21

lib/Mojo/Util.pm  view on Meta::CPAN

  return $prefix . _round($size) . 'MiB' if ($size /= 1024) < 1024;
  return $prefix . _round($size) . 'GiB' if ($size /= 1024) < 1024;
  return $prefix . _round($size /= 1024) . 'TiB';
}

sub network_contains {
  my ($cidr, $addr) = @_;
  return undef unless length $cidr && length $addr;

  # Parse inputs
  my ($net, $mask) = split m!/!, $cidr, 2;
  my $v6 = $net =~ /:/;
  return undef if $v6 xor $addr =~ /:/;

  # Convert addresses to binary
  return undef unless $net  = inet_pton($v6 ? AF_INET6 : AF_INET, $net);
  return undef unless $addr = inet_pton($v6 ? AF_INET6 : AF_INET, $addr);
  my $length = $v6 ? 128 : 32;

  # Apply mask if given
  $addr &= pack "B$length", '1' x $mask if defined $mask;