And what is the point of a 3 line script?

I used to think that too, but I've moved more and more of my programs into modules and used wrapper scripts to invoke them with the most common arguments already defined. It's improved the testability and usability of a lot of my code. Otherwise I ended up with a lot of shell aliases to invoke modules—and there's not much documentation there.

Let's see.

2 modules; 2 namespaces; and two hundred and eighty eight support modules:

<Reveal this spoiler or all in this thread<!--

Read more... (10 kB)

To create a 3 line script that downloads 2 files, constructs a single object and calls a single method upon it -- Ie. Calls one function passing some parameters.

And when it goes wrong, no one knows how to fix it. If that's modern Perl, you can keep it.

Isn't it amazing how technology is giving us ever more powerful ways of creating unbelievable (and unintelligible) complexity from simplicity.

---

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

The start of some sanity?

Isn't it amazing how technology is giving us ever more powerful ways of creating unbelievable (and unintelligible) complexity from simplicity.

The same twelve tone western scale that allows Handel's music for the royalfireworks, Beethoven's symphonies, and Mozart also allows autotuned and sampled radio pop performed by talentless hacks. You can (rightly) decry the latter without diminishing the former.

Then again, Liszt would have fit right into the LA party scene.

I'm not entirely sure what your point is.

# lib/App/Apache/Wrapper.pm
{
  package App::Apache::Wrapper;
  use Moose;
  has 'apache_path' => (
    is   => 'ro',
    isa  => 'Str',
    );
  sub run {
    my $self = shift;
    system($self->apache_path);
  }
}

# apache.pl
use App::Apache::Wrapper;
App::Apache::Wrapper
  -> new(apache_path => '/usr/sbin/httpd')
  -> run;
[download]

The fact that a program consists of instantiating a single object and calling a single method on it, is not necessarily an indication of the complexity of the program as a whole.

Yes, it's frustrating that App::Reprove has not worked for that person. On the whole its test results are reasonably good (about 90% pass) though there's room for improvement. I'm sure that by dropping MooseX::Declare (which is still pretty experimental) I could push that up to pretty close to 100%. But I have no immediate plans to do that. Maintaining Module::Reprove is not my main priority in life. Patches welcome though.

Module::Reprove certainly is. App::Reprove probably less so. But a good reason to modularise code is to make it extendable using the well-understood mechanism of inheritance.