package UR::Namespace::Command::Old::Redescribe;
use strict;
use warnings;
use UR;
our $VERSION = "0.45"; # UR $VERSION;
UR::Object::Type->define(
class_name => __PACKAGE__,
is => 'UR::Namespace::Command::RunsOnModulesInTree',
);
sub help_brief {
"Outputs class description(s) formatted to the latest standard."
}
sub for_each_class_object {
my $self = shift;
my $class = shift;
my $src = $class->resolve_module_header_source;
if ($src) {
print $src, "\n";
return 1;
}
else {
print STDERR "No source for $class!";
return;
}
}
1;