package Foo::Bar;
use 5.006;
use strict;
use warnings;

our $VERSION = '0.01';

use Module::Inline::C <<'HERE';
int
fac (int x)
{
    if (x <= 0) return(1);
    return(x*fac(x-1));
}
HERE

# ordinary perl code and more inlined C here

# This is for triggering the XS generation if applicable:
use Module::Inline::C 'END';

1;

__END__

=head1 NAME

Foo::Bar - Perl extension for blah blah blah

=cut