perl用Guadfile （主にUNIVERSAL::requireでsyntax errorが出てこなくなる対策）

Guardfile

require "open3"
require "colorize"

guard 'shell' do
  watch(/(.*).pm/) do |m|
    arr = Open3.capture3("perl -c #{m[0]}")
    line = arr.first.split("\n").first
    unless line =~ /syntax OK/
      puts line.red
    else
      puts line.green
    end
  end
end