---
name: "Test::File::ShareDir::Object::Dist"
section: "3pm"
platform: "linux"
package: "libtest-file-sharedir-perl"
version: "1.001002-2"
release: "Debian 13 (Trixie)"
platforms: ["linux"]
url: "https://new.carta.tech/Test::File::ShareDir::Object::Dist"
---

# Test::File::ShareDir::Object::Dist(3pm)

Object Oriented ShareDir creation for distributions

## NAME

Test::File::ShareDir::Object::Dist - Object Oriented ShareDir creation for distributions

## VERSION

version 1.001002

## SYNOPSIS

```
    use Test::File::ShareDir::Object::Dist;
    my $dir = Test::File::ShareDir::Object::Dist->new(
        root    => "some/path",
        dists => {
            "Hello-Nurse" => "share/HN"
        },
    );
    $dir->install_all_dists;
    $dir->add_to_inc;
```

## METHODS

### "dist\_names"

```
    my @names = $instance->dist_names();
```

Returns the names of all distributions listed in the `"dists"` set.

### "dist\_share\_target\_dir"

```
    my $dir = $instance->dist_share_target_dir("Dist-Name");
```

Returns the path where the `"ShareDir"` will be created for `"Dist-Name"`

### "dist\_share\_source\_dir"

```
    my $dir = $instance->dist_share_source_dir("Dist-Name");
```

Returns the path where the `"ShareDir"` will be **COPIED** *FROM* for `"Dist-Name"`

### "install\_dist"

```
    $instance->install_dist("Dist-Name");
```

Installs `"Dist-Name"`'s `"ShareDir"`

### "install\_all\_dists"

```
    $instance->install_all_dists();
```

Installs all `"dist_names"`

### "add\_to\_inc"

**DEPRECATED:** Use `"register"` instead.

### "register"

```
    $instance->register();
```

Adds the `"Tempdir"` `"ShareDir"` (  `"inc"` ) to the global `@INC`

*Since 1.001000*

### "clear"

```
    $instance->clear();
```

Removes the `"Tempdir"` `"ShareDir"` ( `"inc"` ) from the global `@INC`

*Since 1.001000*

## ATTRIBUTES

### "inc"

A `"Test::File::ShareDir::Object::Inc"` object.

### "dists"

A hash of :

```
    Dist-Name => "relative/path"
```

### "root"

The origin all paths's are relative to.

( Defaults to `"cwd"` )

## AUTHOR

Kent Fredric \<kentnl@cpan.org\>

## COPYRIGHT AND LICENSE

This software is copyright (c) 2017 by Kent Fredric \<kentnl@cpan.org\>.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.