The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package UR::Value::FilePath;

use strict;
use warnings;

require UR;
our $VERSION = "0.43"; # UR $VERSION;

UR::Object::Type->define(
    class_name => 'UR::Value::FilePath',
    is => ['UR::Value::FilesystemPath'],
);

sub line_count {
    my $self = shift;
    my ($line_count) = qx(wc -l $self) =~ /^\s*(\d+)/;
    return $line_count;
}

1;