From toby.corkindale at strategicdata.com.au Tue Jun 1 22:16:50 2010 From: toby.corkindale at strategicdata.com.au (Toby Corkindale) Date: Wed, 02 Jun 2010 15:16:50 +1000 Subject: [Melbourne-pm] Using given/when to return values Message-ID: <4C05E942.7080508@strategicdata.com.au> An annoyance right now is that the given/when syntax does not return the values in the code block executed, so you can't use them inside grep,etc. Has anyone else noticed a way around that? (Apart from wrapping it in an anonymous subroutine and then returing out of the when blocks) From toby.corkindale at strategicdata.com.au Tue Jun 1 22:29:57 2010 From: toby.corkindale at strategicdata.com.au (Toby Corkindale) Date: Wed, 02 Jun 2010 15:29:57 +1000 Subject: [Melbourne-pm] Using given/when to return values In-Reply-To: <4C05E942.7080508@strategicdata.com.au> References: <4C05E942.7080508@strategicdata.com.au> Message-ID: <4C05EC55.3010906@strategicdata.com.au> On 02/06/10 15:16, Toby Corkindale wrote: > An annoyance right now is that the given/when syntax does not return the > values in the code block executed, so you can't use them inside grep,etc. Although thinking about this for slightly longer, there's no reason to have anything other than boolean matching inside things like grep and it's rather dubious for sort, so perhaps this isn't such a big issue. Move along now, nothing to see here. From daniel at rimspace.net Tue Jun 1 22:48:09 2010 From: daniel at rimspace.net (Daniel Pittman) Date: Wed, 02 Jun 2010 15:48:09 +1000 Subject: [Melbourne-pm] Using given/when to return values In-Reply-To: <4C05EC55.3010906@strategicdata.com.au> (Toby Corkindale's message of "Wed, 02 Jun 2010 15:29:57 +1000") References: <4C05E942.7080508@strategicdata.com.au> <4C05EC55.3010906@strategicdata.com.au> Message-ID: <87mxvej886.fsf@rimspace.net> Toby Corkindale writes: > On 02/06/10 15:16, Toby Corkindale wrote: > >> An annoyance right now is that the given/when syntax does not return the >> values in the code block executed, so you can't use them inside grep,etc. > > Although thinking about this for slightly longer, there's no reason to have > anything other than boolean matching inside things like grep and it's rather > dubious for sort, so perhaps this isn't such a big issue. Honestly? I see a big case for this: sub foo { my ($arg_to_map) = @_; return given ($arg_to_map) { when (1..4) { "foo" } when (5..8) { "bar" } default { explode; } } } Sure, I can do assignments in the when blocks and all, but this beats out the simpler static case where a function wraps a hash lookup to the same end. Daniel -- ? Daniel Pittman ? daniel at rimspace.net ? +61 401 155 707 ? made with 100 percent post-consumer electrons From toby.corkindale at strategicdata.com.au Tue Jun 1 22:55:11 2010 From: toby.corkindale at strategicdata.com.au (Toby Corkindale) Date: Wed, 02 Jun 2010 15:55:11 +1000 Subject: [Melbourne-pm] Using given/when to return values In-Reply-To: <87mxvej886.fsf@rimspace.net> References: <4C05E942.7080508@strategicdata.com.au> <4C05EC55.3010906@strategicdata.com.au> <87mxvej886.fsf@rimspace.net> Message-ID: <4C05F23F.5070802@strategicdata.com.au> On 02/06/10 15:48, Daniel Pittman wrote: > Toby Corkindale writes: >> On 02/06/10 15:16, Toby Corkindale wrote: >> >>> An annoyance right now is that the given/when syntax does not return the >>> values in the code block executed, so you can't use them inside grep,etc. >> >> Although thinking about this for slightly longer, there's no reason to have >> anything other than boolean matching inside things like grep and it's rather >> dubious for sort, so perhaps this isn't such a big issue. > > Honestly? I see a big case for this: > > sub foo { > my ($arg_to_map) = @_; > return given ($arg_to_map) { > when (1..4) { "foo" } > when (5..8) { "bar" } > default { explode; } > } > } > > Sure, I can do assignments in the when blocks and all, but this beats out the > simpler static case where a function wraps a hash lookup to the same end. I agree, it would be handy, and it seems like a big oversight to define given as invalid if used as an RVALUE. ie. my $result = given ($thing) ...etc results in: syntax error near "= given" (Tested on Perl 5.10.1 and 5.12.1) From david.warring at gmail.com Wed Jun 2 15:17:30 2010 From: david.warring at gmail.com (David Warring) Date: Thu, 3 Jun 2010 08:17:30 +1000 Subject: [Melbourne-pm] Using given/when to return values In-Reply-To: <4C05E942.7080508@strategicdata.com.au> References: <4C05E942.7080508@strategicdata.com.au> Message-ID: Toby, I've noticed this. It's supposed to be a back-port of a Perl 6 feature. I grokked the Perl 6 test suite and fond the following in t/spec/S04-statements/given.t ================================== # from apocalypse 4 #?rakudo skip 'parsefail on each(... ; ...)' { # simple example L for each(("T", "E", 5) ; (10, 11, 5)) -> $digit, $expected { my $result_a = do given $digit { when "T" { 10 } when "E" { 11 } $digit }; my $result_b = do given $digit { when "T" { 10 } when "E" { 11 } default { $digit } }; is($result_a, $expected, "result of $digit using implicit default {} is $expected"); is($result_b, $expected, "result of $digit using explicit default {} is $expected"); } } =================================== So it looks as if this is inconsistently implemented across Perl 6 & 5. I would've thought that Perl 5 should behave the same way. Also it wouldn't hurt to back-port the 'given' tests from rakudo. - David On Wed, Jun 2, 2010 at 3:16 PM, Toby Corkindale < toby.corkindale at strategicdata.com.au> wrote: > An annoyance right now is that the given/when syntax does not return the > values in the code block executed, so you can't use them inside grep,etc. > > Has anyone else noticed a way around that? (Apart from wrapping it in an > anonymous subroutine and then returing out of the when blocks) > _______________________________________________ > Melbourne-pm mailing list > Melbourne-pm at pm.org > http://mail.pm.org/mailman/listinfo/melbourne-pm > -------------- next part -------------- An HTML attachment was scrubbed... URL: From toby.corkindale at strategicdata.com.au Wed Jun 2 18:17:27 2010 From: toby.corkindale at strategicdata.com.au (Toby Corkindale) Date: Thu, 03 Jun 2010 11:17:27 +1000 Subject: [Melbourne-pm] Talks for next meeting In-Reply-To: <4BFE07E5.4080407@strategicdata.com.au> References: <4BEB99CA.3050304@strategicdata.com.au> <4BFE07E5.4080407@strategicdata.com.au> Message-ID: <4C0702A7.5020904@strategicdata.com.au> Following up on this.. Confirmed talks for the upcoming meeting are: * What's new in Perl 5.12 * A short talk on IPv6 and Perl Unfortunately the Padre talk has fallen through for the time being.. I wondered if anyone else would like to step up to the bat, maybe even just as a smaller talk - eg. Demonstrate it running, show a couple of cool features - and we can have a longer talk about it another time. Anyone? Bueller? Cheers, Toby On 27/05/10 15:49, Toby Corkindale wrote: > Hi everyone, > A couple of things about the upcoming meeting.. > > Can I get a confirmation from whoever would like to volunteer to give a > talk on Padre? Otherwise I'll try and get myself up to speed on it soon.. > > For another suggested talk - how about "What's new in Perl 5.12"? > > Not only has 5.12.0 come out, but even 5.12.1 and we still haven't > covered it, so it must be time! > > I'll volunteer to do this talk, unless someone else would like it? > > Cheers, > Toby > > On 13/05/10 16:18, Toby Corkindale wrote: >> Hi everyone, >> As we discussed at the meeting last night, Paul and Jacinta will be away >> for a few months, and thus organisation of the meetings falls to the >> rest of us mere mortals for the next three meetings. >> >> Jacinta and Paul, thank you for always managing these meetings for as >> long as I've subscribed to the Melbourne.pm list. >> >> >> The next meeting will be on the 9th of June, and will be hosted by >> Strategic Data: >> >> Strategic Data >> Level 2 >> 51-55 Johnston Street >> Fitzroy 3065 >> >> They have kindly offered to provide some snacks and pizza! >> >> >> Talks: >> I think we had a volunteer last night for a talk demonstrating Padre, >> the development environment for Perl, in Perl? >> >> I'm sure we'll get a couple of lightning talks again.. >> >> Are there any other suggestions or volunteers for talks? Mail me any >> time in the next few weeks if you come up with anything, or I'll find >> something else to ramble on about again :) >> >> Cheers, >> Toby >> >> >> _______________________________________________ >> Melbourne-pm mailing list >> Melbourne-pm at pm.org >> http://mail.pm.org/mailman/listinfo/melbourne-pm > > -- Strategic Data Pty Ltd Ph: 03 9340 9000 From melbourne.pm at joshheumann.com Wed Jun 2 20:03:24 2010 From: melbourne.pm at joshheumann.com (Josh Heumann) Date: Wed, 2 Jun 2010 20:03:24 -0700 Subject: [Melbourne-pm] Talks for next meeting In-Reply-To: <4C0702A7.5020904@strategicdata.com.au> References: <4BEB99CA.3050304@strategicdata.com.au> <4BFE07E5.4080407@strategicdata.com.au> <4C0702A7.5020904@strategicdata.com.au> Message-ID: <20100603030324.GA21609@joshheumann.com> > Anyone? Bueller? I was just talking to Jacinta over here in Portland about all of the cool modules we've been hearing about at Open Source Bridge, and we had an idea. It would be cool if we could start a regular feature wherein a different person each month gives everyone an overview of one of one cool module on cpan. Even if it's one everyone knows, we might learn some new features. Here is a list of the ones that chromatic mentioned in his talk today: MooseX::Declare Modern::Perl App::cpanminus local::lib Try::Tiny Fennec Of course, I'm not there to kick this off, but it's a starting point... J From toby.corkindale at strategicdata.com.au Wed Jun 2 20:34:01 2010 From: toby.corkindale at strategicdata.com.au (Toby Corkindale) Date: Thu, 03 Jun 2010 13:34:01 +1000 Subject: [Melbourne-pm] Memoize subroutine annotations Message-ID: <4C0722A9.4030206@strategicdata.com.au> Memoize is useful, but having to specify routines seems a bit backwards. ie. sub my_subroutine { .. do stuff .. } memoize('my_subroutine'); Luckily, you can enable a method annotation instead, with Attribute::Memoize: ie. sub my_subroutine :Memoize { .. do stuff .. } tjc From daniel at rimspace.net Wed Jun 2 20:56:12 2010 From: daniel at rimspace.net (Daniel Pittman) Date: Thu, 03 Jun 2010 13:56:12 +1000 Subject: [Melbourne-pm] Memoize subroutine annotations In-Reply-To: <4C0722A9.4030206@strategicdata.com.au> (Toby Corkindale's message of "Thu, 03 Jun 2010 13:34:01 +1000") References: <4C0722A9.4030206@strategicdata.com.au> Message-ID: <874ohkwyzn.fsf@rimspace.net> Toby Corkindale writes: > Memoize is useful, but having to specify routines seems a bit backwards. > > sub my_subroutine { .. do stuff .. } > memoize('my_subroutine'); Oh, CLOS, where are you when I want to write a memozing method combination for Moose, eh? > Luckily, you can enable a method annotation instead, with Attribute::Memoize: > > sub my_subroutine :Memoize { .. do stuff .. } Does that conflict with other uses of attributes, such as Catalyst? Daniel -- ? Daniel Pittman ? daniel at rimspace.net ? +61 401 155 707 ? made with 100 percent post-consumer electrons From toby.corkindale at strategicdata.com.au Wed Jun 2 21:02:17 2010 From: toby.corkindale at strategicdata.com.au (Toby Corkindale) Date: Thu, 03 Jun 2010 14:02:17 +1000 Subject: [Melbourne-pm] Memoize subroutine annotations In-Reply-To: <874ohkwyzn.fsf@rimspace.net> References: <4C0722A9.4030206@strategicdata.com.au> <874ohkwyzn.fsf@rimspace.net> Message-ID: <4C072949.5090009@strategicdata.com.au> On 03/06/10 13:56, Daniel Pittman wrote: > Toby Corkindale writes: > >> Memoize is useful, but having to specify routines seems a bit backwards. >> >> sub my_subroutine { .. do stuff .. } >> memoize('my_subroutine'); > > Oh, CLOS, where are you when I want to write a memozing method combination for > Moose, eh? > >> Luckily, you can enable a method annotation instead, with Attribute::Memoize: >> >> sub my_subroutine :Memoize { .. do stuff .. } > > Does that conflict with other uses of attributes, such as Catalyst? > Daniel Unsure, but suspect you shouldn't be Memoizing Catalyst Actions as they have side-effects anyway? From toby.corkindale at strategicdata.com.au Tue Jun 8 17:56:49 2010 From: toby.corkindale at strategicdata.com.au (Toby Corkindale) Date: Wed, 09 Jun 2010 10:56:49 +1000 Subject: [Melbourne-pm] Melbourne Perl Mongers TONIGHT, 18:30, Fitzroy Message-ID: <4C0EE6D1.1030001@strategicdata.com.au> Good morning! A reminder that the next Melbourne Perl Mongers meeting is TONIGHT, hosted by Strategic Data: Strategic Data Level 2 51-55 Johnston Street Fitzroy 3065 The meeting starts at 6:30pm; the doors should be open until then, but as usual, if you find yourself locked out, call the number that should be stuck to the door. Tonight we have Timothy Hunt talking briefly on IPv6, Brad Bowman talking on the perils and avoidance of RSI, and I will chat about the new features in Perl 5.12. Lightning talks are also welcome. Strategic Data will be providing some food, and I'll make sure there are some vegetarian options. Look forward to seeing you there, Toby From toby.corkindale at strategicdata.com.au Tue Jun 8 21:01:12 2010 From: toby.corkindale at strategicdata.com.au (Toby Corkindale) Date: Wed, 09 Jun 2010 14:01:12 +1000 Subject: [Melbourne-pm] DateTime on Perl 5.12.1 Message-ID: <4C0F1208.4060107@strategicdata.com.au> Is anyone having trouble with DateTime on Perl 5.12.1 with threads enabled, or is it just me? It doesn't pass its unit tests (on ver 0.55) unless you recompile perl without threading.. But there are loads of CPAN testers who seem to indicate it's a pass, so I don't know.. damnit.. From guy at alchemy.com.au Wed Jun 9 21:03:30 2010 From: guy at alchemy.com.au (Guy Morton) Date: Thu, 10 Jun 2010 14:03:30 +1000 Subject: [Melbourne-pm] Connecting to a MSSQL 2005 server Message-ID: Hello fellow perlers, I am having trouble getting DBI to connect to an MSSQL 2005 server. I have FreeTDS installed. I have DBD::Sybase installed: $ perl -MDBI -e 'DBI->installed_versions;' Perl : 5.008008 (i386-freebsd-64int) OS : freebsd (6.1-release) DBI : 1.607 DBD::mysql : 4.010 DBD::Sybase : 1.02 DBD::Sponge : 12.010002 DBD::SQLite2 : 0.33 DBD::SQLite : 1.14 DBD::Proxy : install_driver(Proxy) failed: Can't locate RPC/PlClient.pm in @INC DBD::Gofer : 0.011565 DBD::File : 0.35 DBD::ExampleP : 12.010007 DBD::DBM : 0.03 So, it *kinda* looks like this: use DBI; my $dbh = DBI->connect("dbi:Sybase:server=myserver", 'user','pass') || die $DBI::errstr; should work, but it generates this error instead: DBI connect('server=myserver','user',...) failed: (no error string) at mssqltest.pl line 3 Died at mssqltest.pl line 3. Anyone got any clues they can throw me? regards Guy From toby.corkindale at strategicdata.com.au Wed Jun 9 21:06:29 2010 From: toby.corkindale at strategicdata.com.au (Toby Corkindale) Date: Thu, 10 Jun 2010 14:06:29 +1000 Subject: [Melbourne-pm] Connecting to a MSSQL 2005 server In-Reply-To: References: Message-ID: <4C1064C5.90104@strategicdata.com.au> On 10/06/10 14:03, Guy Morton wrote: > Hello fellow perlers, > > I am having trouble getting DBI to connect to an MSSQL 2005 server. > > I have FreeTDS installed. > > I have DBD::Sybase installed: > > $ perl -MDBI -e 'DBI->installed_versions;' > Perl : 5.008008 (i386-freebsd-64int) > OS : freebsd (6.1-release) > DBI : 1.607 > DBD::mysql : 4.010 > DBD::Sybase : 1.02 > DBD::Sponge : 12.010002 > DBD::SQLite2 : 0.33 > DBD::SQLite : 1.14 > DBD::Proxy : install_driver(Proxy) failed: Can't locate RPC/PlClient.pm in @INC > DBD::Gofer : 0.011565 > DBD::File : 0.35 > DBD::ExampleP : 12.010007 > DBD::DBM : 0.03 > > So, it *kinda* looks like this: > > use DBI; > > my $dbh = DBI->connect("dbi:Sybase:server=myserver", 'user','pass') || die $DBI::errstr; > > should work, but it generates this error instead: > > DBI connect('server=myserver','user',...) failed: (no error string) at mssqltest.pl line 3 > Died at mssqltest.pl line 3. > > Anyone got any clues they can throw me? Maybe try running it with DBI_TRACE=1 to get more debug output? From ddick at iinet.net.au Wed Jun 9 21:23:38 2010 From: ddick at iinet.net.au (David Dick) Date: Thu, 10 Jun 2010 14:23:38 +1000 Subject: [Melbourne-pm] Connecting to a MSSQL 2005 server In-Reply-To: References: Message-ID: <4C1068CA.8010509@iinet.net.au> On 10/06/10 14:03, Guy Morton wrote: > Hello fellow perlers, > > I am having trouble getting DBI to connect to an MSSQL 2005 server. > > I have FreeTDS installed. > > I have DBD::Sybase installed: > > $ perl -MDBI -e 'DBI->installed_versions;' > Perl : 5.008008 (i386-freebsd-64int) > OS : freebsd (6.1-release) > DBI : 1.607 > DBD::mysql : 4.010 > DBD::Sybase : 1.02 > DBD::Sponge : 12.010002 > DBD::SQLite2 : 0.33 > DBD::SQLite : 1.14 > DBD::Proxy : install_driver(Proxy) failed: Can't locate RPC/PlClient.pm in @INC > DBD::Gofer : 0.011565 > DBD::File : 0.35 > DBD::ExampleP : 12.010007 > DBD::DBM : 0.03 > > So, it *kinda* looks like this: > > use DBI; > > my $dbh = DBI->connect("dbi:Sybase:server=myserver", 'user','pass') || die $DBI::errstr; > > should work, but it generates this error instead: > > DBI connect('server=myserver','user',...) failed: (no error string) at mssqltest.pl line 3 > Died at mssqltest.pl line 3. > > Anyone got any clues they can throw me? i have to admit that i have been working a lot with this setup. first thing to do is to set the TDSDUMP environment variable, documented at http://www.freetds.org/userguide/logging.htm you can either work through the issues by looking at the log, or post the log so we can help. From guy at alchemy.com.au Wed Jun 9 22:42:20 2010 From: guy at alchemy.com.au (Guy Morton) Date: Thu, 10 Jun 2010 15:42:20 +1000 Subject: [Melbourne-pm] Connecting to a MSSQL 2005 server References: <9437CB9A-4E51-4324-BFEC-EBA39B0067D8@alchemy.com.au> Message-ID: <22E82DD9-CBB9-42AE-88D3-4E6D2A6ABD29@alchemy.com.au> Thanks guys. I got connected by enabling DBI_TRACE and figuring out that I am an idiot. I had so many problems getting this connection happening (starting with routing, through to configuring freetds) that I tripped over the final hurdle - incorrect password! *sigh* Guy On 10/06/2010, at 2:23 PM, David Dick wrote: > On 10/06/10 14:03, Guy Morton wrote: >> Hello fellow perlers, >> >> I am having trouble getting DBI to connect to an MSSQL 2005 server. >> >> I have FreeTDS installed. >> >> I have DBD::Sybase installed: >> >> $ perl -MDBI -e 'DBI->installed_versions;' >> Perl : 5.008008 (i386-freebsd-64int) >> OS : freebsd (6.1-release) >> DBI : 1.607 >> DBD::mysql : 4.010 >> DBD::Sybase : 1.02 >> DBD::Sponge : 12.010002 >> DBD::SQLite2 : 0.33 >> DBD::SQLite : 1.14 >> DBD::Proxy : install_driver(Proxy) failed: Can't locate RPC/PlClient.pm in @INC >> DBD::Gofer : 0.011565 >> DBD::File : 0.35 >> DBD::ExampleP : 12.010007 >> DBD::DBM : 0.03 >> >> So, it *kinda* looks like this: >> >> use DBI; >> >> my $dbh = DBI->connect("dbi:Sybase:server=myserver", 'user','pass') || die $DBI::errstr; >> >> should work, but it generates this error instead: >> >> DBI connect('server=myserver','user',...) failed: (no error string) at mssqltest.pl line 3 >> Died at mssqltest.pl line 3. >> >> Anyone got any clues they can throw me? > > i have to admit that i have been working a lot with this setup. first thing to do is to set the TDSDUMP environment variable, documented at http://www.freetds.org/userguide/logging.htm > > you can either work through the issues by looking at the log, or post the log so we can help. > _______________________________________________ > Melbourne-pm mailing list > Melbourne-pm at pm.org > http://mail.pm.org/mailman/listinfo/melbourne-pm From daniel at rimspace.net Wed Jun 9 23:12:56 2010 From: daniel at rimspace.net (Daniel Pittman) Date: Thu, 10 Jun 2010 16:12:56 +1000 Subject: [Melbourne-pm] Connecting to a MSSQL 2005 server In-Reply-To: <22E82DD9-CBB9-42AE-88D3-4E6D2A6ABD29@alchemy.com.au> (Guy Morton's message of "Thu, 10 Jun 2010 15:42:20 +1000") References: <9437CB9A-4E51-4324-BFEC-EBA39B0067D8@alchemy.com.au> <22E82DD9-CBB9-42AE-88D3-4E6D2A6ABD29@alchemy.com.au> Message-ID: <87iq5ro1p3.fsf@rimspace.net> Guy Morton writes: > Thanks guys. I got connected by enabling DBI_TRACE and figuring out that I > am an idiot. I had so many problems getting this connection happening > (starting with routing, through to configuring freetds) that I tripped over > the final hurdle - incorrect password! You should file a bug-report with the DBD driver, though, since it *should* be giving some sort of reasonable error message in that case. :) Daniel -- ? Daniel Pittman ? daniel at rimspace.net ? +61 401 155 707 ? made with 100 percent post-consumer electrons From sam at nipl.net Thu Jun 10 19:23:19 2010 From: sam at nipl.net (Sam Watkins) Date: Fri, 11 Jun 2010 02:23:19 +0000 Subject: [Melbourne-pm] Connecting to a MSSQL 2005 server In-Reply-To: <87iq5ro1p3.fsf@rimspace.net> References: <9437CB9A-4E51-4324-BFEC-EBA39B0067D8@alchemy.com.au> <22E82DD9-CBB9-42AE-88D3-4E6D2A6ABD29@alchemy.com.au> <87iq5ro1p3.fsf@rimspace.net> Message-ID: <20100611022319.GA20110@nipl.net> We were using Freetds at work with Sybase and DBD::Sybase, that combination at least is buggy and not very stable, so we are using the proper Sybase libs now. DBD::Sybase does warn that it does not like freetds! Not sure if you can use Sybase libs with MSSQL or if there's some alternative to freetds. For example, with DBD::Sybase and freetds, it appears that if you send an SQL statement using bind variables having 2 or more bound to NULL, it segfaults :S Sam From jarich at perltraining.com.au Thu Jun 10 19:52:50 2010 From: jarich at perltraining.com.au (Jacinta Richardson) Date: Thu, 10 Jun 2010 19:52:50 -0700 Subject: [Melbourne-pm] Job opportunities in testing Message-ID: <4C11A502.5030009@perltraining.com.au> I thought this might interest some people.... (No recruiters (no exceptions)). A career in testing? Who are we? We are TestLogistics, a rapidly expanding consultancy that specialises in the complex aspects of system and software testing. Our clients are typically tier one financial institutions, and we are based in the Sydney CBD. We can't find enough good people, so we've decided to recruit some recent graduates, and train them in the skills that they will need to become testing experts. These will be permanent, full time positions, paying around $30,000 to $40,000 per year to start, with generous increases as you become more productive. You can find our website at www.testlogistics.com Who are you? You are a recent graduate, with a background in IT, mathematics, science or engineering. You are computer literate, but you don't need to be a programmer. You are analytical and you like to know how things work. You are well presented and articulate. Excellent verbal and written communications skills are a must for these positions. You are smart - intelligent and practical. You are also methodical, thorough and curious. You learn fast, and you are ambitious. Will you find testing interesting? Check out sites such as http://www.satisfice.com/ and http://www.stickyminds.com//index.asp to find out more. What you can expect? You will be assigned to one of our Principal Consultants who will mentor you through on the job training on site with a tier one customer: these include organisations such as major banks and telcos. We are technology neutral, and we test systems based on Windows, Linux, Unix and mainframes. You'll learn on the job, so be prepared for a steep learning curve. Send your resume to Joel Corrigan (joel.corrigan at testlogistics.com). -------------- next part -------------- An embedded message was scrubbed... From: Melodie Neal Subject: [AussieChix] Job opportunities in testing Date: Fri, 11 Jun 2010 09:45:43 +1000 Size: 12705 URL: From david.warring at gmail.com Thu Jun 10 20:08:08 2010 From: david.warring at gmail.com (David Warring) Date: Fri, 11 Jun 2010 13:08:08 +1000 Subject: [Melbourne-pm] Using given/when to return values In-Reply-To: References: <4C05E942.7080508@strategicdata.com.au> Message-ID: Hi Toby, I had a look at the latest perl 5.13.1. Someone's just fixed it! >From perl5131delta.pod: "given" return values Starting from this release, "given" blocks returns the last evaluated expression, or an empty list if the block was exited by "break". Thus you can now write: my $type = do { given ($num) { break when undef; 'integer' when /^[+-]?[0-9]+$/; 'float' when /^[+-]?[0-9]+(?:\.[0-9]+)?$/; 'unknown'; } }; See "Return value" in perlsyn for details. Cheers - David On Thu, Jun 3, 2010 at 8:17 AM, David Warring wrote: > Toby, > > I've noticed this. It's supposed to be a back-port of a Perl 6 feature. > > I grokked the Perl 6 test suite and fond the following > in t/spec/S04-statements/given.t > > ================================== > # from apocalypse 4 > #?rakudo skip 'parsefail on each(... ; ...)' > { > # simple example L explicit default/> > for each(("T", "E", 5) ; (10, 11, 5)) -> $digit, $expected { > my $result_a = do given $digit { > when "T" { 10 } > when "E" { 11 } > $digit > }; > > my $result_b = do given $digit { > when "T" { 10 } > when "E" { 11 } > default { $digit } > }; > > is($result_a, $expected, "result of $digit using implicit default {} is > $expected"); > is($result_b, $expected, "result of $digit using explicit default {} is > $expected"); > } > } > =================================== > > So it looks as if this is inconsistently implemented across Perl 6 & 5. > > I would've thought that Perl 5 should behave the same way. Also it wouldn't > hurt to back-port the 'given' tests from rakudo. > - David > > On Wed, Jun 2, 2010 at 3:16 PM, Toby Corkindale < > toby.corkindale at strategicdata.com.au> wrote: > >> An annoyance right now is that the given/when syntax does not return the >> values in the code block executed, so you can't use them inside grep,etc. >> >> Has anyone else noticed a way around that? (Apart from wrapping it in an >> anonymous subroutine and then returing out of the when blocks) >> _______________________________________________ >> Melbourne-pm mailing list >> Melbourne-pm at pm.org >> http://mail.pm.org/mailman/listinfo/melbourne-pm >> > > -------------- next part -------------- An HTML attachment was scrubbed... URL: From ddick at iinet.net.au Fri Jun 11 02:42:50 2010 From: ddick at iinet.net.au (David Dick) Date: Fri, 11 Jun 2010 19:42:50 +1000 Subject: [Melbourne-pm] Connecting to a MSSQL 2005 server In-Reply-To: <87iq5ro1p3.fsf@rimspace.net> References: <9437CB9A-4E51-4324-BFEC-EBA39B0067D8@alchemy.com.au> <22E82DD9-CBB9-42AE-88D3-4E6D2A6ABD29@alchemy.com.au> <87iq5ro1p3.fsf@rimspace.net> Message-ID: <4C12051A.5010103@iinet.net.au> On 10/06/10 16:12, Daniel Pittman wrote: > Guy Morton writes: > >> Thanks guys. I got connected by enabling DBI_TRACE and figuring out that I >> am an idiot. I had so many problems getting this connection happening >> (starting with routing, through to configuring freetds) that I tripped over >> the final hurdle - incorrect password! > > You should file a bug-report with the DBD driver, though, since it *should* be > giving some sort of reasonable error message in that case. :) i've been working with freetds and DBD::Sybase for a while, and it can be quite tricky (for me anyway) to figure out where bug reports and patches are due. From ddick at iinet.net.au Fri Jun 11 02:45:17 2010 From: ddick at iinet.net.au (David Dick) Date: Fri, 11 Jun 2010 19:45:17 +1000 Subject: [Melbourne-pm] Connecting to a MSSQL 2005 server In-Reply-To: <20100611022319.GA20110@nipl.net> References: <9437CB9A-4E51-4324-BFEC-EBA39B0067D8@alchemy.com.au> <22E82DD9-CBB9-42AE-88D3-4E6D2A6ABD29@alchemy.com.au> <87iq5ro1p3.fsf@rimspace.net> <20100611022319.GA20110@nipl.net> Message-ID: <4C1205AD.6090903@iinet.net.au> On 11/06/10 12:23, Sam Watkins wrote: > For example, with DBD::Sybase and freetds, it appears that if you send an SQL > statement using bind variables having 2 or more bound to NULL, it segfaults :S This is a interesting case that i wasn't aware of. I'm a bit snowed under at the moment, but would you be able to post some more details (freetds version, DBD::Sybase version and server type and version) so i could (later on) replicate and fix this issue? From tjc at wintrmute.net Fri Jun 11 20:12:57 2010 From: tjc at wintrmute.net (Toby Wintermute) Date: Sat, 12 Jun 2010 13:12:57 +1000 Subject: [Melbourne-pm] Connecting to a MSSQL 2005 server In-Reply-To: <20100611022319.GA20110@nipl.net> References: <9437CB9A-4E51-4324-BFEC-EBA39B0067D8@alchemy.com.au> <22E82DD9-CBB9-42AE-88D3-4E6D2A6ABD29@alchemy.com.au> <87iq5ro1p3.fsf@rimspace.net> <20100611022319.GA20110@nipl.net> Message-ID: On 11 June 2010 12:23, Sam Watkins wrote: > We were using Freetds at work with Sybase and DBD::Sybase, that combination at > least is buggy and not very stable, so we are using the proper Sybase libs now. > DBD::Sybase does warn that it does not like freetds! ?Not sure if you can use > Sybase libs with MSSQL or if there's some alternative to freetds. Hmm, I've used FreeTDS and DBD::Sybase with MS SQL in the past, with reasonable success. From sam at nipl.net Tue Jun 15 20:20:29 2010 From: sam at nipl.net (Sam Watkins) Date: Wed, 16 Jun 2010 03:20:29 +0000 Subject: [Melbourne-pm] Connecting to a MSSQL 2005 server In-Reply-To: <4C1205AD.6090903@iinet.net.au> References: <9437CB9A-4E51-4324-BFEC-EBA39B0067D8@alchemy.com.au> <22E82DD9-CBB9-42AE-88D3-4E6D2A6ABD29@alchemy.com.au> <87iq5ro1p3.fsf@rimspace.net> <20100611022319.GA20110@nipl.net> <4C1205AD.6090903@iinet.net.au> Message-ID: <20100616032029.GA27159@nipl.net> On Fri, Jun 11, 2010 at 07:45:17PM +1000, David Dick wrote: > On 11/06/10 12:23, Sam Watkins wrote: >> For example, with DBD::Sybase and freetds, it appears that if you send an SQL >> statement using bind variables having 2 or more bound to NULL, it segfaults :S > > This is a interesting case that i wasn't aware of. I'm a bit snowed > under at the moment, but would you be able to post some more details > (freetds version, DBD::Sybase version and server type and version) so i > could (later on) replicate and fix this issue? freetds-0.64-4.1 DBD::Sybase 1.10 sybase version, I'm not sure, but I think it doesn't matter as it crashes before it gets to the server (even if the table doesn't exist). here is a test program that crashes: #!/usr/bin/perl use strict; use warnings; warn "testing a bug, apparently with binding undef -> NULL in DBD::Sybase\n"; use DBI; my $host = "localhost"; my $port = 2500; my $db = "test"; my $user = "sa"; my $pass = "Sybase390"; my $connectionstring = "host=$host;port=$port;database=$db"; my $dbh = DBI->connect("dbi:Sybase:$connectionstring", $user, $pass, { RaiseError => 1, AutoCommit => 1 }) || die "Database connection not made $DBI::errstr"; $dbh->do("DROP TABLE sam_test"); $dbh->do("CREATE TABLE sam_test (ABN CHAR(11) NULL, ACN CHAR(9) NULL)"); $dbh->do("UPDATE sam_test SET ABN = NULL, ACN = NULL"); warn "got to final test, which will crash\n"; $dbh->do("UPDATE sam_test SET ABN = ?, ACN = ?", {}, undef, undef); From sam at nipl.net Tue Jun 15 20:23:45 2010 From: sam at nipl.net (Sam Watkins) Date: Wed, 16 Jun 2010 03:23:45 +0000 Subject: [Melbourne-pm] Connecting to a MSSQL 2005 server In-Reply-To: <20100616032029.GA27159@nipl.net> References: <9437CB9A-4E51-4324-BFEC-EBA39B0067D8@alchemy.com.au> <22E82DD9-CBB9-42AE-88D3-4E6D2A6ABD29@alchemy.com.au> <87iq5ro1p3.fsf@rimspace.net> <20100611022319.GA20110@nipl.net> <4C1205AD.6090903@iinet.net.au> <20100616032029.GA27159@nipl.net> Message-ID: <20100616032345.GB27159@nipl.net> On Wed, Jun 16, 2010 at 03:20:29AM +0000, Sam Watkins wrote: > On Fri, Jun 11, 2010 at 07:45:17PM +1000, David Dick wrote: > > On 11/06/10 12:23, Sam Watkins wrote: > >> For example, with DBD::Sybase and freetds, it appears that if you send an SQL > >> statement using bind variables having 2 or more bound to NULL, it segfaults :S > > > > This is a interesting case that i wasn't aware of. I'm a bit snowed > > under at the moment, but would you be able to post some more details > > (freetds version, DBD::Sybase version and server type and version) so i > > could (later on) replicate and fix this issue? > > freetds-0.64-4.1 > DBD::Sybase 1.10 > sybase version, I'm not sure, but I think it doesn't matter as it crashes before it gets to the server (even if the table doesn't exist). I found out it's 11.5 on Solaris 2.6 Sam From ddick at iinet.net.au Wed Jun 16 15:42:44 2010 From: ddick at iinet.net.au (David Dick) Date: Thu, 17 Jun 2010 08:42:44 +1000 Subject: [Melbourne-pm] Connecting to a MSSQL 2005 server In-Reply-To: <20100616032345.GB27159@nipl.net> References: <9437CB9A-4E51-4324-BFEC-EBA39B0067D8@alchemy.com.au> <22E82DD9-CBB9-42AE-88D3-4E6D2A6ABD29@alchemy.com.au> <87iq5ro1p3.fsf@rimspace.net> <20100611022319.GA20110@nipl.net> <4C1205AD.6090903@iinet.net.au> <20100616032029.GA27159@nipl.net> <20100616032345.GB27159@nipl.net> Message-ID: <4C195364.5060805@iinet.net.au> On 16/06/10 13:23, Sam Watkins wrote: >> freetds-0.64-4.1 >> DBD::Sybase 1.10 >> sybase version, I'm not sure, but I think it doesn't matter as it crashes before it gets to the server (even if the table doesn't exist). > > I found out it's 11.5 on Solaris 2.6 thanks for this. the closest i could get to your spec was sybase 15.5, freetds-0.64 and DBD::Sybase 1.10. With these values, your program ran perfectly on centos 5.3 and lenny. however, on fedora, it failed to even connect due to "*** stack smashing detected ***: /usr/bin/perl terminated" which sounds as if freetds-0.64 did have some issues. freetds-0.82 copes just fine, if that's any good to you. From nathan.bailey at monash.edu Thu Jun 17 01:12:11 2010 From: nathan.bailey at monash.edu (Nathan Bailey) Date: Thu, 17 Jun 2010 18:12:11 +1000 Subject: [Melbourne-pm] Does this mean I can now log into javascript-crippled websites? (Was: Announce: JSP v1.0) References: <4C100892.6090106@msg.com.mx> Message-ID: <11FE5FAD-4DE2-4500-881D-7C2DB6A9FE7B@monash.edu> eg. https://signon.bigpond.com/login ? which I'd like to script to check my current usage allowance on my cable modem... It seems to be more focused on just programming in JS, rather than in running JS that is embedded in web pages. Last time I tried scripting with JavaScript and SpiderMonkey it didn't go that smoothly :P I note there is also WWW::Mechanize::Firefox, perhaps that's a better way to go. N Begin forwarded message: > From: Salvador Ortiz Garcia > Date: 10 June 2010 7:33:06 AM > To: perl-javascript at perl.org > Subject: Announce: JSP v1.0 > > I'm happy to announce the first release (1.00) of the JSP Perl > module, an open source bridge between Perl and Mozilla's > SpiderMonkey JavaScript engines. > > JSP is a datatype reflection engine and an object life cycle > synchronizer. > JSP allows you to write programs using both languages at the same > time. > > Features: > > * Objects and other values pass freely between interpreters. They > are encapsulated in specialized classes, giving them correct > semantics on their non-native interpreter. Values and objects and > are "alive". > * All Perl classes are exportable to JavaScript. > > // Use DBI from javascript > Sys.install('DBI', 'DBI'); > var dbh = DBI.connect(...); > dbh.prepare(sqlstement); > > * Easy to build on supported javascript engines. > * Builds against SpiderMonkey 1.7.0 up to (unreleased) 1.8.5 (Gecko > 1.9.3). > * Exceptions pass freely between interpreters. A language can > handle, in a native way, exceptions thrown from the other > language. In JavaScript you use /throw, try and catch/. In Perl > you use /die, eval and $@/. You can /cath/ a perl's /die/ and also > after an /eval, $@/ will be set to the error /throw/n. > * Perl can access and manipulate javascript's /this/. > * Full support for utf8 even when SpiderMonkey wasn't compiled with > support for it. > * A command line *jsp* javascript interpreter included for > standalone javascript execution. > * Big test battery. Almost 1000 tests. > * Extensive reference documentation. > > Requirements: > > Perl 5.8 or higher > SpiderMonkey 1.7 or higher > > Get it from your nearest CPAN site at: http://search.cpan.org/dist/JSP/ > or visit us at http://jsp.msg.mx > > The JSP project is looking for both developers and users. > > I'd appreciate your comments and feedback. > > Thank you, > Salvador Ortiz From shlomif at iglu.org.il Thu Jun 17 01:34:26 2010 From: shlomif at iglu.org.il (Shlomi Fish) Date: Thu, 17 Jun 2010 11:34:26 +0300 Subject: [Melbourne-pm] Does this mean I can now log into javascript-crippled websites? (Was: Announce: JSP v1.0) In-Reply-To: <11FE5FAD-4DE2-4500-881D-7C2DB6A9FE7B@monash.edu> References: <4C100892.6090106@msg.com.mx> <11FE5FAD-4DE2-4500-881D-7C2DB6A9FE7B@monash.edu> Message-ID: <201006171134.32614.shlomif@iglu.org.il> Hi Nathan, On Thursday 17 Jun 2010 11:12:11 Nathan Bailey wrote: > eg. https://signon.bigpond.com/login ? > > which I'd like to script to check my current usage allowance on my > cable modem... > > It seems to be more focused on just programming in JS, rather than in > running JS that is embedded in web pages. Last time I tried scripting > with JavaScript and SpiderMonkey it didn't go that smoothly :P > I note there is also WWW::Mechanize::Firefox, perhaps that's a better > way to go. I think most people recommend using Selenium for that nowadays: http://search.cpan.org/dist/Test-WWW-Selenium/ Regards, Shlomi Fish -- ----------------------------------------------------------------- Shlomi Fish http://www.shlomifish.org/ Interview with Ben Collins-Sussman - http://shlom.in/sussman God considered inflicting XSLT as the tenth plague of Egypt, but then decided against it because he thought it would be too evil. Please reply to list if it's a mailing list post - http://shlom.in/reply . From daniel at rimspace.net Thu Jun 17 04:44:34 2010 From: daniel at rimspace.net (Daniel Pittman) Date: Thu, 17 Jun 2010 21:44:34 +1000 Subject: [Melbourne-pm] Does this mean I can now log into javascript-crippled websites? In-Reply-To: <11FE5FAD-4DE2-4500-881D-7C2DB6A9FE7B@monash.edu> (Nathan Bailey's message of "Thu, 17 Jun 2010 18:12:11 +1000") References: <4C100892.6090106@msg.com.mx> <11FE5FAD-4DE2-4500-881D-7C2DB6A9FE7B@monash.edu> Message-ID: <87wrtxopct.fsf@rimspace.net> Nathan Bailey writes: > eg. https://signon.bigpond.com/login ? > > which I'd like to script to check my current usage allowance on my cable > modem... > > It seems to be more focused on just programming in JS, rather than in running > JS that is embedded in web pages. Last time I tried scripting with JavaScript > and SpiderMonkey it didn't go that smoothly :P > I note there is also WWW::Mechanize::Firefox, perhaps that's a better way to > go. There was a patched version of WWW::Mechanize that did use (one of) the Perl JavaScript implementation to allow this. I don't think it made it into the main distribution however. Daniel -- ? Daniel Pittman ? daniel at rimspace.net ? +61 401 155 707 ? made with 100 percent post-consumer electrons From guy at alchemy.com.au Tue Jun 22 14:56:10 2010 From: guy at alchemy.com.au (Guy Morton) Date: Wed, 23 Jun 2010 07:56:10 +1000 Subject: [Melbourne-pm] perl contractors Message-ID: Hello list Anyone on the list interested in perl contract work? If so, please email me off-list with rates and availability. Work is mostly web stuff, either catalyst or mod_perl or both. Feel free to forward this to anyone off-list who you know does this sort of thing. regards Guy From toby.corkindale at strategicdata.com.au Wed Jun 23 19:32:59 2010 From: toby.corkindale at strategicdata.com.au (Toby Corkindale) Date: Thu, 24 Jun 2010 12:32:59 +1000 Subject: [Melbourne-pm] July Perlmongers meeting Message-ID: <4C22C3DB.5080507@strategicdata.com.au> Hi, The next Perlmongers meeting will be on Wednesday the 14th of July. I propose that we have a social meeting, and meanwhile try to gather more talks for a tech meeting on the 11th of August. Do we have any suggestions for a venue for July? I'll propose the James Squire Brewhouse on Russell Street; we should be able to book a big table in the dining section, even if not all of us are eating. They have a range of nice beers and do food. Alternatively, how about the Little Creatures Dining Hall on Brunswick St, Fitzroy? They have plenty of space, at least.. Cheers, Toby From ddick at iinet.net.au Wed Jun 23 23:40:30 2010 From: ddick at iinet.net.au (David Dick) Date: Thu, 24 Jun 2010 16:40:30 +1000 Subject: [Melbourne-pm] July Perlmongers meeting In-Reply-To: <4C22C3DB.5080507@strategicdata.com.au> References: <4C22C3DB.5080507@strategicdata.com.au> Message-ID: <4C22FDDE.1000802@iinet.net.au> On 24/06/10 12:32, Toby Corkindale wrote: > Hi, > The next Perlmongers meeting will be on Wednesday the 14th of July. > > I propose that we have a social meeting, and meanwhile try to gather > more talks for a tech meeting on the 11th of August. I've been spending quite a bit of time recently building native win32/msi type packages with the Wix tool for deploying perl applications. if desired, i could probably create a talk on how use Wix to package a perl application for windows ?????? From toby.corkindale at strategicdata.com.au Wed Jun 23 23:49:53 2010 From: toby.corkindale at strategicdata.com.au (Toby Corkindale) Date: Thu, 24 Jun 2010 16:49:53 +1000 Subject: [Melbourne-pm] July Perlmongers meeting In-Reply-To: <4C22FDDE.1000802@iinet.net.au> References: <4C22C3DB.5080507@strategicdata.com.au> <4C22FDDE.1000802@iinet.net.au> Message-ID: <4C230011.30802@strategicdata.com.au> On 24/06/10 16:40, David Dick wrote: > On 24/06/10 12:32, Toby Corkindale wrote: >> Hi, >> The next Perlmongers meeting will be on Wednesday the 14th of July. >> >> I propose that we have a social meeting, and meanwhile try to gather >> more talks for a tech meeting on the 11th of August. > > I've been spending quite a bit of time recently building native > win32/msi type packages with the Wix tool for deploying perl > applications. if desired, i could probably create a talk on how use Wix > to package a perl application for windows ?????? That would be great if you do a talk on that topic! From toby.corkindale at strategicdata.com.au Thu Jun 24 21:12:30 2010 From: toby.corkindale at strategicdata.com.au (Toby Corkindale) Date: Fri, 25 Jun 2010 14:12:30 +1000 Subject: [Melbourne-pm] Perl 6 Rakudo Star slips again, but this time they'll meet the deadline for sure! Message-ID: <4C242CAE.6060308@strategicdata.com.au> (We hope) http://use.perl.org/~pmichaud/journal/40407 / http://www.rakudo.org/ I wonder how far they've come from the beta(alpha?) version we tried at the perlmongers meeting a couple of months back? -Toby From ddick at iinet.net.au Tue Jun 29 19:01:46 2010 From: ddick at iinet.net.au (David Dick) Date: Wed, 30 Jun 2010 12:01:46 +1000 Subject: [Melbourne-pm] July Perlmongers meeting In-Reply-To: <4C230011.30802@strategicdata.com.au> References: <4C22C3DB.5080507@strategicdata.com.au> <4C22FDDE.1000802@iinet.net.au> <4C230011.30802@strategicdata.com.au> Message-ID: <4C2AA58A.1070402@iinet.net.au> On 24/06/10 16:49, Toby Corkindale wrote: > On 24/06/10 16:40, David Dick wrote: >> On 24/06/10 12:32, Toby Corkindale wrote: >>> Hi, >>> The next Perlmongers meeting will be on Wednesday the 14th of July. >>> >>> I propose that we have a social meeting, and meanwhile try to gather >>> more talks for a tech meeting on the 11th of August. >> >> I've been spending quite a bit of time recently building native >> win32/msi type packages with the Wix tool for deploying perl >> applications. if desired, i could probably create a talk on how use Wix >> to package a perl application for windows ?????? > > That would be great if you do a talk on that topic! Talk is now ready. Also covers iis and permissions, from the point of view of installing applications. From toby.corkindale at strategicdata.com.au Wed Jun 30 21:30:43 2010 From: toby.corkindale at strategicdata.com.au (Toby Corkindale) Date: Thu, 01 Jul 2010 14:30:43 +1000 Subject: [Melbourne-pm] [adelaide.pm] Creating a baseline for Devel::Cover In-Reply-To: <4C2C17B3.5050603@hal9000.net.au> References: <4C2C17B3.5050603@hal9000.net.au> Message-ID: <4C2C19F3.9030108@strategicdata.com.au> On 01/07/10 14:21, Mike Bruins wrote: > Hi Mongers, > > I'm hoping for some pointers on a question relating to Devel::Cover - > http://search.cpan.org/dist/Devel-Cover/lib/Devel/Cover.pm > > Say I am about to embark on adding/fixing unit tests, and I wish to > accurately measure the improvement in code coverage. > At the start I will need a baseline that shows the all the files (e.g. > scripts and modules) and the amount of coverage in each case. > The trick is to have the all perl files represented in the baseline, not > just those exercised by the unit tests. > > Illustration: > Say I have 100 files, but my unit tests use 10 of these files. Say the > coverage was reported at 50%. > True coverage would be about 5%, not the 50% reported (*). > > My thoughts so far: > On day one it is not practical to write unit tests for all the files, > but it might be possible to write a perl script to pre-load the cover_db > with knowledge that the files exist. > > The overall process may look like the following: > 1) cover --delete --silent > 2) something_to_set_cover_db_baseline.pl > 3) make test HARNESS_PERL_SWITCHES=-MDevel::Cover > 4) cover > > Is there an easy way to tell Devel::Cover about a file ? > Perhaps there is an easier way to achieve the whole process? I solve this problem by having a test which simply finds every .pm file in the lib directory and attempts to load it with require_ok($filename); From daniel at rimspace.net Wed Jun 30 23:06:53 2010 From: daniel at rimspace.net (Daniel Pittman) Date: Thu, 01 Jul 2010 16:06:53 +1000 Subject: [Melbourne-pm] [adelaide.pm] Creating a baseline for Devel::Cover In-Reply-To: <4C2C19F3.9030108@strategicdata.com.au> (Toby Corkindale's message of "Thu, 01 Jul 2010 14:30:43 +1000") References: <4C2C17B3.5050603@hal9000.net.au> <4C2C19F3.9030108@strategicdata.com.au> Message-ID: <87y6dv68hu.fsf@rimspace.net> Toby Corkindale writes: > On 01/07/10 14:21, Mike Bruins wrote: >> >> I'm hoping for some pointers on a question relating to Devel::Cover - >> http://search.cpan.org/dist/Devel-Cover/lib/Devel/Cover.pm [...] >> Is there an easy way to tell Devel::Cover about a file ? >> Perhaps there is an easier way to achieve the whole process? > > I solve this problem by having a test which simply finds every .pm file in the > lib directory and attempts to load it with require_ok($filename); I ? the Dist::Zilla "CompileTests" plugin, which is a nicer version of this than I ever wrote for myself. You can just pilfer the test code out of the DATA section at the end if you don't want to use Dist::Zilla though... http://search.cpan.org/~jquelin/Dist-Zilla-Plugin-CompileTests-1.101800/lib/Dist/Zilla/Plugin/CompileTests.pm Daniel -- ? Daniel Pittman ? daniel at rimspace.net ? +61 401 155 707 ? made with 100 percent post-consumer electrons