use Perl

• I'm being evil (Score:2)

  by drhyde (1683)

  I've got a bloody good mind to write Break::Mouse which will delete that subroutine if it ever spots that it's been created. And load it into my CPAN-testing machines.

  This shows why monkey-patching is generally a bad idea.

  package Break::Mouse;

use Time::HiRes qw(setitimer ITIMER_VIRTUAL);
setitimer(ITIMER_VIRTUAL, 1, 1);
$SIG{VTALRM} = sub {
    eval 'sub UNIVERSAL::a_sub_not_likely_to_be_here { die("Monkey-patching is bad\n")';
}

  • Re: (Score:1)

    by sartak (7900)

    Evil indeed.

    So how do we implement blessed without XS? As I said in a sibling comment, Mouse doesn't do this any more, it now just depends on Scalar::Util. But since I just took the code from Scalar::Util, so your package should be named Break::Scalar::Util.
    • Re: (Score:1)

      by Aristotle (5147)

      UNIVERSAL::can( $foo, 'can' )
      • Re: (Score:1)

        by sartak (7900)

        That's.. remarkably sane. You should submit a patch to Graham.
        • Re: (Score:1)

          by Aristotle (5147)

          Repo URL (Github preferred)? Email address?
          • Re:I'm being evil (Score:1)

            by sartak (7900) on 2009.01.11 18:42 (#66807) Homepage Journal

            I stole the code from Scalar::Util (hence why the patch should go to Graham); it no longer lives in Mouse because I now just have a dependency on it. Scalar::Util lives in core as of 5.8, but it'd be a useful fix for 5.6.

            Reply to This

            Parent

            • Re: (Score:1)

              by Aristotle (5147)

              Ah.