File Coverage

lib/UR/Namespace/Command/Old/Redescribe.pm

Criterion	Covered	Total	%
statement	9	18	50.0
branch	0	2	0.0
condition			n/a
subroutine	3	5	60.0
pod	0	2	0.0
total	12	27	44.4

package UR::Namespace::Command::Old::Redescribe;

use strict;
use warnings;
use UR;
our $VERSION = "0.46"; # 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;