The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use lib 't/lib';
use TidierTests;
TidierTests::do_tests(\*DATA);

__DATA__
==== Simple class defn =================================================
class BankAccount {                   | class BankAccount {
  has 'balance' => ( is => 'rw' );    |     has 'balance' => ( is => 'rw' );
}                                     | }

==== Class defn with method ============================================
class BankAccount {                     | class BankAccount {
    has 'balance' => ( is => 'rw' );    |     has 'balance' => ( is => 'rw' );
    method deposit (Num $amount){       |
    $self->inc_balance( $amount );      |     method deposit (Num $amount) {
    }                                   |         $self->inc_balance($amount);
}                                       |     }
~                                       | }

==== Multipart class =====================================================
class A::Point {               | class A::Point {
    has $!x  is  ro  = 1 ;     |     has $!x is ro = 1;
}                              | }

==== Class with attrs (GH#5) =============================================
class A::Point is dirty {      | class A::Point is dirty {
    has $!x  is  ro  = 1 ;     |     has $!x is ro = 1;
}                              | }