---
name: "Test::Mouse"
section: "3pm"
platform: "linux"
package: "perl-mouse"
version: "2.6.2-2"
release: "Arch Linux 2026-11-01"
platforms: ["linux"]
url: "https://new.carta.tech/Test::Mouse"
---

# Test::Mouse(3pm)

Test functions for Mouse specific features

## NAME

Test::Mouse - Test functions for Mouse specific features

## SYNOPSIS

```
  use Test::More plan => 1;
  use Test::Mouse;
  meta_ok($class_or_obj, "... Foo has a ->meta");
  does_ok($class_or_obj, $role, "... Foo does the Baz role");
  has_attribute_ok($class_or_obj, $attr_name, "... Foo has the 'bar' attribute");
```

## DESCRIPTION

This module provides some useful test functions for Mouse based classes. It is an experimental first release, so comments and suggestions are very welcome.

## EXPORTED FUNCTIONS

- **meta\_ok ($class\_or\_object)**

  Tests if a class or object has a metaclass.

- **does\_ok ($class\_or\_object, $role, ?$message)**

  Tests if a class or object does a certain role, similar to what `"isa_ok"` does for the `"isa"` method.

- **has\_attribute\_ok($class\_or\_object, $attr\_name, ?$message)**

  Tests if a class or object has a certain attribute, similar to what `"can_ok"` does for the methods.

- **with\_immutable { CODE } @class\_names**

  Runs *CODE* \*which should contain normal tests) twice, and make each class in *@class\_names* immutable between the two runs.

## SEE ALSO

Mouse

Test::Moose

Test::More