our $CVS_REVISION = q!$Id: Action.pm,v 1.62 02/4/4 03:16:10 matt $!;

##</code><code>##

{
    no strict;
    local $^W = undef;

    my @versions = ();
    foreach my $class ( sort keys %INC ) {

        $class =~ s/\.pm$// or next;
        $class =~ s/\//::/g;

        my $version = ${"$class\::CVS_VERSION"} || next;
        push @versions, "$class -> $version";
    }
}