Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

assertions in perl5.9.0

by ysth (Canon)
on Nov 27, 2003 at 20:24 UTC ( #310594=perlmeditation: print w/replies, xml ) Need Help??

I'm wondering if anyone has taken a look at the (experimental) assertions available in perl5.9.0 (see and the -A switch in

The documentation is a little sparse; probably more needs to be added in the section in perlrun and a tutorial would be good (perlasstut??). Does anyone else have reactions? (Update: assertions should also be mentioned in perldebtut)

Replies are listed 'Best First'.
Re: assertions in perl5.9.0
by Joost (Canon) on Nov 28, 2003 at 13:30 UTC
    I like it :-)

    For me, I think the assertions doc contains more or less all that I need to know. Then again I've used assertions in other languages before, so maybe some extra information on the rationale behind assertions and what you would use them for might be useful. I mean something like this friendly introduction by Sun.

    Nice one,

    -- #!/usr/bin/perl -w use strict;$;= ";Jtunsitr pa;ngo;t1h\$e;r. )p.e(r;ls ;h;a;c.k^e;rs ";$_=$;;do{$..=chop}while(chop);$_=$;;eval$.;
Re: assertions in perl5.9.0
by Revelation (Deacon) on Nov 29, 2003 at 20:34 UTC
    The module looks like (and probably is) an offshoot of Schwern's Carp::Assert. If not, they should have similiar functionality. The difference is that can be toggled via a command line switch, unlike Carp::Assert. There can also, now be different types of assertions; it's no longer an all or nothing type of thing. This gets rid of the need for a DEBUG variable, like Carp::Assert's. It's also probably optimized away a little better, although I didn't spend the time to look into the internals of either module.

    I agree that the documentation is sparse. Although a lot of specific modules are created for those people who understand the basic concept behind them already (MIDI, for instance, expects you to know something about MIDI files but even then has great documentation), a core module should be expected to either explain itself in documentation or be tutorialed. Otherwise, a lot of programmers may be stuck trying to figure out the exact functionality of assertions.

    The problem with the current documentation is the brevity of the last line: "The assertion pragma associates to its lexical scope one or several assertion tags. Then, to activate the execution of the assertions subroutines in this scope, these tags must be given to perl via the -A command-line option." One had to use the assertions pragma to allow assertion subroutines in certain scopes, and _then_ if somebody toggled -A, then all assertions would be activated. If somebody toggled -A, they could also choose what flags they want to assert as a parameter.

    Furthermore, the author needs to document how works with scopes. If use assertions is used in a lower scope, does it over-ride the upper scope? That's what it looks like to me. Is '_' the variable that holds the upper scope's assertions variables? Does use assertion qw/x y/ mean that x and y both must be toggled, or either can be toggled to work (it looks like both...)? Is there an 'or' for assertions? So something can be asserted with foo or bar? Does a later  use assertion in the same scope over-ride an earlier one?

    Hopefully, the author will rewrite the documentation as Perl 5.9.0 comes out. Because has a version number of 0.01, it's very likely, in fact.

    Gyan Kapur
Re: assertions in perl5.9.0
by thor (Priest) on Nov 30, 2003 at 15:22 UTC
    Perhaps I'm over-analyzing this, but it seems to me that because perl is an interpreted language, that assertions will provide minimal speed up. When I go to execute a script, perl parses my code, compiles it, and then runs it. From what I understand, an assertion is optimized away at compile time, which (for traditional invocation) happens every time. I suppose the longer running the script, the more benefit there is in something like this. On the other hand, perhaps I'm missing the point completely...:-)


      There's certainly a lot of use for this. Perl isn't just used for shell oneliners and quick 10 line munger scripts. mod_perl handlers, daemons written in Perl, and stuff like logfile or DNA sequence mungers that process hundreds of megabytes of input at every invocation will certainly benefit.

      Even without those examples, I like the discipline imposed by assertions. They could be called "executable comments" - the important part being the promise that behaviour will not change at all with assertions disabled. It's like a test suite embedded right in the code.

      Makeshifts last the longest.

      You're not over-analyzing, you're over-simplifying your analysis. Run-time overhead is always more important than compile-time overhead because usually, the run-time of a program is significantly longer than the compilie time.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlmeditation [id://310594]
Approved by Itatsumaki
Front-paged by Courage
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (3)
As of 2018-06-24 06:46 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (126 votes). Check out past polls.