IO::MooseでもSlurpできるよ

Perl

JPerl Advent Calendar 2008でファイルをslurpする方法を紹介したけど，IO::Mooseっていうモジュールもあったんだねぇ．

#!/usr/bin/env perl
use strict;
use warnings;
use Perl6::Say;
use IO::Moose qw(File);

my $content = IO::Moose::File->new( filename => './pl.pl' )->slurp;
say $content;

といってもわざわざMooseなモジュールを使う必要はないかなぁ．モジュールがMooseで書かれてる利点はなんだろ．自分がモジュールを作るときに使えるときれいに使えるだろうけどなぁ．